home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / benv302.zip / INSTALL.BAT < prev    next >
DOS Batch File  |  1992-09-23  |  2KB  |  54 lines
  1. @ECHO OFF
  2. BEN CLS LIGHTGRAY / GROWFILLEDBOX 5 3 76 23 WHITE BLUE 1 / GETCD
  3. SET S=%BEN%
  4. BEN LOCATE 1 5 / WRITEC YELLOW BLUE Welcome~to~the~Batch~ENhancer~Installation~Program!
  5. BEN LOCATE 1 12 / WRITEC WHITE BLUE This~batch~file~copies~all~the~files~included
  6. BEN LOCATE 1 13 / WRITEC WHITE BLUE in~this~package~to~a~directory~of~your~choice.
  7. BEN LOCATE 1 21 / WRITEC CYAN LIGHTBLUE Do~you~want~to~continue?~(Y/N) / ASK YN / SOUND 50 50
  8. IF ERRORLEVEL 2 GOTO CloseDown
  9.  
  10. BEN FILLEDBOX 6 12 75 21 BLUE BLUE 0 / LOCATE 1 12 / WRITEC LIGHTCYAN BLUE Do~you~want~to~install~the~package~to:
  11. BEN LOCATE 1 15 / WRITEC WHITE BLUE C:\BEN / LOCATE 1 18 / WRITEC LIGHTRED BLUE ?
  12. BEN LOCATE 1 21 / WRITEC CYAN LIGHTBLUE Press~press~Y~or~N. / ASK YN
  13. IF ERRORLEVEL 2 GOTO GetT
  14. SET T=C:\BEN
  15. GOTO Core
  16.  
  17. :GetT
  18. BEN FILLEDBOX 6 11 75 21 BLUE BLUE 0 / SHADFILLEDBOX 10 11 69 16 WHITE CYAN 0
  19. BEN LOCATE 1 12 / WRITEC WHITE CYAN Please~enter~the~target~directory~(eg.~C:\BEN):
  20. :GetTCore
  21. BEN BOX 24 14 55 14 LIGHTGRAY BLACK 0 / CURSOR FULL / LOCATE 25 14 / FLUSH / GETLINEU / CURSOR OFF
  22. SET T=%BEN%
  23. IF NOT "%T%"=="" GOTO Core
  24. BEN SOUND 50 50 / MESSAGE Please~do~enter~a~directory~name. 
  25. GOTO GetTCore
  26.  
  27. :Core
  28. BEN FILLEDBOX 6 11 75 21 BLUE BLUE 0 / LOCATE 1 12 / WRITEC LIGHTGREEN BLUE Please~wait~while~INSTALL~is~copying~files~;
  29. BEN WRITE LIGHTGREEN LIGHTBLUE  .~.~. / EXTRACT %T%\ D / EXTRACT %T%\ P
  30. CTTY NUL
  31. %BEN%
  32. IF NOT EXIST %BEN2%\NUL MD %BEN2%
  33. CD %BEN2%
  34. COPY %S%\*.*
  35. CTTY CON
  36. BEN GETCD
  37. IF "%BEN%"=="%T%" GOTO ReadMe
  38. IF "%BEN%"=="%T%\" GOTO ReadMe
  39. BEN MESSAGE The~directory~"%T%"~is~invalid. Please~enter~another~directory. 
  40. GOTO GetT
  41.  
  42. :ReadMe
  43. BEN BEEP / FILLEDBOX 6 12 75 21 BLUE BLUE 0 / LOCATE 1 12 / WRITEC WHITE BLUE The~installation~process~is~completed.
  44. BEN LOCATE 1 21 / WRITEC CYAN LIGHTBLUE Do~you~want~to~read~the~README~file?~(Y/N) / ASK YN
  45. IF ERRORLEVEL 2 GOTO LastMessage
  46. BEN LIST README README~(Press~ESC~to~quit)
  47.  
  48. :LastMessage
  49. BEN FILLEDBOX 6 13 75 21 BLUE BLUE 0 / LOCATE 1 12 / WRITEC WHITE BLUE Thank~you~for~trying~BEN,~the~Batch~ENhancer.
  50. BEN LOCATE 1 14 / WRITEC LIGHTMAGENTA BLUE Type~BENDEMO~in~DOS~to~run~the~demo~batch~file.
  51. BEN LOCATE 1 16 / WRITEC LIGHTRED LIGHTBLUE Thank~you!
  52.  
  53. :CloseDown
  54. BEN CLEANUP / LOCATE 1 25