home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / logbook.arc / LOGBOOK.PRG < prev    next >
Text File  |  1987-12-24  |  3KB  |  106 lines
  1. * G3ZCZ AMATEUR RADIO LOG PACKAGE 861128
  2. * (c) COPYRIGHT JOE KASSER G3ZCZ 1985,1986,1987
  3.  
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6.  
  7. PUBLIC logndx, logbook, waz, was, award, dxcc, oblast, callsign, pf, gmt
  8.  
  9. SET TALK OFF
  10. CLEAR ALL
  11. STORE 'LOG       ' TO logndx
  12. STORE 'LOG       ' TO logbook
  13. STORE 'WAZ       ' TO waz
  14. STORE 'WAS       ' TO was
  15. STORE 'AWARD     ' TO award
  16. STORE 'DXCC      ' TO dxcc
  17. STORE 'OBLAST    ' TO oblast
  18. STORE 'G3ZCZ     ' TO callsign
  19. STORE 0   TO gmt
  20. STORE 'LOGBOOK' TO susie
  21. IF FILE(susie+'.MEM')
  22.    RESTORE FROM LOGBOOK
  23. ELSE
  24.    CLEAR
  25.    @ 12,4 SAY  'INITALISATION SEQUENCE '
  26.    ?
  27.    ACCEPT 'What is your callsign ? ' TO callsign
  28.    ACCEPT 'What is your offset to UTC (HH) ? ' TO cgmt
  29.    STORE VAL(cgmt) TO gmt
  30. ENDIF
  31. RELEASE susie
  32.  
  33. STORE ' ' TO task
  34. DO WHILE  task <> '*'
  35.    CLEAR
  36.  
  37.    * DISPLAY MENU
  38.    @ 2,10 SAY 'G3ZCZ LOGGING PACKAGE VERSION 3.0'
  39.    @ 4,15 SAY 'COPYRIGHT (c) 1986, 1987'
  40.    @ 6,1 SAY 'Default LOG database is'
  41.    @ 6,25 SAY logbook
  42.    @ 8,10 SAY  'LOG FUNCTIONS                    L'
  43.    @ 9,10 SAY  'AWARDS                           A'
  44.    @ 10,10 SAY 'MISCELLANEOUS FUNCTIONS          M'
  45.    @ 11,10 SAY 'DISPLAY FILES ON DISK DRIVE      F'
  46.    @ 12,10 SAY 'POSITION QSL LABELS ON PRINTER   P'
  47.    @ 16,10 SAY 'RETURN TO DOS                    Q'
  48.    @ 18,10 SAY 'QUIT LOG PACKAGE                 *'
  49.    @ 20,1 SAY 'QRU'
  50.    @ 20,10 GET task
  51.    READ
  52.    task = upper(task)
  53.  
  54.    DO CASE
  55.    CASE task = 'P'
  56.         * positions labels for QSL's
  57.         ACCEPT 'Is Printer Ready ? ' to oktorun
  58.         oktorun = 'N'
  59.         DO WHILE oktorun <> 'Y'
  60.            SET CONSOLE OFF
  61.            SET PRINT ON
  62.            ? 'TO RADIO  '+CHR(14)+'G3ZCZ/W8'+CHR(20)
  63.            ? '* * * *   * *'
  64.            ? '*** * *   *     *      * *** *** ***     **'
  65.            ? '*** *** * *     *** * *** *     *** *** * *'
  66.            ? 'LAST LINE'
  67.            ?
  68.            SET PRINT OFF
  69.            SET CONSOLE ON
  70.            ACCEPT 'Are labels positioned properly (Y/N) ? ' to oktorun
  71.            oktorun = left(oktorun,1)
  72.         enddo
  73.         RELEASE oktorun
  74.  
  75.    CASE task = 'F'
  76.          CLEAR
  77.          ACCEPT 'WHICH DRIVE ? ' TO diskdrive
  78.          diskdrive = LEFT(diskdrive,1)
  79.          STORE diskdrive + ':' TO diskdrive
  80.          DISPLAY FILES ON &diskdrive
  81.          RELEASE diskdrive
  82.          WAIT
  83.  
  84.    CASE task = 'L'
  85.         DO LOGFUNCT
  86.  
  87.    CASE task = 'A'
  88.         DO LOGAWARD
  89.  
  90.    CASE task = 'M'
  91.         DO LOGMISCF
  92.  
  93.    CASE task = 'Q'
  94.         SAVE TO logbook
  95.         QUIT
  96.    ENDCASE
  97.  
  98. ENDDO
  99. RELEASE task,cgmt
  100. SAVE TO logbook
  101. USE
  102. CLEAR
  103. @ 12,12 SAY 'Enter QUIT <CR> to return to DOS'
  104. @ 20,40 SAY '73 de G3ZCZ'
  105. RETURN
  106.