home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / WAZ.PRG < prev    next >
Text File  |  1987-12-24  |  5KB  |  173 lines
  1. *WAZ.PRG CALLED FROM LOGBOOK/LOGAWARD VERSION 851203
  2. * SAME AS OBLAST.PRG
  3. * BY JOE KASSER G3ZCZ (C) 1985
  4.  
  5. STORE 41 TO wazm
  6.  
  7. DO WHILE task <> '*'
  8.    CLEAR
  9.    @ 5,11 SAY  'G3ZCZ WAZ AWARD PACKAGE VERSION 1.6'
  10.    @ 7,1 SAY  'Default WAZ database is'
  11.    @ 7,30 SAY waz
  12.    @ 8,1 SAY 'Default LOGBOOK is'
  13.    @ 8,30 SAY logbook
  14.    @ 10,1 SAY 'UPDATE WAZ RECORDS                            U'
  15.    @ 11,1 SAY 'CREATE A NEW WAZ DATABASE                     C'
  16.    @ 12,1 SAY 'CHANGE WAZ DATABASE                           D'
  17.    @ 13,1 SAY 'CHANGE LOGBOOK                                L'
  18.    @ 14,1 SAY 'PRINT WAZ RECORDS                             P'
  19.    @ 15,1 SAY 'DISPLAY FILES ON DISK DRIVE                   F'
  20.    @ 20,1 SAY 'QUIT THIS MENU                                *'
  21.    @ 22,1 SAY 'QRU'
  22.  
  23.    @ 22,5 GET task
  24.    READ
  25.  
  26.    DO CASE
  27.  
  28.       CASE task = 'F'
  29.          CLEAR
  30.          ACCEPT 'WHICH DRIVE ? ' TO diskdrive
  31.          diskdrive = LEFT(diskdrive,1)
  32.          STORE diskdrive + ':' TO diskdrive
  33.          DISPLAY FILES ON &diskdrive
  34.          RELEASE diskdrive
  35.          WAIT
  36.  
  37.       CASE task = 'L'
  38.            @ 22,1 SAY 'Which Log file ? '
  39.            @ 22,15 GET logbook
  40.            READ
  41.            STORE logbook TO logndx
  42.            IF FILE (logbook+'.DBF')
  43.               @ 22,1 SAY '                          '
  44.            ELSE
  45.               @ 22,1 SAY ' '
  46.               ? 'ERROR, ',logbook, 'IS NOT PRESENT ON DRIVE'
  47.               WAIT
  48.            ENDIF
  49.  
  50.       CASE task = 'C'
  51.            STORE 'WAZ' TO bwaz
  52.            IF FILE (bwaz+'.DBF')
  53.               USE WAZ
  54.               ACCEPT 'What is the name of the new WAZ file ? ' TO waz
  55.               IF FILE (waz+'.DBF')
  56.                  ? 'ERROR, WAZ FILE ',waz,' EXISTS ON DEFAULT DRIVE'
  57.               ELSE
  58.                  COPY STRUCTURE TO &waz
  59.                  USE &waz
  60.                  STORE '          ' TO blank
  61.                  STORE 1 TO iteration
  62.                  DO WHILE iteration < wazm
  63.                     APPEND blank
  64.                     STORE iteration + 1 to iteration
  65.                  ENDDO
  66.                  RELEASE blank,iteration
  67.                  USE
  68.               ENDIF
  69.            ELSE
  70.                  ? 'ERROR BLANK WAZ FILE IS NOT ON DEFAULT DRIVE'
  71.            ENDIF
  72.            RELEASE bwaz
  73.  
  74.       CASE task = 'D'
  75.          @ 22,1 SAY 'Which WAZ file ? '
  76.          @ 22,25 GET waz
  77.          READ
  78.          IF FILE (waz+'.DBF')
  79.          ELSE
  80.             ? 'ERROR WAZ FILE IS NOT ON DEFAULT DRIVE'
  81.          ENDIF
  82.  
  83.       CASE task = 'U'
  84.          IF logbook = '      '
  85.             @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  86.          ELSE
  87.             IF FILE (waz+'.DBF')
  88.                DO WAZENTER
  89.             ELSE
  90.                ? 'ERROR WAZ FILE IS NOT ON DEFAULT DRIVE'
  91.             ENDIF
  92.          ENDIF
  93.  
  94.       CASE task = 'P'
  95.          IF FILE (waz+'.DBF')
  96.             * WAZPRINT VER 851003 THIS PROGRAM PRINTS AN WAZ file
  97.             CLEAR
  98.             STORE ' ' TO choice
  99.             @ 5,1 SAY ' '
  100.             ACCEPT 'Whole thing, worked/QSL-d, or QSL-d (T,W,Q) ? ' TO choice
  101.             @ 10,1 SAY ' '
  102.  
  103.             STORE ' ' TO df
  104.             ACCEPT 'DO you want hard copy (Y/N) ? ' TO df
  105.             IF df = 'Y'
  106.                SET PRINT ON
  107.             ENDIF
  108.  
  109.             STORE 99 TO linecount
  110.             STORE  1 TO pagecount
  111.             STORE  0 TO qsled
  112.             STORE  0 TO worked
  113.  
  114.             USE  &waz
  115.             DO WHILE .NOT.EOF()
  116.                IF linecount > 60
  117.                   IF df = 'Y'
  118.                      EJECT
  119.                   ENDIF
  120.                   ? 'WAZ as of ',DTOC(DATE()) ,'for',callsign,' PAGE',pagecount
  121.                   IF choice = 'Q'
  122.                      ?? ' QSL STATUS'
  123.                   ENDIF
  124.                   STORE pagecount + 1 TO pagecount
  125.                   ?
  126.                   ? '              CALL       DATE  TIME BND MODE STATUS'
  127.                   ? '---------------------------------------------------'
  128.                   STORE  5 TO linecount
  129.                ENDIF
  130.  
  131.                IF choice <> 'T' .AND. dstate = ' '
  132.                   *
  133.                ELSE
  134.                   IF dstate = ' ' .AND. choice = 'Q'
  135.                      *
  136.                   ELSE
  137.                      ? RECNO(),dcall,ddate,dtime,dband,dmode
  138.                      STORE linecount + 1 TO linecount
  139.                   ENDIF
  140.                ENDIF
  141.                IF dstate = 'R'
  142.                   IF choice = 'Q'
  143.                   ELSE
  144.                      ?? 'Q'
  145.                   ENDIF
  146.                   STORE qsled + 1 TO qsled
  147.                   STORE worked + 1 TO worked
  148.                ENDIF
  149.                IF dstate = '-'
  150.                   STORE worked + 1 TO worked
  151.                ENDIF
  152.                SKIP
  153.             ENDDO
  154.             ?
  155.             ?
  156.             ? worked,' WORKED     ',qsled,'QSL-D'
  157.             ?
  158.             IF df = 'Y'
  159.                EJECT
  160.                SET PRINT OFF
  161.             ENDIF
  162.             WAIT
  163.             RELEASE choice,df,linecount,pagecount,worked,qsled
  164.             USE
  165.          ELSE
  166.             ? 'ERROR WAZ FILE IS NOT ON DEFAULT DRIVE'
  167.          ENDIF
  168.    ENDCASE
  169. ENDDO
  170. STORE ' ' TO task
  171. RELEASE wazm
  172. RETURN
  173.