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

10 lines
156 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
OPEN #1: NAME "test.txt", ACCESS INPUT
DO
LINE INPUT #1: linea$
PRINT linea$ ! echo to the console
LOOP UNTIL END #1
CLOSE #1
END