RosettaCodeData/Task/Input-loop/Run-BASIC/input-loop.basic

7 lines
97 B
Plaintext

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