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

10 lines
129 B
Plaintext

OPEN "test.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT #1, linea$
PRINT linea$ ' echo to the console
WEND
CLOSE #1
END