home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 100 / 47 / logbook.prg < prev    next >
Text File  |  1985-10-03  |  5KB  |  168 lines
  1. * G3ZCZ AMATEUR RADIO LOG PACKAGE 851001
  2. * COPYRIGHT JOE KASSER G3ZCZ 1985
  3.  
  4. SET TALK OFF
  5.  
  6. * DEFAULT DATA NEEDS CUSTOMISING FOR YOUR STATION
  7. STORE 'G3ZCZ/4X' TO callsign
  8. STORE 'A:' TO diskdrive
  9.  
  10. STORE '        ' TO logbook
  11. STORE ' ' TO task
  12.  
  13. SET DEFAULT TO &diskdrive
  14.  
  15. DO WHILE  task <> '*'
  16.    ERASE
  17.  
  18.    * DISPLAY MENU
  19.    @ 2,10 SAY 'G3ZCZ LOGGING PACKAGE VERSION 1.0'
  20.    @ 4,30 SAY 'DEFAULT DRIVE SET TO  '
  21.    @ 4,53 SAY DISKDRIVE
  22.    @ 4,1  SAY 'CURRENT LOGBOOK IS'
  23.    @ 4,21 SAY logbook
  24.  
  25.    @ 6,1  SAY 'CHANGE LOG FILE                             L'
  26.    @ 7,1  SAY 'PRINT LOG PAGES                             P'
  27.    @ 8,1  SAY 'PRINT LOG INDEXED BY CALL SIGN              C'
  28.    @ 9,1  SAY 'APPEND ENTRIES                              A'
  29.    @ 10,1 SAY 'UPDATE DXCC RECORDS                         D'
  30.    @ 11,1 SAY 'HUNT FOR PREFIX/CALL IN LOG                 H'
  31.    @ 12,1 SAY 'SUMMARISE LOG                               S'
  32.    @ 13,1 SAY 'UPDATE QSL STATUS                           Q'
  33.    @ 14,1 SAY 'PRINT DXCC RECORDS                          R'
  34.    @ 15,1 SAY 'QUIT LOGGING PACKAGE                        *'
  35.  
  36.    @ 16,1 SAY 'Change default drive                        X'
  37.    @ 17,1 SAY 'Change operator callsign                    Z'
  38.    @ 18,1 SAY 'TRANSFER CONTEST DATA INTO LOG (manual)     U'
  39.    @ 19,1 SAY 'Append Contest log (.LOG) to LOG            V'
  40.    @ 20,1 SAY 'CREATE NEW LOGBOOK DATABASE                 N'
  41.    @ 22,1 SAY 'QRU'
  42.  
  43.    @ 22,5 GET task
  44.    READ
  45.  
  46.    DO CASE
  47.  
  48.       CASE task = 'N'
  49.            @ 22,1 SAY "What is the name of the new Log file "
  50.            @ 22,40 GET logbook
  51.            READ
  52.            @ 22,1 SAY "                                                  "
  53.            USE blanklog
  54.            COPY STRUCTURE TO &logbook
  55.            USE &logbook
  56.            INDEX ON call TO &logbook
  57.  
  58.       CASE task = 'R'
  59.            IF logbook = '      '
  60.               @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  61.               STORE 'L' TO task
  62.            ELSE
  63.               DO DXCCPRINT
  64.            ENDIF
  65.            
  66.       CASE task ='S'
  67.            IF logbook = '      '
  68.               @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  69.               STORE 'L' TO task
  70.            ELSE
  71.               DO LOGSTAT
  72.            ENDIF
  73.  
  74.       CASE task = 'P'
  75.            IF logbook = '      '
  76.               @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  77.               STORE 'L' TO task
  78.            ELSE
  79.               DO LOGPRINT
  80.            ENDIF
  81.            
  82.       CASE task = 'H'
  83.            IF logbook = '      '
  84.               @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  85.               STORE 'L' TO task
  86.            ELSE
  87.               DO LOGSRCH
  88.            ENDIF
  89.            
  90.       CASE task = 'A'
  91.            IF logbook = '      '
  92.               @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  93.               STORE 'L' TO task
  94.            ELSE
  95.               DO LOGADD
  96.            ENDIF
  97.  
  98.       case task = 'Q'
  99.            IF logbook = '      '
  100.               @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  101.               STORE 'L' TO task
  102.            ELSE
  103.               DO LOGQSL
  104.            ENDIF
  105.  
  106.       CASE task = 'C'
  107.            IF logbook = '      '
  108.               @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  109.               STORE 'L' TO task
  110.            ELSE
  111.               DO LOGCALL
  112.            ENDIF
  113.  
  114.       CASE task = 'D'
  115.            IF logbook = '      '
  116.               @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  117.               STORE 'L' TO task
  118.            ELSE
  119.               DO LOGDXCC
  120.            ENDIF
  121.  
  122.       CASE task = 'U'
  123.            IF logbook = '      '
  124.               @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  125.               STORE 'L' TO task
  126.            ELSE
  127.               DO UPDATE
  128.            ENDIF
  129.  
  130.       CASE task = 'V'
  131.            IF logbook = '      '
  132.               @ 23,1  SAY 'OPEN A LOGBOOK FIRST'
  133.               STORE 'L' TO task
  134.            ELSE
  135.               DO LOG2DBF
  136.            ENDIF
  137.  
  138.       CASE task = 'X'
  139.            @ 4,53 GET diskdrive
  140.            READ
  141.            SET default TO &diskdrive
  142.  
  143.       CASE task = 'Z'
  144.            ERASE
  145.            @ 10,1 SAY "CALL SIGN IS "
  146.            @ 10,25 GET callsign
  147.            READ
  148.  
  149.       CASE task = 'L'
  150.            @ 22,1 SAY "Which Log file "
  151.            @ 22,15 GET logbook
  152.            READ
  153.            @ 22,1 SAY "                          "
  154.  
  155.       ENDCASE
  156. ENDDO
  157. USE
  158. RELEASE task
  159. RETURN
  160.                      "
  161.  
  162.       ENDCASE
  163. ENDDO
  164. RELEASE task
  165. RETURN
  166. 12,1 SAY 'SUMMARISE LOG                               S'
  167.    @ 13,1 SAY 'UPDATE QSL STATUS                           Q'
  168.    @ 14