home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 3
/
hamradioversion3.0examsandprograms1992.iso
/
log
/
log3_52a
/
logaward.prg
< prev
next >
Wrap
Text File
|
1990-05-04
|
2KB
|
72 lines
*:*********************************************************************
*:
*: 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