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