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