home *** CD-ROM | disk | FTP | other *** search
/ Doom Fever / Doom_Fever-1995_Maple_Media.iso / wad / makefile.bas < prev    next >
BASIC Source File  |  1994-10-13  |  877b  |  51 lines
  1. CHDIR "D:\"
  2.  
  3. OPEN "miscutil.lst" FOR INPUT AS #2
  4. WHILE NOT EOF(2)
  5. INPUT #2, zipfile$
  6.  
  7. nod = 0
  8. ON ERROR GOTO nodiz1
  9. op$ = "E:\miscutil\" + zipfile$ + "\FILE_ID.DIZ"
  10. OPEN op$ FOR INPUT AS #3
  11. ON ERROR GOTO 0
  12. CLOSE #3
  13. try2:
  14. ON ERROR GOTO nodiz2
  15. op$ = "E:\miscutil\" + zipfile$ + "\DESC.SDI"
  16. OPEN op$ FOR INPUT AS #3
  17. ON ERROR GOTO 0
  18. CLOSE #3
  19. try3:
  20. ON ERROR GOTO 0
  21. IF nod > 1 THEN GOTO skip
  22.  
  23. sh$ = "COPY E:\miscutil\" + zipfile$ + "\*.* D:\TEMP"
  24. SHELL sh$
  25. CHDIR "D:\TEMP"
  26. sh$ = "PKZIP " + zipfile$
  27. SHELL sh$
  28. SHELL "MOVE d:\temp\*.ZIP D:\dmutil"
  29. KILL "D:\TEMP\*.*"
  30.  
  31. contwen:
  32. WEND
  33.  
  34. skip:
  35. CHDIR "D:\TEMP"
  36. SHELL "copy d:\*.bas d:\temp"
  37. KILL "D:\TEMP\*.*"
  38. GOTO contwen
  39.  
  40. nodiz1:
  41. nod = nod + 1
  42. PRINT "NO DIZ FILE AT FIRST ATTEMPT!!!!!"
  43. RESUME try2
  44.  
  45. nodiz2:
  46. nod = nod + 1
  47. PRINT " NO DIZ FILE AT SECOND ATTEMPT THIS SUCKS!!!!!"
  48. RESUME try3
  49.  
  50.  
  51.