Simtel MSDOS 1992 June/SIMTEL_0692.cdr/msdos/hamradio/logbook.arc/WAZ.PRG

Text File | 1986-06-22 | 5.0 KB | 170 lines

*WAZ.PRG CALLED FROM LOGBOOK/LOGAWARD VERSION 851203
* SAME AS OBLAST.PRG
* BY JOE KASSER G3ZCZ (C) 1985

STORE 41 TO wazm

DO WHILE task <> '*'
   ERASE
   @ 5,11 SAY  'G3ZCZ WAZ AWARD PACKAGE VERSION 1.5'
   @ 7,1 SAY  'Default WAZ database is'
   @ 7,30 SAY waz
   @ 8,1 SAY 'Default LOGBOOK is'
   @ 8,30 SAY logbook
   @ 10,1 SAY 'UPDATE WAZ RECORDS                            U'
   @ 11,1 SAY 'CREATE A NEW WAZ DATABASE                     C'
   @ 12,1 SAY 'CHANGE WAZ DATABASE                           D'
   @ 13,1 SAY 'CHANGE LOGBOOK                                L'
   @ 14,1 SAY 'PRINT WAZ RECORDS                             P'
   @ 15,1 SAY 'DISPLAY FILES ON DISK DRIVE                   F'
   @ 20,1 SAY 'QUIT THIS MENU                                *'
   @ 22,1 SAY 'QRU'

   @ 22,5 GET task
   READ

   DO CASE

      CASE task = 'F'
           ERASE
           ACCEPT 'WHICH DRIVE ' TO diskdrive
           STORE diskdrive + ':' TO diskdrive
           DISPLAY FILES ON &diskdrive
           RELEASE diskdrive
           WAIT

      CASE task = 'L'
           @ 22,1 SAY 'Which Log file '
           @ 22,15 GET logbook
           READ
           IF FILE (logbook)
              @ 22,1 SAY '                          '
           ELSE
              @ 22,1 SAY ' '
              ? 'ERROR, ',logbook, 'IS NOT PRESENT ON DRIVE'
              WAIT
           ENDIF

      CASE task = 'C'
           STORE 'WAZ' TO bwaz
           IF FILE (bwaz)
              USE WAZ
              ACCEPT 'What is the name of the new WAZ file ? ' TO waz
              IF FILE (waz)
                 ? 'ERROR, WAZ FILE ',waz,' EXISTS ON DEFAULT DRIVE'
              ELSE
                 COPY STRUCTURE TO &waz
                 USE &waz
                 STORE '          ' TO blank
                 STORE 1 TO iteration
                 DO WHILE iteration < wazm
                    APPEND blank
                    STORE iteration + 1 to iteration
                 ENDDO
                 RELEASE blank,iteration
                 USE
              ENDIF
           ELSE
                 ? 'ERROR BLANK WAZ FILE IS NOT ON DEFAULT DRIVE'
           ENDIF
           RELEASE bwaz

      CASE task = 'D'
         @ 22,1 SAY "Which WAZ file "
         @ 22,25 GET waz
         READ
         IF FILE (waz)
         ELSE
            ? 'ERROR WAZ FILE IS NOT ON DEFAULT DRIVE'
         ENDIF

      CASE task = 'U'
         IF logbook = '      '
            @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
         ELSE
            IF FILE (waz)
               DO WAZENTER
            ELSE
               ? 'ERROR WAZ FILE IS NOT ON DEFAULT DRIVE'
            ENDIF
         ENDIF

      CASE task = 'P'
         IF FILE (waz)
            * WAZPRINT VER 851003 THIS PROGRAM PRINTS AN WAZ file
            ERASE
            STORE ' ' TO choice
            @ 5,1 SAY ' '
            ACCEPT 'Whole thing, worked/QSL-d, or QSL-d (T,W,Q)  ' TO choice
            @ 10,1 SAY ' '

            STORE ' ' TO df
            ACCEPT 'DO you want hard copy (Y/N) ?' TO df
            IF df = 'Y'
               SET PRINT ON
            ENDIF

            STORE 99 TO linecount
            STORE  1 TO pagecount
            STORE  0 TO qsled
            STORE  0 TO worked

            USE  &waz
            DO WHILE .NOT.EOF
               IF linecount > 60
                  EJECT
                  ? 'WAZ as of ',DATE() ,'for',callsign,' PAGE',pagecount
                  IF choice = 'Q'
                     ?? ' QSL STATUS'
                  ENDIF
                  STORE pagecount + 1 TO pagecount
                  ?
                  ? '         CALL       DATE  TIME BND MODE STATUS'
                  ? '----------------------------------------------'
                  STORE  5 TO linecount
               ENDIF

               IF choice <> 'T' .AND. dstate = ' '
                  *
               ELSE
                  IF dstate = ' ' .AND. choice = 'Q'
                     *
                  ELSE
                     ? #,dcall,ddate,dtime,dband,dmode
                     STORE linecount + 1 TO linecount
                  ENDIF
               ENDIF
               IF dstate = 'R'
                  IF choice = 'Q'
                  ELSE
                     ?? 'Q'
                  ENDIF
                  STORE qsled + 1 TO qsled
                  STORE worked + 1 TO worked
               ENDIF
               IF dstate = '-'
                  STORE worked + 1 TO worked
               ENDIF
               SKIP
            ENDDO
            ?
            ?
            ? worked,' WORKED     ',qsled,'QSL-D'
            ?
            EJECT
            SET PRINT OFF
            WAIT
            RELEASE choice,df,linecount,pagecount,worked,qsled
            USE
         ELSE
            ? 'ERROR WAZ FILE IS NOT ON DEFAULT DRIVE'
         ENDIF


   ENDCASE

ENDDO
STORE ' ' TO task
RELEASE wazm
RETURN