home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3 / hamradioversion3.0examsandprograms1992.iso / log / log3_52a / logaward.prg < prev    next >
Text File  |  1990-05-04  |  2KB  |  72 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: LOGAWARD.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 05/04/90     12:17
  9. *:
  10. *:      Called by: LOGBOOK.PRG                   
  11. *:
  12. *:          Calls: WAS.PRG
  13. *:               : WAZ.PRG
  14. *:               : DXCC.PRG
  15. *:               : OBLAST.PRG
  16. *:               : LOGCHNGE.PRG
  17. *:               : AWARD.PRG
  18. *:               : LZ60.PRG
  19. *:
  20. *:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
  21. *:*********************************************************************
  22.  
  23. DO WHILE task <> '*'
  24.    CLEAR
  25.    SET COLOR TO W+/R,W+/RB,BG+
  26.    
  27.    @ 2,5 SAY 'G3ZCZ AWARD RECORD KEEPING FUNCTIONS Version  1.5'
  28.    SET COLOR TO GR+/B,W+/RB,BG+
  29.    
  30.    @ 4,1  SAY 'PICK AN AWARD PACKAGE, the following are supported'
  31.    @ 6,1  SAY 'WAZ                                         Z'
  32.    @ 7,1  SAY 'WAS                                         S'
  33.    @ 8,1  SAY 'DXCC                                        D'
  34.    @ 9,1  SAY 'OBLAST                                      O'
  35.    @ 10,1 SAY 'GENERAL AWARD                               G'
  36.    @ 11,1 SAY 'CHANGE LOGBOOK                              L'
  37.    @ 12,1 SAY 'DISPLAY FILES ON DISK DRIVE                 F'
  38.    @ 16,1 SAY 'LZ60 AWARD  (BULGARIAN 60TH ANNIVERSARY)    B'
  39.    @ 20,1 SAY 'QUIT THIS MENU                              *'
  40.    @ 22,1 SAY 'QRU'
  41.    @ 22,5 GET task
  42.    READ
  43.    
  44.    DO CASE
  45.    CASE task ='S'
  46.       DO    was
  47.    CASE task = 'Z'
  48.       DO    waz
  49.    CASE task = 'D'
  50.       DO    dxcc
  51.    CASE task = 'O'
  52.       DO    oblast
  53.    CASE task = 'L'
  54.       DO logchnge
  55.    CASE task = 'G'
  56.       DO award
  57.    CASE task = 'F'
  58.       CLEAR
  59.       ACCEPT 'WHICH DRIVE ? ' TO diskdrive
  60.       diskdrive = SUBSTR(diskdrive,1,1)
  61.       STORE diskdrive + ':' TO diskdrive
  62.       DISPLAY Files ON &diskdrive
  63.       RELEASE diskdrive
  64.       WAIT
  65.    CASE task = 'B'
  66.       DO lz60
  67.    ENDCASE
  68. ENDDO
  69. STORE ' ' TO task
  70. RETURN
  71. *: EOF: LOGAWARD.PRG
  72.