home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Best of the Best
/
_.img
/
02192
/
logbook.arc
/
WAS.PRG
< prev
next >
Wrap
Text File
|
1987-12-24
|
4KB
|
123 lines
* WAS VERSION 860411 (c) COPYRIGHT 1985,1986 JOE KASSER G3ZCZ
DO WHILE task <> '*'
CLEAR
@ 5,11 SAY 'G3ZCZ WAS AWARD PACKAGE VERSION 1.4'
@ 7,1 SAY 'Default WAS database is'
@ 7,25 SAY was
@ 8,1 SAY 'Default LOG database is'
@ 8,25 SAY logbook
@ 10,1 SAY 'UPDATE WAS RECORDS U'
@ 11,1 SAY 'CREATE A NEW WAS DATABASE C'
@ 12,1 SAY 'PRINT WAS RECORDS P'
@ 20,1 SAY 'QUIT THIS MENU *'
@ 14,1 SAY 'CHANGE WAS DATABASE D'
@ 15,1 SAY 'CHANGE LOGBOOK L'
@ 16,1 SAY 'DISPLAY FILES ON DISK DRIVE F'
@ 22,1 SAY 'QRU'
@ 22,5 GET task
READ
DO CASE
CASE task = 'F'
CLEAR
ACCEPT 'WHICH DRIVE ? ' TO diskdrive
diskdrive = LEFT(diskdrive,1)
STORE diskdrive + ':' TO diskdrive
DISPLAY FILES ON &diskdrive
RELEASE diskdrive
WAIT
CASE task = 'D'
@ 22,1 SAY 'What WAS file ? '
@ 22,25 GET was
READ
IF FILE(was +'.DBF')
ELSE
? 'ERROR, WAS FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
CASE task = 'U'
IF logbook = ' '
@ 23,1 SAY 'OPEN A LOGBOOK FIRST'
ELSE
IF FILE(was + '.DBF')
IF FILE (logbook + '.DBF')
DO WASEDIT
ELSE
? 'ERROR, LOGBOOK IS NOT PRESENT ON DESIGNATED DRIVE'
WAIT
ENDIF
ELSE
? 'ERROR, WAS FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
ENDIF
CASE task = 'P'
IF FILE(was + '.DBF')
DO WASPRINT
ELSE
? 'ERROR, WAS FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
CASE task = 'C'
STORE ' ' TO blank
IF FILE(was + '.DBF')
ACCEPT 'What is the name of the new WAS file ? ' TO nwas
IF LEN( nwas) = 1
? ' ERROR BLANK FILE NAMES NOT ALLOWED'
WAIT
ELSE
IF FILE(nwas + '.DBF')
? 'ERROR, FILE ALREADY EXISTS'
WAIT
ELSE
?
? 'CREATING blankwas FILE'
USE &was
COPY TO &nwas
USE &nwas
DO WHILE .NOT. EOF()
? pc,state
REPLACE dcall WITH blank
REPLACE ddate WITH blank
REPLACE dband WITH blank
REPLACE dmode WITH blank
REPLACE dstate WITH blank
SKIP
ENDDO
?
? 'NEW BLANK WAS FILE CREATED'
USE
ENDIF
ENDIF
RELEASE blank,nwas
ELSE
? 'ERROR, WAS FILE IS NOT ON DEFAULT DRIVE'
WAIT
ENDIF
CASE task = 'L'
@ 22,1 SAY 'Which Log file ? '
@ 22,15 GET logbook
READ
STORE logbook TO logndx
IF FILE (logbook + '.DBF')
@ 22,1 SAY ' '
ELSE
@ 22,1 SAY ' '
? 'ERROR, ',logbook, 'IS NOT PRESENT ON DRIVE'
WAIT
ENDIF
ENDCASE
ENDDO
STORE ' ' TO task
RETURN