ack/lang/basic/test/test19.bas

16 lines
203 B
QBasic
Raw Permalink Normal View History

1985-01-24 11:27:36 +00:00
100 read a
110 print a
120 restore
130 read b
140 print b
142 restore
143 restore 170
144 read b,c
145 print b,c
146 print "try to read beyond eof"
147 read d
148 print d
150 data 6
170 data 8,9
180 end