home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / LOGMISCF.PRG < prev    next >
Text File  |  1987-12-24  |  4KB  |  117 lines
  1. *LOGMISCF BY JOE KASSER G3ZCZ    VER 860728
  2.  
  3. DO WHILE task <> '*'
  4.    CLEAR
  5.    @ 2,10 SAY 'MISCELLEANEOUS FUNCTIONS VERSION 1.6'
  6.    @ 5,1  SAY 'CURRENT LOGBOOK '
  7.    ?? logbook
  8.    @  8,1 SAY 'CHANGE LOG FILE                                   L'
  9.    @  9,1 SAY 'MANUAL TRANSFER OF DATA TO  CONTEST LOGS          U'
  10.    @ 10,1 SAY 'APPEND FROM BASIC "LOG" FILE TO "DBF" FILE        V'
  11.    @ 11,1 SAY 'DISPLAY FILES ON DISK DRIVE                       F'
  12.    @ 12,1 SAY 'DXPEDITION/CONTEST BATCH QSL FUNCTION             Q'
  13.    @ 13,1 SAY '(RE) INDEX A LOGBOOK DATABASE FILE                I'
  14.    @ 14,1 SAY 'CHANGE OFFSET TO UTC                              T'
  15.    @ 15,1 SAY 'CHANGE STATION OPERATOR CALL SIGN                 C'
  16.    @ 18,1 SAY 'Quit this menu                                    *'
  17.    @ 20,1 SAY 'QRU'
  18.    @ 20,5 GET task
  19.    task = UPPER(task)
  20.    READ
  21.  
  22.    DO CASE
  23.  
  24.          CASE task = 'U'
  25.               IF logbook = '      '
  26.                  @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  27.                  STORE 'L' TO task
  28.                  WAIT
  29.               ELSE
  30.                  IF FILE(logbook +'.DBF')
  31.                     DO LOGUPDAT
  32.                  ELSE
  33.                     ? 'ERROR- LOGBOOK IS NOT ON DEFAULT DRIVE'
  34.                     WAIT
  35.                  ENDIF
  36.               ENDIF
  37.  
  38.          CASE task = 'I'
  39.               IF logbook = '      '
  40.                  @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  41.                  STORE 'L' TO task
  42.                  WAIT
  43.               ELSE
  44.                  IF FILE(logbook + '.DBF')
  45.                     USE &logbook
  46.                     SET TALK ON
  47.                     INDEX ON call+band TO &logndx
  48.                     SET TALK OFF
  49.                     USE
  50.                  ELSE
  51.                     ? 'ERROR- LOGBOOK IS NOT ON DEFAULT DRIVE'
  52.                     WAIT
  53.                  ENDIF
  54.               ENDIF
  55.          
  56.          CASE task = 'Q'
  57.               IF logbook = '      '
  58.                  @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  59.                  STORE 'L' TO task
  60.                  WAIT
  61.               ELSE
  62.                  IF FILE(logbook + '.DBF')
  63.                     DO DXPDNQSL
  64.                  ELSE
  65.                     ? 'ERROR- LOGBOOK IS NOT ON DEFAULT DRIVE'
  66.                     WAIT
  67.                  ENDIF
  68.               ENDIF
  69.  
  70.          CASE task = 'V'
  71.               IF logbook = '      '
  72.                  @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  73.                  STORE 'L' TO task
  74.                  WAIT
  75.               ELSE
  76.                  DO LOG2DBF
  77.               ENDIF
  78.  
  79.       CASE task = 'F'
  80.          CLEAR
  81.          ACCEPT 'WHICH DRIVE ? ' TO diskdrive
  82.          diskdrive = LEFT(diskdrive,1)
  83.          STORE diskdrive + ':' TO diskdrive
  84.          DISPLAY FILES ON &diskdrive
  85.          RELEASE diskdrive
  86.          WAIT
  87.  
  88.          CASE task = 'C'
  89.               CLEAR
  90.               @ 10,1 SAY "CALL SIGN IS "
  91.               @ 10,25 GET callsign
  92.               READ
  93.  
  94.          CASE task = 'L'
  95.               @ 22,1 SAY 'Which Log file '
  96.               @ 22,15 GET logbook
  97.               @ 22,30 SAY 'Which Index file'
  98.               @ 22,48 GET logndx
  99.               READ
  100.               IF FILE (logbook + '.DBF')
  101.                  @ 22,1 SAY '                          '
  102.               ELSE
  103.                  @ 22,1 SAY ' '
  104.                  ? 'ERROR, ',logbook, 'IS NOT PRESENT ON DRIVE'
  105.                  WAIT
  106.               ENDIF
  107.  
  108.          CASE task = 'T'
  109.               ACCEPT 'What is your offset to UTC (HH) ? ' TO cgmt
  110.               STORE VAL(cgmt) TO gmt
  111.               RELEASE cgmt
  112.  
  113.      ENDCASE
  114. ENDDO
  115. STORE ' '  TO task
  116. RETURN
  117.