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