10 CLS
20 CLEAR 300
30 INPUT"WHAT IS THE NAME OF THE INPUT PROGRAM";PROG$
40 IF INSTR(PROG$,"/TXT")=0 THEN 270  'REQUIRE /TXT EXTENSION
50 INPUT"WHAT IS THE NAME OF THE OUTPUT PROGRAM";OP$
60 INPUT"SEARCHING FOR WHAT WORD";W1$
70 INPUT"REPLACE WITH WHAT WORD";W2$
80 IF LEN(W2$)>LEN(W1$) PRINT"REPLACEMENT WORD LONGER THAN SEARCH WORD":GOTO 70
90 PRINT
100 OPEN"I",1,PROG$
110 OPEN"O",2,OP$
120 I%=0
130 IF EOF(1)THEN250
140 I%=I%+1 
150 LINEINPUT#1,TEMP$
160 Y=INSTR(TEMP$,"REM")
170 IF Y<>0 THEN 230
180 X=INSTR(TEMP$,W1$)
190 IF X=0 THEN 230
200 PRINT TEMP$
210 MID$(TEMP$,X,LEN(W1$))=W2$
220 GOTO 180
230 PRINT#2,TEMP$
240 GOTO 130
250 CLOSE
260 END
270 PRINT"FILESPEC MUST INCLUDE THE EXTENSION '/TXT'"
280 GOTO 30
