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