home *** CD-ROM | disk | FTP | other *** search
/ Doom Fever / Doom_Fever-1995_Maple_Media.iso / wad / ziptext.bas < prev    next >
BASIC Source File  |  1994-10-20  |  387b  |  18 lines
  1. CHDIR "d:\"
  2. OPEN "text.LST" FOR INPUT AS #1
  3. WHILE NOT EOF(1)
  4. LINE INPUT #1, recdfile$
  5. wshort$ = LEFT$(recdfile$, LEN(recdfile$) - 4)
  6. CHDIR "D:\TEMP"
  7. sh1$ = "COPY e:\TEXT\" + recdfile$ + " D:\TEMP\FILE_ID.DIZ"
  8. sh2$ = "XCOPY e:\TEXT\" + recdfile$
  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.