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

10 lines
129 B
Text
Raw Normal View History

2023-07-01 11:58:00 -04:00
OPEN "test.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT #1, linea$
PRINT linea$ ' echo to the console
WEND
CLOSE #1
END