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