File: dataread.bas

package info (click to toggle)
bwbasic 2.20pl2-11
  • links: PTS
  • area: main
  • in suites: buster, jessie, jessie-kfreebsd, stretch, wheezy
  • size: 1,236 kB
  • sloc: ansic: 21,001; makefile: 80
file content (14 lines) | stat: -rw-r--r-- 505 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
10 rem DATAREAD.BAS -- Test DATA, READ, and RESTORE Statements 
20 print "DATAREAD.BAS -- Test DATA, READ, and RESTORE Statements" 
30 DATA "Ted", 56.789 
40 REM just to see if it advances correctly 
50 DATA "Dale", 45.678 
	60 READ N$, NUMBER, ANOTHER$ 
	70 READ ANUMBER 
	80 PRINT "Data read: ";N$;" ";NUMBER;" ";ANOTHER$;" ";ANUMBER 
90 RESTORE 30 
	100 READ ANOTHER$ 
	110 READ ANUMBER, N$,NUMBER 
	120 PRINT "After RESTORE:" 
	130 PRINT "Data read: ";ANOTHER$;" ";ANUMBER;" ";N$;" ";NUMBER 
140 END