home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / AWARD.PRG < prev    next >
Text File  |  1987-12-24  |  4KB  |  139 lines
  1. * AWARD VERSION 860826 (c) COPYRIGHT 1985,1986 JOE KASSER G3ZCZ
  2. CLEAR
  3. @ 5,11 SAY  'G3ZCZ GENERIC AWARD PACKAGE VERSION 1.4'
  4. @ 7,1 SAY   'Default AWARD database is'
  5. @ 7,30 SAY award
  6. @ 8,1 SAY   'Default LOG database is'
  7. @ 8,30 SAY logbook
  8. @ 22,1 SAY 'What AWARD file '
  9. @ 22,25 GET award
  10. READ
  11. IF FILE(award+'.DBF')
  12. ELSE
  13.    ? 'WARNING:- AWARD FILE IS NOT ON DEFAULT DRIVE'
  14.    WAIT
  15. ENDIF
  16.  
  17. DO WHILE task <> '*'
  18.    CLEAR
  19.    @ 5,11 SAY  'G3ZCZ GENERIC AWARD PACKAGE VERSION 1.5'
  20.    @ 7,1 SAY   'Default AWARD database is'
  21.    @ 7,30 SAY award
  22.    @ 8,1 SAY   'Default LOG database is'
  23.    @ 8,30 SAY logbook
  24.    @ 10,1 SAY 'UPDATE AWARD RECORDS                         U'
  25.    @ 11,1 SAY 'CREATE A NEW AWARD DATABASE                  C'
  26.    @ 12,1 SAY 'PRINT AWARD RECORDS                          P'
  27.    @ 13,1 SAY 'CHANGE AWARD DATABASE                        D'
  28.    @ 14,1 SAY 'CHANGE LOGBOOK                               L'
  29.    @ 15,1 SAY 'RE-INDEX Award file                          I'
  30.    @ 16,1 SAY 'DISPLAY FILES ON DISK DRIVE                  F'
  31.    @ 20,1 SAY 'QUIT THIS MENU                               *'
  32.    @ 22,1 SAY 'QRU'
  33.  
  34.    @ 22,5 GET task
  35.    READ
  36.  
  37.    DO CASE
  38.       case task = 'I'
  39.         USE &award
  40.         INDEX ON pc TO &award
  41.       CASE task = 'F'
  42.          CLEAR
  43.          ACCEPT 'WHICH DRIVE ? ' TO diskdrive
  44.          diskdrive = LEFT(diskdrive,1)
  45.          STORE diskdrive + ':' TO diskdrive
  46.          DISPLAY FILES ON &diskdrive
  47.          RELEASE diskdrive
  48.          WAIT
  49.       CASE task = 'D'
  50.          @ 22,1 SAY 'What AWARD file ? '
  51.          @ 22,25 GET award
  52.          READ
  53.          IF FILE(award+'.DBF')
  54.          ELSE
  55.             ? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
  56.             WAIT
  57.          ENDIF
  58.       CASE task = 'U'
  59.          IF logbook = '      '
  60.             @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  61.          ELSE
  62.             IF FILE(award+'.DBF')
  63.                IF FILE (logbook+'.DBF')
  64.                   DO AWARDEDT
  65.                ELSE
  66.                   ? 'ERROR, LOGBOOK IS NOT PRESENT ON DESIGNATED DRIVE'
  67.                   WAIT
  68.                ENDIF
  69.             ELSE
  70.                ? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
  71.                WAIT
  72.             ENDIF
  73.          ENDIF
  74.       CASE task = 'P'
  75.          IF FILE (award+'.DBF')
  76.             CLEAR
  77.             STORE ' ' TO choice
  78.             @ 5,1 SAY ' '
  79.             ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ? ' TO choice
  80.             @ 10,1 SAY ' '
  81.             IF CHOICE = 'P' .OR. CHOICE = 'W' .OR. CHOICE = 'Q'
  82.                STORE ' ' TO pf
  83.                ACCEPT 'Do you want hard copy (Y/N) ? ' TO pf
  84.                DO AWARDPRN
  85.                RELEASE pf
  86.             ELSE
  87.                ? CHOICE,' IS NOT VALID, ENTER  P   or   W  or   Q only please '
  88.                WAIT
  89.             ENDIF
  90.          ELSE
  91.             ? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
  92.             WAIT
  93.          ENDIF
  94.       CASE task = 'C'
  95.          STORE '          ' TO blank
  96.          IF FILE(award+'.DBF')
  97.             ACCEPT 'What is the name of the new AWARD file ? ' TO naward
  98.             IF LEN( naward) = 1
  99.                ? '   ERROR   BLANK FILE NAMES NOT ALLOWED'
  100.                WAIT
  101.             ELSE
  102.                IF FILE(naward+'.DBF')
  103.                   ? 'ERROR, FILE ALREADY EXISTS'
  104.                   WAIT
  105.                ELSE
  106.                   ?
  107.                   ? 'CREATING blankaward FILE'
  108.                   USE &award
  109.                   COPY STRUCTURE TO &naward
  110.                   USE &naward
  111.                   INDEX ON pc TO &naward
  112.                   STORE  naward TO  award
  113.                   ?
  114.                   ? 'NEW BLANK AWARD FILE CREATED'
  115.                   USE
  116.                ENDIF
  117.             ENDIF
  118.             RELEASE blank,naward
  119.          ELSE
  120.             ? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
  121.             WAIT
  122.          ENDIF
  123.    CASE task = 'L'
  124.       @ 22,1 SAY 'Which Log file ? '
  125.       @ 22,18 GET logbook
  126.       READ
  127.       STORE logbook TO logndx
  128.       IF FILE (logbook+'.DBF')
  129.          @ 22,1 SAY '                          '
  130.       ELSE
  131.          @ 22,1 SAY ' '
  132.          ? 'ERROR, ',logbook, 'IS NOT PRESENT ON DRIVE'
  133.          WAIT
  134.       ENDIF
  135.    ENDCASE
  136. ENDDO
  137. STORE ' ' TO task
  138. RETURN
  139.