home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.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.  
  73.           CASE task = 'P'
  74.             IF FILE (award+'.DBF')
  75.                ERASE
  76.                STORE ' ' TO choice
  77.                @ 5,1 SAY ' '
  78.                ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ' TO choice
  79.                @ 10,1 SAY ' '
  80.                IF CHOICE = 'P' .OR. CHOICE = 'W' .OR. CHOICE = 'Q'
  81.                   STORE ' ' TO pf                                                    
  82.                   ACCEPT 'Do you want hard copy (Y/N) ?' TO pf                       
  83.                   DO AWARDPRN                                                        
  84.                   RELEASE pf
  85.                ELSE                                                                  
  86.                   ? CHOICE,' IS NOT VALID, ENTER  P   or   W  or   Q only please '   
  87.                   WAIT                                                               
  88.                ENDIF
  89.             ELSE  
  90.                ? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
  91.                WAIT
  92.             ENDIF
  93.  
  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.  
  124.    CASE task = 'L'
  125.       @ 22,1 SAY 'Which Log file '
  126.       @ 22,15 GET logbook
  127.       READ
  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.  
  136.    ENDCASE
  137. ENDDO
  138. STORE ' ' TO task
  139. RETURN
  140.  
  141.