14 lines
244 B
Text
14 lines
244 B
Text
100 INPUT "FILENAME:";F$
|
|
110 D$ = CHR$(4)
|
|
120 PRINT D$"VERIFY"F$
|
|
130 PRINT D$"OPEN"F$
|
|
140 PRINT D$"READ"F$
|
|
150 ONERR GOTO 190
|
|
|
|
160 GET C$
|
|
170 PRINT CHR$(0)C$;
|
|
180 GOTO 160
|
|
|
|
190 POKE 216,0
|
|
200 IF PEEK(222) <> 5 THEN RESUME
|
|
210 PRINT D$"CLOSE"F$
|