RosettaCodeData/Task/Input-loop/Yabasic/input-loop.basic

12 lines
209 B
Plaintext

filename$ = "test.txt"
f = open(filename$)
if not f error "Could not open '" + filename$ + "' for reading"
while(not eof(f))
line input #f linea$
print linea$ // echo to the console
wend
close f
end