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