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