ack/lang/basic/test/test28.bas

8 lines
138 B
QBasic
Raw Permalink Normal View History

1985-01-24 11:27:36 +00:00
10 rem reading beyond eof
11 open "r",#1,"tst/test01"
13 print eof(#1)
20 while eof(#1) <> -1
22 line #1, l$
23 print eof(#1), l
24 wend