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