Ｖｅｒ．０．９完成。まだ見栄えは悪いが、一応目的は果たせる。みんなも、十進ＢＡＳＩＣ使って。

5 INPUT c$
10 LET s$="c:\gikonavi\Log\2ch\poverty\*.dat"
20 LET n=files(s$)
30 IF n>0 THEN
40    DIM names$(n)
50    file list s$, names$
64    MAT PRINT names$
70 END IF
80 FOR j=1 TO n
90    LET F$="c:\gikonavi\Log\2ch\poverty\"&names$(j)
100    OPEN #1:NAME F$
110    DO
120       WHEN EXCEPTION IN
130          INPUT #1,IF MISSING THEN EXIT DO: a$
140          IF POS(a$,c$)<>0 THEN PRINT a$
150       USE
160          SET #1:POINTER SAME
170          LINE INPUT #1:t$
180          IF POS(t$,c$)<>0 THEN PRINT "error",t$
190       END WHEN
200    LOOP
210    CLOSE #1
220 NEXT j
1221 END