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