home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / bwbasic-2.10.sit / bwbasic-2.10 / bwbtest / dataread.bas < prev    next >
BASIC Source File  |  1993-11-09  |  505b  |  15 lines
  1. 10 rem DATAREAD.BAS -- Test DATA, READ, and RESTORE Statements 
  2. 20 print "DATAREAD.BAS -- Test DATA, READ, and RESTORE Statements" 
  3. 30 DATA "Ted", 56.789 
  4. 40 REM just to see if it advances correctly 
  5. 50 DATA "Dale", 45.678 
  6.     60 READ N$, NUMBER, ANOTHER$ 
  7.     70 READ ANUMBER 
  8.     80 PRINT "Data read: ";N$;" ";NUMBER;" ";ANOTHER$;" ";ANUMBER 
  9. 90 RESTORE 30 
  10.     100 READ ANOTHER$ 
  11.     110 READ ANUMBER, N$,NUMBER 
  12.     120 PRINT "After RESTORE:" 
  13.     130 PRINT "Data read: ";ANOTHER$;" ";ANUMBER;" ";N$;" ";NUMBER 
  14. 140 END 
  15.