1 CLEAR800:FILES:MAXFILES=2:DEFSTRA-H
2 INPUT"File";F:OPENFFORINPUTAS1:OPEN"x"FOROUTPUTAS2:INPUT"Target text";D:INPUT"New text";E:INPUT"Prompts";C
3 LINEINPUT#1,A:X=1
4 X=INSTR(X,A,D):IFXTHENIFC="Y"ORC="y"THENPRINTA:PRINTTAB((X-1)MOD40);CHR$(152):INPUT"replace";BELSEB="y"
5 IFB="y"ORB="Y"THENA=LEFT$(A,X-1)+E+RIGHT$(A,LEN(A)-X-LEN(D)+1)
6 B="":IFXTHENX=X+LEN(E):GOTO4ELSEPRINT#2,A:IFEOF(1)THENCLOSE:KILLF:NAME"x.do"ASF:BEEPELSE3