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

Text File | 1986-06-22 | 5.1 KB | 171 lines

*OBLAST.PRG CALLED FROM LOGBOOK/LOGAWARD VERSION 851203
STORE 192 TO oblastm

DO WHILE task <> '*'
   ERASE
   @ 5,11 SAY  'G3ZCZ OBLAST AWARD PACKAGE VERSION 1.4'
   @ 7,1 SAY  'Default OBLAST database is'
   @ 7,30 SAY oblast
   @ 8,1 SAY 'Default LOGBOOK is'
   @ 8,30 SAY logbook
   @ 10,1 SAY 'UPDATE OBLAST RECORDS                         U'
   @ 11,1 SAY 'CREATE A NEW OBLAST DATABASE                  C'
   @ 12,1 SAY 'PRINT OBLAST RECORDS                          P'
   @ 20,1 SAY 'QUIT THIS MENU                                *'
   @ 13,1 SAY 'CHANGE OBLAST DATABASE                        D'
   @ 14,1 SAY 'CHANGE LOGBOOK                                L'
   @ 15,1 SAY 'DISPLAY FILES ON DISK DRIVE                   F'
   @ 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 'OBLAST' TO boblast
           IF FILE (boblast)
              USE OBLAST
              ACCEPT 'What is the name of the new OBLAST file ? ' TO oblast
              IF FILE (oblast)
                 ? 'ERROR, OBLAST FILE ',oblast,' EXISTS ON DEFAULT DRIVE'
              ELSE
                 COPY STRUCTURE TO &oblast
                 USE &oblast
                 STORE '          ' TO blank
                 STORE 1 TO iteration
                 DO WHILE iteration < oblastm
                    APPEND blank
                    STORE iteration + 1 to iteration
                 ENDDO
                 RELEASE blank,iteration
                 USE
              ENDIF
           ELSE
                 ? 'ERROR BLANK OBLAST FILE IS NOT ON DEFAULT DRIVE'
                 WAIT
           ENDIF
           RELEASE boblast

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

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

      CASE task = 'P'
         IF FILE (oblast)
            * OBLASTPR VER 851003 THIS PROGRAM PRINTS AN OBLAST 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  &oblast
            DO WHILE .NOT.EOF
               IF linecount > 60
                  EJECT
                  ? 'OBLAST  PRINTOUT',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
                     ?? dstate
                  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 OBLAST FILE IS NOT ON DEFAULT DRIVE'
            WAIT
         ENDIF


   ENDCASE

ENDDO
STORE ' ' TO task
RELEASE oblastm
RETURN