home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
log
/
hamsys
/
hamreset.bas
< prev
next >
Wrap
BASIC Source File
|
1987-02-18
|
497b
|
13 lines
10 'PROGRAM TO RESET SYSTEM - HAMRESET
20 CLS: PRINT "THIS PROGRAM WILL RESET YOUR FILE TO ZERO"
30 PRINT "TO RUN IT YOU MUST KEY IN - RUN 100"
40 STOP
100 OPEN "b:HAMhdr.DAT" AS 3 LEN=24
110 FIELD 3,4 AS A$,4 AS B$,8 AS C$,8 AS D$ : GET 3,1 ' SET HEADER RECORD FLD
111 PRINT "KEY IN THE STARTING DATE FOR THE DISKETTE"
112 INPUT DAYT$
113 PRINT "KEY IN THESTARTING QSO NUMBER"
114 INPUT QSO
115 LSET A$=MKS$(1):LSET B$=MKS$(QSO):LSET C$=DAYT$:LSET D$=" "
120 PUT 3,1 :CLOSE