home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / basic / pwez61 / makeisam.bas < prev    next >
Encoding:
BASIC Source File  |  1993-06-01  |  1.5 KB  |  48 lines
  1. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2. '!!!        ** [ READ THIS ] ** !!!!!!!! ** [ READ THIS ] **             !!!
  3. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  4. '
  5. '                              INSTRUCTIONS
  6. '
  7. '   1. TSR, PROISAMD, MUST BE LOADED BEFORE ATTEMPTING TO RUN THIS PROGRAM.
  8. '      WITH PROISAMD.EXE AVAILABLE, TYPE: PROISAMD -- AT THE DOS PROMPT.
  9. '   2. IF THE FILE, ISAMDATA.DAT, ALREADY EXISTS DO NOT RUN THIS PROGRAM.
  10. '   3. LOAD AND RUN MAKEISAM.BAS ( THIS FILE ) TO MAKE THE ISAM DATA FILE,
  11. '      ISAMDATA.DAT.
  12. '
  13. '***************************************************************************
  14.  
  15. TYPE REC
  16.   MARK AS STRING * 1
  17.   NAM AS STRING * 25
  18.   ADD1 AS STRING * 30
  19.   CITY AS STRING * 25
  20.   STATE AS STRING * 10
  21.   ZIP AS STRING * 9
  22. END TYPE
  23.  
  24. DIM RECORD AS REC
  25.  
  26. OPEN "ISAMDATA.DAT" FOR ISAM REC "ALLDATA" AS 1         ' NUMBER OF RECORDS IN FILE
  27. CREATEINDEX 1, "NAME", 0, "NAM"
  28. CTR% = 1
  29. MOVEFIRST 1
  30. CLS
  31. LOCATE 1, 1: PRINT "Making ISAM data file.";
  32. FOR Y% = 65 TO 90
  33. PRINT ".";
  34.   FOR X% = 0 TO 9
  35.     RECORD.MARK = " "
  36.     RECORD.NAM = CHR$(Y%) + LTRIM$(STR$(X%)) + " THIS IS NAME # -" + STR$(CTR%)
  37.     RECORD.ADD1 = "THIS IS ADDRESS # ------" + STR$(CTR%)
  38.     RECORD.CITY = "THIS IS CITY # ----" + STR$(CTR%)
  39.     RECORD.STATE = "ST #" + STR$(CTR%)
  40.     RECORD.ZIP = "ZIP #" + STR$(CTR%)
  41.     INSERT 1, RECORD
  42.     CTR% = CTR% + 1
  43.   NEXT
  44. NEXT
  45. LOCATE 1, 1: PRINT "ISAM DATA FILE HAS BEEN MADE.                         "
  46. CLOSE
  47.  
  48.