'===========================================================================
' Subject: ADD JUNK TO .ZIP FILES             Date: 06-03-99 (11:16)       
'  Author: David A. Wicker                    Code: QB, QBasic, PDS        
'  Origin: topaz817@fastlane.net            Packet: MISC.ABC
'===========================================================================
' * AddJunk  Written by David A. Wicker
' ---------------------------------------------------------------------------
' As always, if you borrow anything from any source code for your
' shareware or freeware projects, please give credit to the original author!
' ---------------------------------------------------------------------------
' Note!  This program is not really meant as a tutorial in good programming,
' more it is useful for its function and purpose.

' Also, this particular program is really only used to add a bunch of junk
' to all the PKZIPs in this directory so you can use Zap*Zip to remove
' them and see that it really does work.

' The following 3 files should not be useful data in any PKZIPs examined.
' apple.jnk, orange.ryc, banana.tra .
' If any of these are valid data intended to be used later, DO NOT
' run this program as it will update ALL PKzips with its own version of it!

DEFINT A-Z
'$DYNAMIC

SHELL "dir *.zip/b>dir.___"
OPEN "o", 1, "apple.jnk"
PRINT #1, "tree"
CLOSE
OPEN "o", 1, "orange.ryc"
PRINT #1, "marmalade"
CLOSE
OPEN "o", 1, "banana.tra"
PRINT #1, "pudding"
CLOSE

OPEN "i", 1, "dir.___"
WHILE EOF(1) = 0
  LINE INPUT #1, T$
  SHELL "pkzip -ex " + T$ + " apple.jnk orange.ryc banana.tra"
WEND
CLOSE
KILL "apple.jnk"
KILL "orange.ryc"
KILL "banana.tra"