RosettaCodeData/Task/Read-entire-file/True-BASIC/read-entire-file.basic
2023-07-01 13:44:08 -04:00

7 lines
137 B
Text

OPEN #2: NAME "input.txt", ORG TEXT, ACCESS INPUT, CREATE OLD
DO
LINE INPUT #2: linea$
PRINT linea$
LOOP UNTIL END #2
CLOSE #2
END