home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / benv302.zip / BENDEMO.BAT < prev    next >
DOS Batch File  |  1992-09-23  |  11KB  |  213 lines
  1. @ECHO OFF
  2.  
  3. :BENDEMO.BAT - A Demo Batch File That Demonstrates BEN
  4. :(C) 1992 by Simvis Soft
  5. :All Rights Reserved
  6.  
  7. :This batch file requires BENDEMO.DA1 through BENDEMO.DA6
  8. :to function properly. Also, ANSI.SYS should by installed.
  9. :Otherwise, some minor color errors will occur.
  10.  
  11. BEN SAVEPATH
  12. BEN T BENDEMO.DA1
  13. IF ERRORLEVEL 2 GOTO CloseDown
  14. IF "%BEN%"=="" SET BEN=Nameless
  15. SET NAME=%BEN%
  16.  
  17. :MainMenu
  18. BEN T BENDEMO.DA2
  19. IF ERRORLEVEL 8 GOTO CloseDown
  20. IF ERRORLEVEL 7 GOTO VideoMode
  21. IF ERRORLEVEL 6 GOTO ScrollingAround
  22. IF ERRORLEVEL 5 GOTO SoundAndMusic
  23. IF ERRORLEVEL 4 GOTO UserInput
  24. IF ERRORLEVEL 3 GOTO EnhancedECHO
  25. IF ERRORLEVEL 2 GOTO BoxesEveryWhere
  26. IF ERRORLEVEL 1 GOTO DirectoryAndFiles
  27. GOTO CloseDown
  28. :----------------------------------------------------------------------------
  29. :DirectoryAndFiles
  30. BEN CLS LIGHTGRAY / SHADFILLEDBOX 6 3 75 23 BROWN GREEN 2
  31. BEN LOCATE 1 9 / WRITEC WHITE GREEN %NAME%,~you~can~now~produce~batch~files
  32. BEN WRITEC WHITE GREEN with~high~degree~of~control~over~directories~and~files!
  33. BEN LOCATE 1 12 / WRITEC LIGHTCYAN GREEN Just~try~our~directory~dialog~box~first!
  34. BEN LOCATE 1 14 / WRITEC BLUE GREEN Please~enter~a~pathname~(Eg.~C:\TELECOM\MODEM):
  35. BEN BOX 19 16 58 16 BLACK LIGHTGRAY 0 / COLOR BLACK LIGHTGRAY
  36. BEN LOCATE 20 16 / CURSOR FULL / FLUSH / GETLINE / CURSOR OFF
  37. IF "%BEN%"=="" SET BEN=.
  38. BEN DIRDISP %BEN%
  39. IF "%BEN%"=="" GOTO SelectFileNot
  40. :ReturnFromSelectFileNot
  41. SET SELECT=%BEN%
  42. BEN CLS LIGHTGRAY / TITLEDBOX 6 3 75 23 WHITE BLUE 1 With~BEN,~it's~easy~to~break~a~full~filename~into~its~components:
  43. BEN LOCATE 25 10 / WRITE LIGHTGRAY BLUE Full~Filename:~; WRITE WHITE BLUE %SELECT%
  44. BEN EXTRACT %SELECT% D
  45. BEN LOCATE 25 11 / WRITE LIGHTGRAY BLUE Drive:~~~~~~~~~; / WRITE WHITE BLUE %BEN%
  46. BEN EXTRACT %SELECT% P\
  47. BEN LOCATE 25 12 / WRITE LIGHTGRAY BLUE Path:~~~~~~~~~~; / WRITE WHITE BLUE %BEN%
  48. BEN EXTRACT %SELECT% N
  49. BEN LOCATE 25 13 / WRITE LIGHTGRAY BLUE Name:~~~~~~~~~~; / WRITE WHITE BLUE %BEN%
  50. BEN EXTRACT %SELECT% E
  51. IF "%BEN%"=="" SET BEN= 
  52. BEN LOCATE 25 14 / WRITE LIGHTGRAY BLUE Extension:~~~~~; / WRITE WHITE BLUE %BEN%
  53. BEN EXTRACT %SELECT% N.E
  54. BEN LOCATE 25 15 / WRITE LIGHTGRAY BLUE Filename:~~~~~~; / WRITE WHITE BLUE %BEN%
  55. BEN GETCD
  56. BEN LOCATE 1 21 / WRITEC YELLOW BLUE By~the~way,~you~are~currently~in~%BEN%!
  57. BEN LOCATE 1 22 / WRITEC CYAN LIGHTBLUE Please~press~any~key~to~continue~.~.~. / FLUSH / PAUSE
  58. BEN MESSAGE Now~you~are~going~to~examine~our~file browsing~capability.~Press~ENTER and~you~will~see~BENDEMO.BAT.
  59. BEN LIST BENDEMO.BAT BENDEMO.BAT,~the~batch~file~you~are~running:
  60. BEN MESSAGE Isn't~that~great?~Now~try~to~zoom, move~and~size~the~browsing~window!
  61. BEN LIST BENDEMO.DA1 Try~to~zoom,~move~and~size~the~window~with~F5,~CTRL-F5~and~ALT-F5!
  62. BEN MESSAGE What~you~have~seen~was~just~a~small part~of~BEN.~Go~ahead~and~select other~parts~of~the~demo!
  63. GOTO MainMenu
  64.  
  65. :SelectFileNot
  66. BEN MESSAGE You~left~without~selecting~any~file. Let's~assume~that~you~have~selected ~~~~~~~"C:\DOS\DISKCOPY.COM"
  67. SET BEN=C:\DOS\DISKCOPY.COM
  68. GOTO ReturnFromSelectFileNot
  69. :----------------------------------------------------------------------------
  70. :BoxesEveryWhere
  71. BEN GROWFILLEDBOX 1 1 80 25 LIGHTGRAY BLUE 0 / LOCATE 1 12
  72. BEN WRITEC WHITE BLUE With~BEN,~you~can~produce~many~kinds~of~neat~boxes~in~batch~files. / LOCATE 1 14
  73. BEN WRITEC YELLOW BLUE Just~sit~back~and~enjoy~the~boxing~show. / DELAY 5000 / CLS LIGHTGRAY
  74. BEN GROWFILLEDBOX 1 25 80 25 BLUE BLUE 0 / BOX 5 5 50 23 GREEN BLUE 1 / LOCATE 1 25 / WRITEC YELLOW BLUE Normal~Box;
  75. BEN DELAY 3000 / FILLEDBOX 7 7 60 20 LIGHTGRAY BROWN 2 / LOCATE 1 25 / WRITEC YELLOW BLUE Filled~Box;
  76. BEN DELAY 3000 / BOX 3 3 79 10 BLACK GREEN 251 / LOCATE 1 25 / WRITEC YELLOW BLUE ASCII~Bordered~Box;
  77. BEN DELAY 3000 / TRANSPARENTBOX 10 3 40 15 CYAN MAGENTA / LOCATE 1 25 / WRITEC YELLOW BLUE ~~Transparent~Box~~;
  78. BEN DELAY 3000 / SHADFILLEDBOX 15 5 75 21 LIGHTGRAY RED 5 / LOCATE 1 25 / WRITEC YELLOW BLUE ~~Shadowed~Box~~;
  79. BEN DELAY 3000 / GROWFILLEDBOX 32 2 60 17 BLUE CYAN 0 / LOCATE 1 25 / WRITEC YELLOW BLUE ~Growing~Box~;
  80. BEN DELAY 3000 / TITLEDBOX 3 3 78 22 YELLOW RED 1 Welcome~to~BENDEMO,~%NAME%!
  81. BEN LOCATE 1 25 / WRITEC YELLOW BLUE ~Titled~Box~;
  82. BEN DELAY 3000 / MESSAGE ~~~~And~Message~Box,~of~course! Press~ENTER~to~return~to~Main~Menu!
  83. GOTO MainMenu
  84. :----------------------------------------------------------------------------
  85. :EnhancedECHO
  86. BEN CLS BLACK / LOCATE 1 13 / WRITEC LIGHTGRAY BLACK Why~settle~for~the~plain~gray~on~black~ECHO~command?;
  87. BEN CURSOR ON / DELAY 3000 / CURSOR OFF / CLS CYAN / GROWFILLEDBOX 5 3 76 23 BLUE BLUE 0
  88. BEN WRITEV 77 5 DARKGRAY BLACK B~E~N~~~B~E~N~~~B~E
  89. BEN LOCATE 28 4  / WRITE WHITE BLUE When~you~can~have~this:
  90. BEN LOCATE 25 6  / WRITE LIGHTMAGENTA BLUE Hello   / SOUND 50 50
  91. BEN LOCATE 28 8  / WRITE GREEN BLUE user!          / SOUND 100 100
  92. BEN LOCATE 31 10 / WRITE RED BLUE Welcome          / SOUND 75 100
  93. BEN LOCATE 34 12 / WRITE LIGHTGREEN BLUE to        / SOUND 50 100
  94. BEN LOCATE 37 14 / WRITE YELLOW BLUE BEN,          / SOUND 80 100
  95. BEN LOCATE 40 16 / WRITE LIGHTCYAN BLUE the        / SOUND 60 100
  96. BEN LOCATE 43 18 / WRITE LIGHTMAGENTA BLUE Batch   / SOUND 100 100
  97. BEN LOCATE 45 20 / WRITE LIGHTGREEN BLUE ENhancer! / SOUND 75 100
  98. BEN LOCATE 1 22  / WRITEC WHITE LIGHTBLUE Press~Any~Key~to~Continue~.~.~. / FLUSH / PAUSE
  99. GOTO MainMenu
  100. :----------------------------------------------------------------------------
  101. :UserInput
  102. BEN CLS RED GROWFILLEDBOX 5 3 76 23 WHITE MAGENTA 1
  103. BEN LOCATE 1 10 / WRITEC WHITE MAGENTA BEN~is~very~good~with~dealing~with~user~input.
  104. BEN LOCATE 1 12 / WRITEC YELLOW MAGENTA The~menu~that~brought~you~here~is~itself~a~fine~example.
  105. BEN SHADFILLEDBOX 10 15 71 19 BLUE BLUE 0
  106. BEN COLOR BLACK LIGHTGRAY / LOCATE 1 16 / WRITEC WHITE BLUE Please~enter~your~favourite~color,~%NAME%
  107.  
  108. :GetFColor
  109. BEN BOX 30 18 50 18 BLACK LIGHTGRAY 0 / LOCATE 31 18 / CURSOR FULL / FLUSH / GETLINEL / CURSOR OFF / SOUND 50 50
  110. IF "%BEN%"=="" GOTO FColorEnteredNot
  111. SET FCOLOR=%BEN%
  112. BEN COLOR LIGHTGRAY BLACK / LOCATE 1 16 / WRITEC YELLOW BLUE ~Now,~enter~your~favourite~animal,~%NAME%~
  113.  
  114. :GetFAnimal
  115. BEN BOX 30 18 50 18 LIGHTGRAY BLACK 0 / LOCATE 31 18 / CURSOR FULL / FLUSH / GETLINEL / CURSOR OFF / SOUND 50 50
  116. IF "%BEN%"=="" GOTO FAnimalEnteredNot
  117. BEN GROWFILLEDBOX 10 5 71 21 CYAN CYAN 0 / LOCATE 1 7 / WRITEC BLACK CYAN We~have~a~conclusion:
  118. BEN LOCATE 1 13 / WRITEC RED CYAN "%NAME%~loves~to~eat~%FCOLOR%~%BEN%!"
  119. BEN LOCATE 1 18 / WRITEC BLUE LIGHTCYAN Ha!~Ha!~Ha!
  120. BEN LOCATE 1 20 / WRITEC MAGENTA CYAN Please~press~any~key~to~go~on~with~our~demo~.~.~. / FLUSH / PAUSE
  121.  
  122. SET FColor=
  123. BEN SHADFILLEDBOX 1 1 80 25 LIGHTCYAN RED 5 / GROWFILLEDBOX 10 8 70 14 BROWN BROWN 0
  124. BEN LOCATE 1 9 / WRITEC YELLOW BROWN Now,~press~any~number~key~to~test~
  125. BEN WRITEC YELLOW BROWN BEN's~key~handling~capability.
  126. BEN WRITEC WHITE BROWN (Press~'Q'~to~quit)
  127. BEN LOCATE 1 13 / WRITEC LIGHTCYAN BROWN (BEN~will~reject~all~other~keys)
  128.  
  129. :AskLoop
  130. BEN ASK 1234567890Q
  131. IF ERRORLEVEL 11 GOTO MainMenu
  132. IF ERRORLEVEL 10 IF NOT ERRORLEVEL 11 SET BEN=0
  133. IF ERRORLEVEL 9 IF NOT ERRORLEVEL 10 SET BEN=9
  134. IF ERRORLEVEL 8 IF NOT ERRORLEVEL 9 SET BEN=8
  135. IF ERRORLEVEL 7 IF NOT ERRORLEVEL 8 SET BEN=7
  136. IF ERRORLEVEL 6 IF NOT ERRORLEVEL 7 SET BEN=6
  137. IF ERRORLEVEL 5 IF NOT ERRORLEVEL 6 SET BEN=5
  138. IF ERRORLEVEL 4 IF NOT ERRORLEVEL 5 SET BEN=4
  139. IF ERRORLEVEL 3 IF NOT ERRORLEVEL 4 SET BEN=3
  140. IF ERRORLEVEL 2 IF NOT ERRORLEVEL 3 SET BEN=2
  141. IF ERRORLEVEL 1 IF NOT ERRORLEVEL 2 SET BEN=1
  142. BEN SOUND 50 50 / LOCATE 1 18 / WRITEC LIGHTMAGENTA RED You~just~pressed~the~"%BEN%"~key!
  143. GOTO AskLoop
  144.  
  145. :FColorEnteredNot
  146. BEN MESSAGE Please~do~enter~something!
  147. GOTO GetFColor
  148.  
  149. :FAnimalEnteredNot
  150. BEN MESSAGE Please~do~enter~something!
  151. GOTO GetFAnimal
  152. :----------------------------------------------------------------------------
  153. :SoundAndMusic
  154. BEN T BENDEMO.DA3
  155. rem Draws "The Music Work Shop" background by calling BENDEMO.DA3
  156.  
  157. :MusicAskLoop
  158. BEN ASK EIBQ 
  159. IF ERRORLEVEL 4 IF NOT ERRORLEVEL 5 GOTO MainMenu
  160. IF ERRORLEVEL 3 IF NOT ERRORLEVEL 4 GOTO SelectBeep
  161. IF ERRORLEVEL 2 IF NOT ERRORLEVEL 3 BEN T BENDEMO.DA5
  162. IF ERRORLEVEL 1 IF NOT ERRORLEVEL 2 BEN T BENDEMO.DA4
  163. GOTO MusicAskLoop
  164.  
  165. :SelectBeep
  166. BEN SCROLL 54 5 76 17 RIGHT / SCROLL 55 5 77 17 RIGHT / TRANSPARENTBOX 57 18 77 18 RED RED
  167. BEN BEEP / SCROLL 56 5 78 18 LEFT / SCROLL 55 5 77 18 LEFT / TRANSPARENTBOX 57 18 77 18 0 0 / TRANSPARENTBOX 76 6 77 17 0 0
  168. GOTO MusicAskLoop
  169. :----------------------------------------------------------------------------
  170. :ScrollingAround
  171. BEN T BENDEMO.DA6
  172. GOTO MainMenu
  173. :----------------------------------------------------------------------------
  174. :VideoMode
  175. BEN GROWFILLEDBOX 5 3 76 23 WHITE BLUE 1 / GETVIDEO
  176. BEN LOCATE 1 10 / WRITEC WHITE BLUE Let's~see~what~kind~of~video~system~you~have.
  177. BEN LOCATE 1 13 / WRITEC LIGHTCYAN BLUE Oh!~You've~got~a~%BEN%~video~system!
  178. IF "%BEN%"=="EGA" GOTO EGAVGA
  179. IF "%BEN%"=="VGA" GOTO EGAVGA
  180. BEN LOCATE 1 16 / WRITEC YELLOW BLUE Too~bad~you~don't~have~an~EGA~or~a~VGA~video~system.
  181. BEN LOCATE 1 17 / WRITEC YELLOW BLUE Otherwise,~we~can~show~you~BEN's~EGAVGA~function.
  182. BEN LOCATE 1 22 / WRITEC LIGHTGRAY LIGHTBLUE Well,~please~press~any~key~to~return~to~the~menu~.~.~. / FLUSH / PAUSE
  183. GOTO MainMenu
  184.  
  185. :EGAVGA
  186. BEN BEEP LOCATE 1 16 / WRITEC YELLOW LIGHTBLUE Neat!~Press~any~key~to~switch~to~extended~line~mode~.~.~.
  187. BEN FLUSH / PAUSE / EGAVGA ON / CLS CYAN
  188. IF "%BEN%"=="EGA" BEN GROWFILLEDBOX 5 3 76 41 WHITE BLUE 2
  189. IF "%BEN%"=="VGA" BEN GROWFILLEDBOX 5 3 76 48 WHITE BLUE 2
  190. BEN LOCATE 1 20 WRITEC YELLOW BLUE ╒═════╗~╒══════╗~╒══════╗~~~~~╒═╗~╒═╗~~~~╒═╗~╒══════╗~╒══════╗
  191. BEN LOCATE 1 21 WRITEC YELLOW BLUE │~╓───╜~│~╓────╜~│~╓──┐~║~~~~╒╛╓╜~│~║~~~~│~║~│~╓────╜~│~╓──┐~║
  192. BEN LOCATE 1 22 WRITEC YELLOW BLUE │~╚═╗~~~│~║~╒══╗~│~╚══╛~║~~~╒╛╓╜~~└┐╚╗~~╒╛╓╜~│~║~╒══╗~│~╚══╛~║
  193. BEN LOCATE 1 23 WRITEC YELLOW BLUE │~╓─╜~~~│~║~└┐~║~│~╓──┐~║~~╒╛╓╜~~~~└┐╚╗╒╛╓╜~~│~║~└┐~║~│~╓──┐~║
  194. BEN LOCATE 1 24 WRITEC YELLOW BLUE │~╚═══╗~│~╚══╛~║~│~║~~│~║~╒╛╓╜~~~~~~└┐╚╛╓╜~~~│~╚══╛~║~│~║~~│~║
  195. BEN LOCATE 1 25 WRITEC YELLOW BLUE └─────╜~└──────╜~└─╜~~└─╜~└─╜~~~~~~~~└──╜~~~~└──────╜~└─╜~~└─╜
  196. BEN LOCATE 1 35 WRITEC WHITE BLUE Mode~is~currently~activated,~as~you~might~have~seen!
  197. BEN LOCATE 1 40 WRITEC LIGHTMAGENTA LIGHTBLUE Press~any~key~to~return~to~25~lines~mode.
  198. BEN FLUSH / PAUSE / EGAVGA OFF / CURSOR OFF / TITLEDBOX 1 1 80 25 WHITE RED 1 BEN~-~the~Batch~ENhancer~(c)~1992
  199. GOTO MainMenu
  200. :----------------------------------------------------------------------------
  201. :CloseDown
  202. SET NAME=
  203. BEN CLEANUP
  204. CLS
  205. ECHO BENDEMO.BAT - A Demo Batch File That Demonstrates BEN
  206. ECHO  
  207. ECHO Thank you for taking your time to evaluate our demo.
  208. ECHO We hope that you would take a look at other files that
  209. ECHO are included in the BEN package as well (eg. BENEDIT).
  210. ECHO  
  211. ECHO Thanks!
  212. ECHO  
  213.