home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / hamradio / logbook.arc / WAS.PRG < prev    next >
Encoding:
Text File  |  1986-06-22  |  3.6 KB  |  132 lines
  1.  
  2. * WAS VERSION 860411 (c) COPYRIGHT 1985,1986 JOE KASSER G3ZCZ
  3. DO WHILE task <> '*'
  4.    ERASE
  5.    @ 5,11 SAY  'G3ZCZ WAS AWARD PACKAGE VERSION 1.1'
  6.    @ 7,1 SAY   'Default WAS database is'
  7.    @ 7,25 SAY was
  8.    @ 8,1 SAY 'Default LOG database is'
  9.    @ 8,25 SAY logbook
  10.    @ 10,1 SAY 'UPDATE WAS RECORDS                         U'
  11.    @ 11,1 SAY 'CREATE A NEW WAS DATABASE                  C'
  12.    @ 18,1 SAY 'IMPORT FROM A BASIC WAS DATABASE           I'
  13.    @ 12,1 SAY 'PRINT WAS RECORDS                          P'
  14.    @ 20,1 SAY 'QUIT THIS MENU                             *'
  15.    @ 14,1 SAY 'CHANGE WAS DATABASE                        D'
  16.    @ 15,1 SAY 'CHANGE LOGBOOK                             L'
  17.    @ 16,1 SAY 'DISPLAY FILES ON DISK DRIVE                F'
  18.    @ 22,1 SAY 'QRU'
  19.  
  20.    @ 22,5 GET task
  21.    READ
  22.  
  23.    DO CASE
  24.  
  25.       CASE task = 'F'
  26.          ERASE
  27.          ACCEPT 'WHICH DRIVE ' TO diskdrive
  28.          STORE diskdrive + ':' TO diskdrive
  29.          DISPLAY FILES ON &diskdrive
  30.          RELEASE diskdrive
  31.          WAIT
  32.  
  33.       CASE task = 'D'
  34.          @ 22,1 SAY 'What WAS file '
  35.          @ 22,25 GET was
  36.          READ
  37.          IF FILE(was)
  38.          ELSE
  39.             ? 'ERROR, WAS FILE IS NOT ON DEFAULT DRIVE'
  40.             WAIT
  41.          ENDIF
  42.  
  43.       CASE task = 'U'
  44.          IF logbook = '      '
  45.             @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  46.          ELSE
  47.             IF FILE(was)
  48.                IF FILE (logbook)
  49.                   DO WASEDIT
  50.                ELSE
  51.                   ? 'ERROR, LOGBOOK IS NOT PRESENT ON DESIGNATED DRIVE'
  52.                   WAIT
  53.                ENDIF
  54.             ELSE
  55.                ? 'ERROR, WAS FILE IS NOT ON DEFAULT DRIVE'
  56.                WAIT
  57.             ENDIF
  58.          ENDIF
  59.  
  60.  
  61.       CASE task = 'P'
  62.          IF FILE(was)
  63.             DO WASPRINT
  64.          ELSE
  65.             ? 'ERROR, WAS FILE IS NOT ON DEFAULT DRIVE'
  66.             WAIT
  67.          ENDIF
  68.  
  69.       CASE task = 'I'
  70.          IF FILE(was)
  71.             DO WASIMP
  72.          ELSE
  73.             ? 'ERROR, BLANK WAS FILE IS NOT ON DEFAULT DRIVE'
  74.             WAIT
  75.          ENDIF
  76.  
  77.  
  78.       CASE task = 'C'
  79.          STORE '          ' TO blank
  80.          IF FILE(was)
  81.             ACCEPT 'What is the name of the new WAS file ? ' TO nwas
  82.             IF LEN( nwas) = 1
  83.                ? '   ERROR   BLANK FILE NAMES NOT ALLOWED'
  84.                WAIT
  85.             ELSE
  86.                IF FILE(nwas)
  87.                   ? 'ERROR, FILE ALREADY EXISTS'
  88.                   WAIT
  89.                ELSE
  90.                   ?
  91.                   ? 'CREATING blankwas FILE'
  92.                   USE &was
  93.                   COPY TO &nwas
  94.                   USE &nwas
  95.  
  96.                   DO WHILE .NOT. EOF
  97.                      ? pc,state
  98.                      REPLACE dcall WITH blank
  99.                      REPLACE ddate WITH blank
  100.                      REPLACE dband WITH blank
  101.                      REPLACE dmode WITH blank
  102.                      REPLACE dstate WITH blank
  103.                      SKIP
  104.                   ENDDO
  105.                   ?
  106.                   ? 'NEW BLANK WAS FILE CREATED'
  107.                   USE
  108.                ENDIF
  109.             ENDIF
  110.             RELEASE blank,nwas
  111.          ELSE
  112.             ? 'ERROR, WAS FILE IS NOT ON DEFAULT DRIVE'
  113.             WAIT
  114.          ENDIF
  115.  
  116.    CASE task = 'L'
  117.       @ 22,1 SAY 'Which Log file '
  118.       @ 22,15 GET logbook
  119.       READ
  120.       IF FILE (logbook)
  121.          @ 22,1 SAY '                          '
  122.       ELSE
  123.          @ 22,1 SAY ' '
  124.          ? 'ERROR, ',logbook, 'IS NOT PRESENT ON DRIVE'
  125.          WAIT
  126.       ENDIF
  127.  
  128.    ENDCASE
  129. ENDDO
  130. STORE ' ' TO task
  131. RETURN
  132.