home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / batch / ben311.zip / INSTALL.BAT < prev    next >
DOS Batch File  |  1993-05-15  |  2KB  |  56 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 Enter~the~full~name~of~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. Ctty Nul
  29. BEN FilledBox 6 11 75 21 Blue Blue 0 / Locate 1 12 / WriteC LightGreen Blue Please~wait~while~INSTALL~is~copying~files~;
  30. BEN Write LightGreen LightBlue  .~.~. / Extract %T%\ D / Extract %T%\ P
  31. %BEN%
  32. If not Exist %BEN2%\NUL Md %BEN2%
  33. Cd %BEN2%
  34. BEN GetCD
  35. Ctty Con
  36. If "%BEN%"=="%T%" Goto cdOK
  37. If "%BEN%\"=="%T%" Goto cdOK
  38. BEN Message The~directory~"%T%"~is~invalid. Please~enter~another~directory. 
  39. Goto GetT
  40.  
  41. :cdOK
  42. Copy %S%\*.* > Nul
  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 Please~type~!BENDEMO~to~unpack~the~demonstration~files,
  51. BEN Locate 1 15  / WriteC LightMagenta Blue And~then~type~BENDEMO~to~run~the~demo~batch~file.
  52. BEN Locate 1 17 / WriteC LightRed LightBlue Thank~you!
  53.  
  54. :CloseDown
  55. BEN CleanUp / Locate 1 25
  56.