lang/basic/test/test22.b

   1 10 open "i", #6, "tst/data1"
   2 20 input #6, s$
   3 30 print s$
   4 40 input #6, s1$
   5 50 print s1$
   6 60 print "try to read beyond"
   7 70 input #6, s$
   8 80 print s$
   9 90 end