home *** CD-ROM | disk | FTP | other *** search
/ Doom Fever / Doom_Fever-1995_Maple_Media.iso / wad / mkdizlst.bas < prev    next >
BASIC Source File  |  1994-11-01  |  439b  |  20 lines
  1. OPEN "D:\FILES\FILES.LST" FOR INPUT AS #1
  2. WHILE NOT EOF(1)
  3. INPUT #1, a$
  4. CHDIR "D:\TEMP"
  5. sh$ = "PKUNZIP D:\FILES\" + a$ + " *.sdi"
  6. sh1$ = "PKUNZIP D:\FILES\" + a$ + " *.diz"
  7. sh2$ = "rename desc.sdi " + LEFT$(a$, LEN(a$) - 4) + ".DIZ"
  8. sh3$ = "rename file_id.diz " + LEFT$(a$, LEN(a$) - 4) + ".DIZ"
  9. sh4$ = "MOVE *.diz d:\diz"
  10. SHELL sh$
  11. SHELL sh1$
  12. SHELL sh2$
  13. SHELL sh3$
  14. SHELL sh4$
  15.  
  16. r$ = INKEY$
  17. IF r$ <> "" THEN SYSTEM
  18. WEND
  19.  
  20.