15 lines
310 B
Plaintext
15 lines
310 B
Plaintext
100 STRING TX$*254
|
|
110 OPEN #1:"output.txt"
|
|
120 OPEN #2:"input.txt" ACCESS OUTPUT
|
|
130 WHEN EXCEPTION USE IOERROR
|
|
140 DO
|
|
150 LINE INPUT #1:TX$
|
|
160 PRINT #2:TX$
|
|
170 LOOP
|
|
180 END WHEN
|
|
190 HANDLER IOERROR
|
|
200 IF EXTYPE<>8001 THEN PRINT EXSTRING$(EXTYPE)
|
|
210 CLOSE #1
|
|
220 CLOSE #2
|
|
230 END HANDLER
|