home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / log / log3_52a / was.prg < prev    next >
Text File  |  1990-05-04  |  4KB  |  139 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: WAS.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 05/04/90     12:17
  9. *:
  10. *:      Called by: LOGAWARD.PRG                  
  11. *:
  12. *:          Calls: WASEDIT.PRG
  13. *:               : WASPRINT.PRG
  14. *:               : LOGCHNGE.PRG
  15. *:
  16. *:           Uses: &WAS           
  17. *:               : &NWAS.DBF      
  18. *:
  19. *:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
  20. *:*********************************************************************
  21. DO WHILE task <> '*'
  22.    CLEAR
  23.    SET COLOR TO W+/R,W+/RB,BG+
  24.    @ 5,11 SAY  'G3ZCZ WAS AWARD PACKAGE VERSION 1.6'
  25.    SET COLOR TO GR+/B,W+/RB,BG+
  26.    @ 7,1 SAY   'Default WAS database is'
  27.    SET COLOR TO W+/R,W+/RB,BG+
  28.    @ 7,25 SAY TRIM(was)
  29.    SET COLOR TO GR+/B,W+/RB,BG+
  30.    @ 8,1 SAY 'Default LOG database is'
  31.    SET COLOR TO W+/R,W+/RB,BG+
  32.    @ 8,25 SAY TRIM(logbook)
  33.    SET COLOR TO GR+/B,W+/RB,BG+
  34.    @ 10,1 SAY 'UPDATE WAS RECORDS                         U'
  35.    @ 11,1 SAY 'CREATE A NEW WAS DATABASE                  C'
  36.    @ 12,1 SAY 'PRINT WAS RECORDS                          P'
  37.    @ 20,1 SAY 'QUIT THIS MENU                             *'
  38.    @ 14,1 SAY 'CHANGE WAS DATABASE                        D'
  39.    @ 15,1 SAY 'CHANGE LOGBOOK                             L'
  40.    @ 16,1 SAY 'DISPLAY FILES ON DISK DRIVE                F'
  41.    @ 22,1 SAY 'QRU'
  42.    
  43.    @ 22,5 GET task
  44.    READ
  45.    
  46.    DO CASE
  47.       
  48.    CASE task = 'F'
  49.       CLEAR
  50.       ACCEPT 'WHICH DRIVE ? ' TO diskdrive
  51.       diskdrive = SUBSTR(diskdrive,1,1)
  52.       STORE diskdrive + ':' TO diskdrive
  53.       DISPLAY Files ON &diskdrive
  54.       RELEASE diskdrive
  55.       WAIT
  56.       
  57.    CASE task = 'D'
  58.       @ 22,1 SAY 'What WAS file ? '
  59.       @ 22,25 GET was
  60.       READ
  61.       IF FILE(was +'.DBF')
  62.       ELSE
  63.          ? 'ERROR, WAS FILE IS NOT ON DEFAULT DRIVE'
  64.          WAIT
  65.       ENDIF
  66.       
  67.    CASE task = 'U'
  68.       IF logbook = '      '
  69.          @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  70.       ELSE
  71.          IF FILE(was + '.DBF')
  72.             IF FILE (logbook + '.DBF')
  73.                DO wasedit
  74.             ELSE
  75.                ? 'ERROR, LOGBOOK IS NOT PRESENT ON DESIGNATED DRIVE'
  76.                WAIT
  77.             ENDIF
  78.          ELSE
  79.             ? 'ERROR, WAS FILE IS NOT ON DEFAULT DRIVE'
  80.             WAIT
  81.          ENDIF
  82.       ENDIF
  83.       
  84.       
  85.    CASE task = 'P'
  86.       IF FILE(was + '.DBF')
  87.          DO wasprint
  88.       ELSE
  89.          ? 'ERROR, WAS FILE IS NOT ON DEFAULT DRIVE'
  90.          WAIT
  91.       ENDIF
  92.       
  93.    CASE task = 'C'
  94.       STORE '          ' TO BLANK
  95.       IF FILE(was + '.DBF')
  96.          ACCEPT 'What is the name of the new WAS file ? ' TO nwas
  97.          IF LEN( nwas) = 1
  98.             ? '   ERROR   BLANK FILE NAMES NOT ALLOWED'
  99.             WAIT
  100.          ELSE
  101.             IF FILE(nwas + '.DBF')
  102.                ? 'ERROR, FILE ALREADY EXISTS'
  103.                WAIT
  104.             ELSE
  105.                ?
  106.                ? 'CREATING blankwas FILE'
  107.                USE &was
  108.                COPY TO &nwas
  109.                USE &nwas
  110.                
  111.                DO WHILE .not. EOF()
  112.                   ? pc,state
  113.                   REPLACE dcall WITH BLANK
  114.                   REPLACE ddate WITH BLANK
  115.                   REPLACE dband WITH BLANK
  116.                   REPLACE dmode WITH BLANK
  117.                   REPLACE dstate WITH BLANK
  118.                   SKIP
  119.                ENDDO
  120.                ?
  121.                ? 'NEW BLANK WAS FILE CREATED'
  122.                USE
  123.             ENDIF
  124.          ENDIF
  125.          RELEASE BLANK,nwas
  126.       ELSE
  127.          ? 'ERROR, WAS FILE IS NOT ON DEFAULT DRIVE'
  128.          WAIT
  129.       ENDIF
  130.       
  131.    CASE task = 'L'
  132.       DO logchnge
  133.       
  134.    ENDCASE
  135. ENDDO
  136. STORE ' ' TO task
  137. RETURN
  138. *: EOF: WAS.PRG
  139.