0 ' Courtesy of David Carroll
5 MAXFILES=2:CLEAR900
6 OPEN"newfil.do"FORAPPENDAS2
10 CLS:FILES:INPUT"input file:";F$:CLS:PRINT:INPUT"Tfind What? ";SS$
20 OPEN F$FORINPUTAS1
25 IFEOF(1)THENCLS:CLOSE:END
30 LINEINPUT#1,A$
40 IFINSTR(A$,SS$)THEN100ELSE25
100 PRINT#2,A$:GOTO25