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

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