The Best of the Best/_.img/02192/logbook.arc/DXCC.PRG

Text File | 1987-12-24 | 6KB | 188 lines

*DXCC.PRG CALLED FROM LOGBOOK/LOGAWARD VERSION 860626/871210
* BY JOE KASSER G3ZCZ (c) 1985,1986
PUBLIC thisband, choice
DO WHILE task <> '*'
   CLEAR
   @ 3,11 SAY  'G3ZCZ DXCC AWARD PACKAGE Version 1.9'
   @ 5,1  SAY 'Default DXCC database is '
   @ 5,26 SAY dxcc
   @  6,1 SAY 'Default LOG database is'
   @ 6,26 SAY logbook
   @  9,1 SAY 'UPDATE DXCC RECORDS  (Automatic)            U'
   @ 10,1 SAY 'UPDATE DXCC RECORDS  (Manual)               M'
   @ 11,1 SAY 'CREATE A NEW DXCC DATABASE                  C'
   @ 12,1 SAY 'CREATE 5BDXCC RECORDS                       5'
   @ 13,1 SAY 'PRINT DXCC RECORDS                          P'
   @ 14,1 SAY 'ADD PREFIXES TO A DXCC DATABASE             A'
   @ 15,1 SAY 'CHANGE DXCC DATABASE                        D'
   @ 16,1 SAY 'EDIT PREFIXES IN DXCC RECORD FILE           E'
   @ 17,1 SAY 'CHANGE LOGBOOK                              L'
   @ 18,1 SAY 'UPDATE SINGLE BAND DXCC RECORD (Automatic)  S'
   @ 19,1 SAY 'DISPLAY DATA FOR A PREFIX/COUNTRY           X'
   @ 20,1 SAY 'DISPLAY FILES ON DISK DRIVE                 F'
   @ 21,1 SAY 'QUIT THIS MENU                              *'
   @ 22,1 SAY 'QRU'
   @ 22,5 GET task
   READ

   IF task = 'F'
      CLEAR
      ACCEPT 'WHICH DRIVE ' TO diskdrive
      diskdrive = left(diskdrive,1)
      STORE diskdrive + ':' TO diskdrive
      DISPLAY FILES ON &diskdrive
      RELEASE diskdrive
      WAIT
   ENDIF

   IF task = 'D'
      @ 22,1 SAY 'Which DXCC file ?'
      @ 22,20 GET dxcc
      READ
      IF FILE(dxcc+'.DBF')
         @ 22,1 SAY '                          '
      ELSE
         ? 'WARNING, file',dxcc,' does not exist on default disk'
         WAIT
      ENDIF
   ENDIF

   IF task = 'C'
      STORE 'DXCC' TO dxcc
      IF FILE(dxcc+'.DBF')
         STORE '           ' TO blank
         ACCEPT 'What is the name of the new DXCC file ? ' TO dxcc
         ?
         DO DXCC5BGN
      ELSE
         ? 'ERROR, Blank file DXCC.DBF does not exist on default disk'
         WAIT
      ENDIF
   ENDIF

   IF task = 'L'
      @ 22,1 SAY 'Which Log file ?'
      @ 22,19 GET logbook
      READ
      STORE logbook TO logndx
      IF FILE (logbook+'.DBF')
         @ 22,1 SAY '                          '
      ELSE
         @ 22,1 SAY ' '
         ? 'ERROR, ',logbook, 'IS NOT PRESENT ON DRIVE'
         WAIT
      ENDIF
   ENDIF

   IF task = '*'
      * DO NOTHING
   ELSE
      IF FILE (dxcc+'.DBF')
         *FILE EXISTS
         DO CASE

         CASE task = 'S'
            DO DXCCSB

         CASE task = 'E'
            DO DXCCPXED

         CASE task = '5'
            DO DXCC5B

         CASE task = 'A'
            DO DXCCPXAD

         CASE task = 'P'
            CLEAR
            STORE ' ' TO choice
            @ 5,1 SAY ' '
            ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ? ' TO choice
            @ 10,1 SAY ' '
            IF CHOICE = 'P' .OR. CHOICE = 'W' .OR. CHOICE = 'Q'
               STORE ' ' TO pf
               ACCEPT 'Do you want hard copy (Y/N) ? ' TO pf
               DO DXCCPRNT
            ELSE
               ? CHOICE,' IS NOT VALID, ENTER  P or W  or Q only please '
            ENDIF
            WAIT

         CASE task = 'U'
            IF logbook = '      '
               @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
               WAIT
            ELSE
               IF FILE (logbook+'.DBF')
                  DO DXCCUPDT
               ELSE
                  @ 23,1 SAY 'ERROR, NO LOGBOOK PRESENT ON DEFAULT DRIVE'
                  WAIT
               ENDIF
            ENDIF

         CASE task = 'M'
            IF logbook = '      '
               @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
               WAIT
            ELSE
               IF FILE (logbook+'.DBF')
                  DO DXCCMAN
               ELSE
                  @ 23,1 SAY 'ERROR, NO LOGBOOK PRESENT ON DEFAULT DRIVE'
                  WAIT
               ENDIF
            ENDIF

        CASE task = 'X'
             CLEAR
             STORE '    ' TO epx
             USE &dxcc
             GOTO BOTTOM
             STORE RECNO() TO lastpx
             DO WHILE epx <> '*'
                @ 8,1 SAY ' CURRENT DXCC FILE IS'
                @ 8,25 SAY dxcc
                @ 10,1 SAY ' Which Prefix  (* to terminate) ? '
                @ 10,35 GET epx
                READ
                STORE .T. TO fpx
                IF epx <> '*'
                   LOCATE FOR px = TRIM(epx)
                   IF RECNO() = lastpx
                      *ERROR OR LAST PREFIX
                      LOCATE FOR px1 = TRIM(epx)
                      IF RECNO() < lastpx
                         STORE .F. TO fpx
                      ENDIF
                   ELSE
                      STORE .F. TO fpx
                   ENDIF
                   IF fpx
                      @ 12,1  SAY 'ERROR  ???'
                      ?? '                                              '
                   ELSE
                      @ 12,1 SAY country
                      @ 12,11 SAY ' '
                      ?? px,px1,dcall,ddate,dtime,dband,dmode,dstate
                   ENDIF
                ENDIF
             ENDDO
             USE
             RELEASE epx,fpx,lastpx

        CASE task = 'L' .OR. task = 'C' .OR. task = 'D' .OR. task = 'F'
           * DO NOTHING, INHIBIT OTHERWISE BRANCH HERE

         OTHERWISE
            ? 'ERROR, DXCC DATABASE does not exist on default disk'
            WAIT
         ENDCASE
      ENDIF
   ENDIF
ENDDO
STORE ' ' TO task
USE
RELEASE thisband, choice
RETURN