home *** CD-ROM | disk | FTP | other *** search
/ Doom Fever / Doom_Fever-1995_Maple_Media.iso / wad / zipwads.bas < prev    next >
BASIC Source File  |  1994-10-20  |  339b  |  18 lines
  1. CHDIR "d:\"
  2. OPEN "MULTI.LST" FOR INPUT AS #1
  3. WHILE NOT EOF(1)
  4. LINE INPUT #1, recdfile$
  5. wshort$ = recdfile$
  6. CHDIR "D:\TEMP"
  7. sh1$ = "XCOPY D:\FILE_ID.DIZ"
  8. sh2$ = "XCOPY E:\MULTI\" + wshort$ + "\*.*"
  9. sh3$ = "PKZIP " + wshort$
  10. sh4$ = "MOVE *.ZIP D:\FILES3"
  11. SHELL sh1$
  12. SHELL sh2$
  13. SHELL sh3$
  14. SHELL sh4$
  15. KILL "D:\TEMP\*.*"
  16. WEND
  17.  
  18.