home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / w / walmastr.zip / NEW.BAT < prev    next >
DOS Batch File  |  1993-03-12  |  1KB  |  51 lines
  1. @ECHO OFF
  2. REM SETS INPUT VALUES FOR CREATION OF DIRECTORY AND SUBSEQUENT UNZIPPING OF FILES
  3. SET INPUT1=%1%
  4. SET INPUT2=%2%
  5. SET NEWDIR=%INPUT1%:\%INPUT2%
  6. REM CHECKS FOR DUPLICATE DIRECTORY
  7. SET DUP=%INPUT1%:\%INPUT2%\NUL
  8. IF EXIST %DUP% GOTO DUPLICATE
  9. BE CLS
  10. REM CREATES NEW DIRECTORY
  11. BE WINDOW 0,0,24,79 BOLD BLACK ON BLUE
  12. BE WINDOW 11,22,13,57 BOLD BLACK ON WHITE EXPLODE SHADOW
  13. ECHO 25HCREATING DIRECTORY %INPUT1%\%INPUT2%
  14. BE BEEP /F414 /D0;
  15. BE BEEP /F207 /D1;
  16. BE BEEP /F414 /D0;
  17. BE DELAY 35
  18. MD %NEWDIR%
  19. BE NEW2.CFG
  20. REM UNZIP FILES
  21. BE SA BLUE ON WHITE /N /C
  22. IF EXIST 16.SET GOTO 16COLUNZIP
  23. PKUNZIP -3 -) WALSAMPL %NEWDIR% *.*
  24. :NEXT
  25. BE DELAY 40
  26. CLS
  27. GOTO LOADED
  28. REM DUP DIRECTORY MESSAGE AND RESET LOOP
  29. :DUPLICATE
  30. BE CLS
  31. BE WINDOW 0,0,24,79 BOLD BLACK ON BLUE
  32. BE WINDOW 11,24,13,54 BOLD BLACK ON WHITE
  33. ECHO 28HDIRECTORY ALREADY EXISTS!
  34. BE BEEP /F150 /D0; /R15
  35. BE DELAY 13
  36. BE SET1.CFG
  37. ECHO 
  38. PROMPT $e[15;36H$e[30;47m? 
  39. GOTO OUT
  40. :16COLUNZIP
  41. ERASE 16.SET
  42. PKUNZIP -3 -) WALSAM16 %NEWDIR% *.*
  43. GOTO NEXT
  44. :LOADED
  45. BE LDED1.CFG
  46. BE ASK ""
  47. BE LDED2.CFG
  48. BE ASK ""
  49. CALL EXITING
  50. :OUT
  51.