10 e$ = CHR$(27) : h$ = e$ + "H" : lf$ = CHR$(10) : cbt$ = e$ + "J" : cls$ = e$ + "E"
20 rv$ = e$ +"p" : nv$ = e$ + "q" : up$ = e$ + "I" : DEFINT a-z : WIDTH 255
30 PRINT cls$h$
40 INPUT "enter prog NAME",prog$ : PRINT
50 IF UPPER$(RIGHT$(prog$,3)) <>"bas" THEN prog$ = prog$ + ".BAS"
60 OPEN"I",1,prog$ : OPEN "o",2,"M:temp.$$$"
70 LINE INPUT "  OLD STRING ",o$
80 LINE INPUT "  NEW STRING ",n$
90 PRINT
100 WHILE NOT EOF(1)
110 LINE INPUT #1,ln$
120 PRINT ln$
130 p = INSTR(ln$,o$) : WHILE p <>0 : GOSUB 180 : WEND
140 PRINT #2,ln$
150 WEND
160 CLOSE 1,2
170 LOAD "M: temp.$$$"
180 PRINT up$;up$
190 PRINT LEFT$(ln$,p-1);lf$;STRING$(LEN(o$),"^") : PRINT "EXCHANGE  Y/N" ;
200 IF UPPER$(INPUT$(1)) = "Y" THEN ln$ = LEFT$(ln$,p-1) + n$ + MID$(ln$,p+LEN(o$)) : p = p + LEN(n$)
210 PRINT up$;up$;up$;CHR$(13) : PRINT ln$;cbt$
220 p = INSTR(p+1,ln$,o$)
230 RETURN
MID$(ln$,p+