1 'REPLCE.NEC - Performs search/replace
2 'on any text file.
3 '
10 SCREEN,0:CLEAR2000:MAXFILES=2:DEFINTA-Z:DEFSTRM-Z
20 M=CHR$(8):N=CHR$(27):O=CHR$(34):P=N+"p":Q=N+"q":U=" Replace ":V=" Delete ":ONERRORGOTO310
30 CLS:FILES:PRINT:INPUT"Name of .DO file";X:IFX=""THENMENU
40 IFINSTR(X,".")=0THENX=X+".DO"
50 Y="O.DO":Z="T.DO":NAMEX$ASY
60 PRINT" "T;:CLS:PRINTI+1;M":"U"what? ";:LINEINPUTS(I):IFS(I)=""THENIFI=0GOTO300ELSE140
70 LOCATE0,4:PRINTI+1;M":"U"it with? ";:LINEINPUTR(I):IFR(I)=""THENLOCATE21,4:PRINTP;M;V"?"Q;ELSE90
80 T=INKEY$:IFT="N"ORT="n"THENPRINTN"l":GOTO70ELSEIFT="Y"ORT="y"THEND(I)=1ELSE80
90 B=I:LOCATE0,7:PRINTP"Selective";:IFD(I)THENPRINTV;ELSEPRINTU;
100 PRINTM;"?";Q;" ";
110 T=INKEY$:IFT="Y"ORT="y"THENF(I)=1ELSEIFT<>"N"ANDT<>"n"THEN110
120 PRINTT;" ";:IFI<9THENPRINTP" Another?"Q;ELSE140
130 T=INKEY$:IFT="Y"ORT="y"THENI=I+1:GOTO60ELSEIFT<>"N"ANDT<>"n"THEN130
140 PRINT" "T;:CLS
150 FORI=0TOB:OPENYFORINPUTAS1:OPENZFOROUTPUTAS2:L=LEN(S(I))
160 IFEOF(1)THEN280
170 LINEINPUT#1,W:E=LEN(W)
180 LOCATE13,1:PRINTP;I+1;M":";:IFD(I)THENPRINTV;ELSEPRINTU;
190 PRINTO;S(I);O;Q;
200 J=INSTR(1,W,S(I)):IFJ=0THEN260ELSEC(I)=1
210 K=LEN(W):R=R(I):IFF(I)THENCLS:PRINTLEFT$(W,J-1);P;S(I);Q;RIGHT$(W,K-(J+L-1))ELSE250
220 LOCATE2,7:IFD(I)THENPRINTP;V"?"Q;ELSEPRINTP;U"with ";O;R;O"?"Q;
230 T=INKEY$:IFT="N"ORT="n"THENR=S(I)ELSEIFT<>"Y"ANDT<>"y"THEN230
240 CLS
250 PRINT#2,LEFT$(W,J-1);R;:W=MID$(W,J+LEN(S(I))):GOTO180
260 IFE=255THENPRINT#2,W;ELSEPRINT#2,W
270 GOTO160
280 CLOSE:IFC(I)=0THENPRINTP":No ";S(I);" in ";X;Q;:GOSUB330
290 KILLY:NAMEZ$ASY:NEXT
300 NAMEY$ASX:MENU
310 IFERR=52THENPRINTP"No file ";X;Q;:GOSUB330:X="":RESUME30ELSECLS:BEEP:LOCATE13,1:PRINTP"Aborted: Error"ERR"in "ERL
320 GOSUB330:CLOSE:KILLZ:GOTO300
330 FORA=1TO999:NEXT:RETURN