10 CLS:LOCATE 10,1:PRINT "found:"
20 OPEN "toreject.tmp" FOR INPUT AS 1
30 OPEN "toreject.bat" FOR OUTPUT AS 2
40 WHILE NOT EOF(1):LINE INPUT #1,A$
50 B$="pkzip "+MID$(A$,44)+"\"+MID$(A$,31,12)+" -d -k "+MID$(A$,18,12)
60 PRINT #2,B$:I=I+1:LOCATE 10,7:PRINT USING "#######"; I
70 WEND:CLOSE
80 SYSTEM