10MODE 7
20INPUT"Please Enter Filename for Inp
ut "inpf$
30INPUT"Please Enter Filename for Out
put"outf$
40PRINT:PRINT
50VDU 28,0,10,39,7
60infile=OPENIN(inpf$)
70outfile=OPENOUT(outf$)
80IF EOF#infile THEN GOTO 120
90byte=BGET#infile
100IF byte <> 26 THEN PRINTCHR$(byte);
:BPUT#outfile,byte
110 GOTO 80
120VDU 26
130CLOSE#0
140END