25 lines
444 B
Plaintext
25 lines
444 B
Plaintext
100 I$ = "INPUT.TXT"
|
|
110 O$ = "OUTPUT.TXT"
|
|
120 M$ = CHR$(13)
|
|
130 D$ = CHR$(4)
|
|
140 PRINT D$"VERIFY"I$
|
|
150 PRINT D$"OPEN"O$
|
|
160 PRINT D$"DELETE"O$
|
|
170 PRINT D$"OPEN"O$
|
|
180 PRINT D$"OPEN"I$
|
|
|
|
190 PRINT D$"READ"I$
|
|
200 ONERR GOTO 280
|
|
210 GET C$
|
|
220 POKE 216,0
|
|
230 PRINT M$D$"WRITE"O$",B"B
|
|
240 B = B + 1
|
|
250 P = 2 - (C$ <> M$)
|
|
260 PRINT MID$(C$, P)
|
|
270 GOTO 190
|
|
|
|
280 POKE 216,0
|
|
290 EOF = PEEK(222) = 5
|
|
300 IF NOT EOF THEN RESUME
|
|
310 PRINT M$D$"CLOSE"
|