*:*********************************************************************
*:
*:        Program: LOGAWARD.PRG
*:
*:         System: PC-HAM Logbook
*:         Author: Joe Kasser G3ZCZ
*:      Copyright (c) 1990, Joe Kasser
*:  Last modified: 05/04/90     12:17
*:
*:      Called by: LOGBOOK.PRG                   
*:
*:          Calls: WAS.PRG
*:               : WAZ.PRG
*:               : DXCC.PRG
*:               : OBLAST.PRG
*:               : LOGCHNGE.PRG
*:               : AWARD.PRG
*:               : LZ60.PRG
*:
*:      Documented 05/04/90 at 13:49                SNAP!  version 3.12f
*:*********************************************************************

DO WHILE task <> '*'
   CLEAR
   SET COLOR TO W+/R,W+/RB,BG+
   
   @ 2,5 SAY 'G3ZCZ AWARD RECORD KEEPING FUNCTIONS Version  1.5'
   SET COLOR TO GR+/B,W+/RB,BG+
   
   @ 4,1  SAY 'PICK AN AWARD PACKAGE, the following are supported'
   @ 6,1  SAY 'WAZ                                         Z'
   @ 7,1  SAY 'WAS                                         S'
   @ 8,1  SAY 'DXCC                                        D'
   @ 9,1  SAY 'OBLAST                                      O'
   @ 10,1 SAY 'GENERAL AWARD                               G'
   @ 11,1 SAY 'CHANGE LOGBOOK                              L'
   @ 12,1 SAY 'DISPLAY FILES ON DISK DRIVE                 F'
   @ 16,1 SAY 'LZ60 AWARD  (BULGARIAN 60TH ANNIVERSARY)    B'
   @ 20,1 SAY 'QUIT THIS MENU                              *'
   @ 22,1 SAY 'QRU'
   @ 22,5 GET task
   READ
   
   DO CASE
   CASE task ='S'
      DO    was
   CASE task = 'Z'
      DO    waz
   CASE task = 'D'
      DO    dxcc
   CASE task = 'O'
      DO    oblast
   CASE task = 'L'
      DO logchnge
   CASE task = 'G'
      DO award
   CASE task = 'F'
      CLEAR
      ACCEPT 'WHICH DRIVE ? ' TO diskdrive
      diskdrive = SUBSTR(diskdrive,1,1)
      STORE diskdrive + ':' TO diskdrive
      DISPLAY Files ON &diskdrive
      RELEASE diskdrive
      WAIT
   CASE task = 'B'
      DO lz60
   ENDCASE
ENDDO
STORE ' ' TO task
RETURN
*: EOF: LOGAWARD.PRG