10 maxfiles=2:n=3
11 for z=1 to n:read z$(z):next z
13 on error goto 5000
20 read f$:open f$ for input as #1:?f$
40 if not eof(1) then line input#1,a$: else close : goto 20
1000 m=0:for z = 1 to n
1010 if instr(a$,z$(z))then m=m+1
1020 next z:if m>0 then open "examine.to" for append as #2 :print#2,a$:print a$:close (2)
1030 goto 40
2000 data ?,redo,REDO
2010 data BACHAR.DO, BASS.DO, BDZ.DO, BL.DO, CAMPVL.DO, DIANA.DO, DOLO.DO
2011 data FALLBK.DO, FRED.DO, GRAHM.DO, HOWE.DO, JUGSPR.DO, LWR.DO, M12.DO
2012 data M12T.DO, MICROB.DO, MTA.DO, MYS.DO, PATHOL.DO, SAGES.DO, SCHO.DO
2013 data SP.DO, TANK.DO, WEYANT.DO
5000 close:system