RosettaCodeData/Task/Read-a-file-line-by-line/Run-BASIC/read-a-file-line-by-line.basic
2023-07-01 13:44:08 -04:00

6 lines
122 B
Text

open DefaultDir$ + "\public\filetest.txt" for input as #f
while not(eof(#f))
line input #f, a$
print a$
wend
close #f