10 lines
201 B
Text
10 lines
201 B
Text
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
|