home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / LOGAWARD.PRG < prev    next >
Text File  |  1987-12-09  |  2KB  |  58 lines
  1. *LOGAWARD.PRG CALLED FROM LOGBOOK
  2. *BY JOE KASSER 871209
  3.  
  4. DO WHILE task <> '*'
  5.    CLEAR
  6.    @ 2,10 SAY 'G3ZCZ AWARD RECORD KEEPING FUNCTIONS Version  1.2'
  7.    @ 4,1  SAY 'PICK AN AWARD PACKAGE, the following are supported'
  8.    @ 6,1  SAY 'WAZ                                         Z'
  9.    @ 7,1  SAY 'WAS                                         S'
  10.    @ 8,1  SAY 'DXCC                                        D'
  11.    @ 9,1  SAY 'OBLAST                                      O'
  12.    @ 10,1 SAY 'GENERAL AWARD                               G'
  13.    @ 11,1 SAY 'CHANGE LOGBOOK                              L'
  14.    @ 12,1 SAY 'DISPLAY FILES ON DISK DRIVE                 F'
  15.    @ 16,1 SAY 'LZ60 AWARD  (BULGARIAN 60TH ANNIVERSARY)    B'
  16.    @ 20,1 SAY 'QUIT THIS MENU                              *'
  17.    @ 22,1 SAY 'QRU'
  18.    @ 22,5 GET task
  19.    READ
  20.  
  21.    DO CASE
  22.       CASE task ='S'
  23.          DO    WAS
  24.       CASE task = 'Z'
  25.          DO    WAZ
  26.       CASE task = 'D'
  27.          DO    DXCC
  28.       CASE task = 'O'
  29.          DO    OBLAST
  30.       CASE task = 'L'
  31.          @ 22,1 SAY 'Which Log file '
  32.          @ 22,15 GET logbook
  33.          READ
  34.          STORE logbook TO logndx
  35.          IF FILE (logbook+'.DBF')
  36.             @ 22,1 SAY '                          '
  37.          ELSE
  38.             @ 22,1 SAY ' '
  39.             ? 'ERROR, ',logbook, 'IS NOT PRESENT ON DRIVE'
  40.             WAIT
  41.          ENDIF
  42.       CASE task = 'G'
  43.          DO AWARD
  44.       CASE task = 'F'
  45.          CLEAR
  46.          ACCEPT 'WHICH DRIVE ? ' TO diskdrive
  47.          diskdrive = LEFT(diskdrive,1)
  48.          STORE diskdrive + ':' TO diskdrive
  49.          DISPLAY FILES ON &diskdrive
  50.          RELEASE diskdrive
  51.          WAIT
  52.       CASE task = 'B'
  53.          DO LZ60
  54.    ENDCASE
  55. ENDDO
  56. STORE ' ' TO task
  57. RETURN
  58.