10 ' For use with FWKCS(TM) Contents_Signature System, Version 1.12
20 ' (C)Copyright Frederick W. Kantor 1989-1991. All rights reserved.
30 ' Your use of this program is at solely your own risk.
40 '
50 ' TOREJECT.BAS  for removing selected files from within zipfiles.
60 '
70 CLS:LOCATE 10,1:PRINT "found:"
80 OPEN "TOREJECT.TMP" FOR INPUT AS 1:OPEN "TOREJECT.BAT" FOR OUTPUT AS 2
90 WHILE NOT EOF(1):LINE INPUT #1,A$
100 J=200:N=INSTR(44,A$,","):IF N>0 THEN J=N-44
110 B$="pkzip "+MID$(A$,44,J)+"\"+MID$(A$,31,12)+" -d -k "
120 IF N=0 THEN B$=B$+MID$(A$,18,12):GOTO 140
130 B$=B$+MID$(A$,N+1)+"\"+MID$(A$,18,12)
140 PRINT #2,B$:I=I+1:LOCATE 10,7:PRINT USING "#######"; I
150 WEND:CLOSE:SYSTEM