RosettaCodeData/Task/Input-loop/QBasic/input-loop.basic
2023-07-01 13:44:08 -04:00

9 lines
129 B
Text

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