home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 3
/
hamradioversion3.0examsandprograms1992.iso
/
log
/
log3_52a
/
award.prg
next >
Wrap
Text File
|
1990-05-04
|
5KB
|
168 lines
*:*********************************************************************
*:
*: Program: AWARD.PRG
*:
*: System: PC-HAM Logbook
*: Author: Joe Kasser G3ZCZ
*: Copyright (c) 1990, Joe Kasser
*: Last modified: 05/04/90 12:17
*:
*: Called by: LOGAWARD.PRG
*:
*: Calls: AWARDEDT.PRG
*: : AWARDPRN.PRG
*: : LOGCHNGE.PRG
*:
*: Uses: &AWARD
*: : &NAWARD.DBF
*:
*: Indexes: &AWARD
*: : &NAWARD
*:
*: Documented 05/04/90 at 13:49 SNAP! version 3.12f
*:*********************************************************************
CLEAR
SET COLOR TO W+/R,W+/RB,BG+
@ 5,11 SAY 'G3ZCZ GENERIC AWARD PACKAGE VERSION 1.7'
SET COLOR TO GR+/B,W+/RB,BG+
@ 7,1 SAY 'Default AWARD database is'
SET COLOR TO W+/R,W+/RB,BG+
@ 7,30 SAY TRIM(award)
SET COLOR TO GR+/B,W+/RB,BG+
@ 8,1 SAY 'Default LOG database is'
SET COLOR TO W+/R,W+/RB,BG+
@ 8,30 SAY TRIM(logbook)
SET COLOR TO GR+/B,W+/RB,BG+
@ 22,1 SAY 'What AWARD file '
@ 22,25 GET award
READ
IF FILE(award+'.DBF')
ELSE
? 'WARNING:- AWARD FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
DO WHILE task <> '*'
CLEAR
SET COLOR TO W+/R,W+/RB,BG+
@ 5,11 SAY 'G3ZCZ GENERIC AWARD PACKAGE VERSION 1.6'
SET COLOR TO GR+/B,W+/RB,BG+
@ 7,1 SAY 'Default AWARD database is'
SET COLOR TO W+/R,W+/RB,BG+
@ 7,30 SAY TRIM(award)
SET COLOR TO GR+/B,W+/RB,BG+
@ 8,1 SAY 'Default LOG database is'
SET COLOR TO W+/R,W+/RB,BG+
@ 8,30 SAY TRIM(logbook)
SET COLOR TO GR+/B,W+/RB,BG+
@ 10,1 SAY 'UPDATE AWARD RECORDS U'
@ 11,1 SAY 'CREATE A NEW AWARD DATABASE C'
@ 12,1 SAY 'PRINT AWARD RECORDS P'
@ 13,1 SAY 'CHANGE AWARD DATABASE D'
@ 14,1 SAY 'CHANGE LOGBOOK L'
@ 15,1 SAY 'RE-INDEX Award file I'
@ 16,1 SAY 'DISPLAY FILES ON DISK DRIVE F'
@ 20,1 SAY 'QUIT THIS MENU *'
@ 22,1 SAY 'QRU'
@ 22,5 GET task
READ
DO CASE
CASE task = 'I'
USE &award
INDEX ON pc TO &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 = 'D'
@ 22,1 SAY 'What AWARD file ? '
@ 22,25 GET award
READ
IF FILE(award+'.DBF')
ELSE
? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
CASE task = 'U'
IF logbook = ' '
@ 23,1 SAY 'OPEN A LOGBOOK FIRST'
ELSE
IF FILE(award+'.DBF')
IF FILE (logbook+'.DBF')
DO awardedt
ELSE
? 'ERROR, LOGBOOK IS NOT PRESENT ON DESIGNATED DRIVE'
WAIT
ENDIF
ELSE
? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
ENDIF
CASE task = 'P'
IF FILE (award+'.DBF')
CLEAR
STORE ' ' TO choice
@ 5,1 SAY ' '
ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ? ' TO choice
@ 10,1 SAY ' '
IF choice = 'P' .or. choice = 'W' .or. choice = 'Q'
STORE ' ' TO pf
ACCEPT 'Do you want hard copy (Y/N) ? ' TO pf
DO awardprn
RELEASE pf
ELSE
? choice,' IS NOT VALID, ENTER P or W or Q only please '
WAIT
ENDIF
ELSE
? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
CASE task = 'C'
STORE ' ' TO BLANK
IF FILE(award+'.DBF')
ACCEPT 'What is the name of the new AWARD file ? ' TO naward
IF LEN( naward) = 1
? ' ERROR BLANK FILE NAMES NOT ALLOWED'
WAIT
ELSE
IF FILE(naward+'.DBF')
? 'ERROR, FILE ALREADY EXISTS'
WAIT
ELSE
?
? 'CREATING blankaward FILE'
USE &award
COPY STRUCTURE TO &naward
USE &naward
INDEX ON pc TO &naward
STORE naward TO award
?
? 'NEW BLANK AWARD FILE CREATED'
USE
ENDIF
ENDIF
RELEASE BLANK,naward
ELSE
? 'ERROR, AWARD FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
CASE task = 'L'
DO logchnge
ENDCASE
ENDDO
STORE ' ' TO task
RETURN
*: EOF: AWARD.PRG