home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library1 / 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