ack/lang/basic/test/test22.bas

10 lines
152 B
QBasic
Raw Permalink Normal View History

1985-01-24 11:27:36 +00:00
10 open "i", #6, "tst/data1"
20 input #6, s$
30 print s$
40 input #6, s1$
50 print s1$
60 print "try to read beyond"
70 input #6, s$
80 print s$
90 end