home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / log / hamsys / hambhdr.bas next >
BASIC Source File  |  1987-05-27  |  1KB  |  29 lines
  1. 10 ' HAMBHDR  - PROGRAM TO  BUILD HEADER RECORD FOR A FILE
  2. 20 'CHANGE DATE - 5/27/87
  3. 30 '
  4. 40 '
  5. 60 OPEN DR1$+"HAMHDR.DAT" AS 3 LEN=24
  6. 70 FIELD 3,4 AS A$,4 AS B$,8 AS C$,8 AS D$  ' SET HEADER RECORD FLD
  7. 80 CLS
  8. 90 PRINT "This program can NOT check your input so be sure it is right!!!"
  9. 100 PRINT
  10. 110 PRINT : PRINT "Enter the date of the first record in the file"
  11. 120 PRINT "This must be in the format   DD-MM-YY "
  12. 130 INPUT STRDATE$
  13. 140 PRINT : PRINT "Enter the date of the last record in the file"
  14. 150 PRINT "This must be in the format   DD-MM-YY "
  15. 160 INPUT ENDDATE$
  16. 170 PRINT : PRINT "Enter the number of the last QSO."
  17. 180 PRINT " This will be the number assigned to the last one you entered."
  18. 190 INPUT NUMQSO
  19. 200 PRINT : PRINT "Enter the number of records in your file - BE CAREFUL HERE"
  20. 210 PRINT "Read the manual to get this number.  This is the number of"
  21. 220 PRINT "physical records in the file.  NOT the number of QSO's."
  22. 230 INPUT NUMREC
  23. 240 LSET A$ = MKS$(NUMREC) : LSET B$ = MKS$(NUMQSO)   ' Put fields in
  24. 250 LSET C$ = STRDATE$ : LSET D$ = ENDDATE$           '       record
  25. 260 PUT 3,1                                           ' Write record out
  26. 270 RUN "mmenu
  27.                  ' Write record out
  28. 270 RUN "mmenu
  29.