home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / basic / pwez61 / makerand.bas < prev    next >
Encoding:
BASIC Source File  |  1993-06-01  |  1.1 KB  |  37 lines
  1. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2. '!!!        ** [ READ THIS ] ** !!!!!!!! ** [ READ THIS ] **             !!!
  3. '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  4. '                              INSTRUCTIONS
  5. '
  6. '   1. LOAD AND RUN MAKERAND.BAS ( THIS FILE ) TO MAKE THE RANDOM DATA FILE,
  7. '      RANDDATA.DAT.
  8. '
  9. '***************************************************************************
  10.  
  11. TYPE REC
  12.    MARK AS STRING * 1
  13.    NAM AS STRING * 25
  14.    ADD1 AS STRING * 30
  15.    CITY AS STRING * 25
  16.    STATE AS STRING * 10
  17.    ZIP AS STRING * 9
  18. END TYPE
  19. DIM RECORD AS REC
  20. RECLEN% = LEN(RECORD)
  21.  
  22. OPEN "RANDDATA.DAT" FOR RANDOM AS 1 LEN = RECLEN%
  23. CLS
  24. LOCATE 1, 1: PRINT "Making random file."
  25. FOR X% = 1 TO 250
  26.    RECORD.MARK = CHR$(32)
  27.    RECORD.NAM = "THIS IS NAME # ---" + STR$(X%)
  28.    RECORD.ADD1 = "THIS IS ADDRESS # ------" + STR$(X%)
  29.    RECORD.CITY = "THIS IS CITY # ----" + STR$(X%)
  30.    RECORD.STATE = "ST #" + STR$(X%)
  31.    RECORD.ZIP = "ZIP #" + STR$(X%)
  32.    PUT 1, , RECORD
  33. NEXT
  34. LOCATE 1, 1: PRINT "RANDOM ACCESS FILE HAS BEEN MADE."
  35. CLOSE
  36.  
  37.