home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / PROGRAM / BASIC / POWBASIC / LIBRARY1 / EXAMP1.ZIP / RMEX230.BAS < prev    next >
BASIC Source File  |  1990-04-13  |  395b  |  15 lines
  1. OPEN "RANDOM.DTA" FOR RANDOM AS #1 LEN = 12
  2. MAP #1, 10 AS FInputName$$, 2 AS FLuckyNumber$$
  3. FOR Record% = 1 TO 3
  4.   INPUT "Name"; FInputName$$
  5.   INPUT "Lucky Number"; Number%
  6.   FLuckyNumber$$ = MKI$(Number%)
  7.   PUT #1, Record%
  8. NEXT Record%
  9. PRINT:PRINT "THE DATA STORED WAS: "
  10. FOR Record% = 1 TO 3
  11.   GET #1, Record%
  12.   PRINT FInputName$$; CVI(FLuckyNumber$$)
  13. NEXT Record%
  14. CLOSE #1
  15. END