home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / COMPRESS / FWKCS109.ZIP / AVONLY.BAS next >
Encoding:
BASIC Source File  |  1991-02-15  |  443 b   |  13 lines
  1. 10 CLS:LOCATE 10,1:PRINT "found:"
  2. 20 OPEN "toreject.tmp" FOR INPUT AS 1
  3. 30 OPEN "toreject.bat" FOR OUTPUT AS 2
  4. 40 WHILE NOT EOF(1):LINE INPUT #1,A$
  5. 50 J=200:N=INSTR(44,A$,","):IF N>0 THEN J=N-44
  6. 60 B$="pkzip "+MID$(A$,44,J)+"\"+MID$(A$,31,12)+" -d -k "
  7. 70 IF N=0 GOTO 90
  8. 80 B$=B$+MID$(A$,N+1)+"\"+MID$(A$,18,12):GOTO 100
  9. 90 B$=B$+MID$(A$,18,12)
  10. 100 PRINT #2,B$:I=I+1:LOCATE 10,7:PRINT USING "#######"; I
  11. 110 WEND:CLOSE
  12. 120 SYSTEM
  13.