9 lines
152 B
QBasic
9 lines
152 B
QBasic
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
|