home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / batch / sparkl29.arj / SP-DEMO.BAT < prev    next >
DOS Batch File  |  1991-09-11  |  8KB  |  258 lines
  1. echo off
  2. cls
  3. Rem
  4. Rem  --- Introduce ourselves using Option 4:  Big! Font ---
  5. Rem
  6. Sparkle 4 1 13 12 220 /Welcome
  7. Sparkle 4 9 32 11 223 /To
  8. Sparkle 4 16 13 14 220 /Sparkle
  9. Rem  --- A little music, compliments of Option 1:  Sound ---
  10. Sparkle 1 9
  11. Rem
  12. Rem  --- pause
  13. Sparkle 7 6
  14. Rem  --- See if M-Menu.Com is here (The MAIN MENU for this demo) ---
  15. If Not Exist M-Menu.Com goto _NoMain
  16. Goto MainMenu
  17. :_NoMain
  18. cls
  19. Sparkle 4 6 2 15 221 /Can't Find
  20. Sparkle 4 14 1 15 221 /M-Menu.Com
  21. Sparkle 7 12
  22. goto _End
  23. rem ------------------------   Our Main Menu    ------------------------
  24. :MainMenu
  25. rem ------------------------   Our Main Menu    ------------------------
  26. cls
  27. m-menu
  28. Sparkle  2  5 5 5 76 112 2
  29. cls
  30. If Errorlevel 27 goto _End
  31. If Errorlevel 5 goto _End
  32. If Errorlevel 4 goto _BarMenus
  33. If Errorlevel 3 goto _Sounds
  34. If Errorlevel 2 goto _Windows
  35. If Errorlevel 1 goto _Intro
  36. Goto MainMenu
  37. rem ------------------------
  38. :_Intro
  39. rem ------------------------
  40. cls
  41. Rem  --- Display 2 "windows" using Option 6:  Window ---
  42. Rem
  43. Sparkle 6 1 1 25 80 64 32 /
  44. Sparkle 6 3 4 22 76 112 -2 /This simple batch file demonstrates Sparkle's options.
  45. Rem
  46. Rem  --- Display text inside our window using Option 5:  QuikPrint ---
  47. Rem
  48. Sparkle 5 5 13 112 /Sparkle offers many options to enhance batch files:
  49. Sparkle 5 7  18 112 /Scrolling Bar Menus (Vertical or Horizontal)
  50. Sparkle 5 9  18 112 /Sound Effects   (Over 35 of them)
  51. Sparkle 5 11 18 112 /Big! Font       (Like the "Welcome" screen)
  52. Sparkle 5 13 18 112 /QuikPrint       (Which prints these messages)
  53. Sparkle 5 15 18 112 /Window          (250+ styles; with or without a shadow)
  54. Sparkle 5 17 18 112 /Ask             (Prints the message below, gets response)
  55. Sparkle 5 19 18 112 /Pause           (Pause from 1\3 second to ???)
  56. Sparkle 5 21 18 112 /Monitor         (Determine what type monitor is active)
  57. Sparkle 3 24 25 112 / /── Press any key to continue ──
  58. echo off
  59. cls
  60. Sparkle 6 2 1 23 80 64 32 /
  61. Sparkle 6 4 4 20 76 112 -2 /Sparkle's Option #8:  Which type of Adapter\Monitor is active.
  62. sparkle 7 5
  63. sparkle 8 99
  64. If Errorlevel 3 goto PrtInColor
  65. :PrtInMono
  66. Sparkle 5 10 14 15 /  Sparkle reports that a MONOCHROME monitor is active.  
  67. Sparkle 5 12 14 15 /  Printing in a color viewable on MONOCHROME monitors.  
  68. goto endMonitor
  69. :PrtInColor
  70. Sparkle 5 10 14 78 /  Sparkle reports that a COLOR monitor is active.  
  71. Sparkle 5 12 14 78 /  Printing in a color viewable on COLOR monitors.  
  72. :endMonitor
  73. sparkle 7 12
  74. Goto MainMenu
  75. rem ------------------------
  76. :_Sounds
  77. rem ------------------------
  78. cls
  79. Sparkle 6 11 30 17 77 79 1 /Sound Effects
  80. Sparkle 5 13 37 79 /Here are a few of the many sound
  81. Sparkle 5 15 37 79 /effects that Sparkle offers you.
  82. echo on
  83. Sparkle 1 4
  84. Sparkle 1 5
  85. Sparkle 1 6
  86. Sparkle 1 7
  87. Sparkle 1 8
  88. Sparkle 1 9
  89. Sparkle 1 11
  90. Sparkle 1 12
  91. Sparkle 1 13
  92. Sparkle 1 14
  93. echo off
  94. Sparkle 3 24 1 112 / /── Press any key to continue ──
  95. cls
  96. Sparkle 6 10 30 17 77 79 1 /Or play sounds over & over.
  97. Sparkle 5 13 40 79 /Press a key to stop.  Or wait
  98. Sparkle 5 14 40 79 /until we do this 15 times.
  99. Sparkle 1 6 15
  100. cls
  101. Sparkle 6 11 30 17 77 79 1 /
  102. Sparkle 5 13 37 79 /Would you like to listen to the
  103. Sparkle 5 15 37 79 /William Tell Overture?  (Yes\No)
  104. Sparkle 3 24 28 112 /YN /── Press [Y]es or [N]o ──
  105. If Errorlevel 89 goto _WmTell
  106. Goto MainMenu
  107. :_WmTell
  108. Sparkle 1 99
  109. Goto MainMenu
  110. rem ------------------------
  111. :_Windows
  112. rem ------------------------
  113. Cls
  114. Sparkle  6  1 1 25 80 27 1  /... This demonstrates Sparkle's very flexible WINDOW options ...
  115. Sparkle  6  3 4 5 24 112 1  / Frame Style # 1
  116. Sparkle  6  7 4 9 24 12 2   / Frame Style # 2
  117. Sparkle  6  11 4 13 24 116 3/ Frame Style # 3
  118. Sparkle  6  15 4 17 24 13 4 / Frame Style # 4
  119. Sparkle  6  19 4 22 24 26 -5 / Frame Style # 5
  120. Sparkle  6  3 55 5 77 112 254/Use any ASCII Char.
  121. Sparkle  6  7 55 9 77 12 21  / ASCII Char. #  21
  122. Sparkle  6  11 55 13 77 113 7 / ASCII Char. # 7
  123. Sparkle  6  15 55 17 77 13 240 / ASCII Char. # 240
  124. Sparkle  6  19 55 22 77 26 -15 / ASCII Char. #  15
  125. Sparkle  6  6 28 11 51 64 -32 / No Frame With Shadow
  126. Sparkle  6  15 28 20 51 64 32 / Or Without Shadows
  127. Sparkle 3 24 25 112 / /── Press any key to continue ──
  128. Goto MainMenu
  129. rem ------------------------
  130. :_BarMenus
  131. rem ------------------------
  132. cls
  133. Sparkle 6 1 1 10 80 27 1  /... Sparkle offers THREE types of menu options ...
  134. Sparkle 5 4 8 27 /Option 3 (ASK) lets you turn ANY screen (text OR graphics) into a menu.
  135. Sparkle 5 6 8 27 /Option 2 (BAR MENU) lets you turn almost any text screen into a:
  136. Sparkle 5 7 17 27 /- Vertical scrolling bar menu,   -or-
  137. Sparkle 5 8 17 27 /- Horizontal    "     "   "
  138. Sparkle 5 13 14 112 /── Here's an example of a menu using Option 3, ASK ──
  139. Sparkle 6 15 10 21 70 79 5  /Which of these ice cream flavors do you prefer?
  140. Sparkle 5 18 24 79 /Vanilla     --or--    Strawberry
  141. rem --- Use ASK to print a prompt, then accept only V or S
  142. Sparkle 3 21 25 112 /VS /Press   "V"   or   "S"    ── 
  143. Sparkle 5 18 22 240 /── Frankly, I prefer Chocolate !! ──
  144. Sparkle 7 12
  145. Rem
  146. :_WindowQuikPrint
  147. cls
  148. Rem  --- display Vertical Menu (a "Com" screen created by our P-Screen Screen Design) ---
  149. Rem
  150. If Not Exist V-Menu.Com goto _NoVertical
  151. Rem
  152. V-Menu
  153. Sparkle 2 5 50 22 77 1
  154. cls
  155. If Errorlevel 27 goto _vEscape
  156. If Errorlevel 6 goto _Num6
  157. If Errorlevel 5 goto _Num5
  158. If Errorlevel 4 goto _Num4
  159. If Errorlevel 3 goto _Num3
  160. If Errorlevel 2 goto _Num2
  161. If Errorlevel 1 goto _Num1
  162. goto _HorizontalMenu
  163. :_vEscape
  164. echo You pressed Escape . . . .
  165. goto _HorizontalMenu
  166. :_Num6
  167. echo You chose to Quit (# 6)
  168. goto _HorizontalMenu
  169. :_Num5
  170. echo You chose DOS (# 5)
  171. goto _HorizontalMenu
  172. :_Num4
  173. echo You chose dBase (# 4)
  174. goto _HorizontalMenu
  175. :_Num3
  176. echo You chose Paradox (# 3)
  177. goto _HorizontalMenu
  178. :_Num2
  179. echo You chose WordPerfect (# 2)
  180. goto _HorizontalMenu
  181. :_Num1
  182. echo You chose Lotus (# 1)
  183. goto _HorizontalMenu
  184. :_NoVertical
  185. Sparkle 4 6 2 15 221 /Can't Find
  186. Sparkle 4 14 2 15 221 /V-Menu.Com
  187. :_HorizontalMenu
  188. Sparkle 7 12
  189. Rem
  190. cls
  191. Rem --- display a Horizontal Menu (another P-Screen "Com" screen) ---
  192. Rem
  193. If Not Exist H-Menu.Com goto _NoHorizontal
  194. Rem
  195. H-Menu
  196. Sparkle 2 13 6 13 74 0
  197. cls
  198. If Errorlevel 27 goto _HEscape
  199. If Errorlevel 6 goto _HNum6
  200. If Errorlevel 5 goto _HNum5
  201. If Errorlevel 4 goto _HNum4
  202. If Errorlevel 3 goto _HNum3
  203. If Errorlevel 2 goto _HNum2
  204. If Errorlevel 1 goto _HNum1
  205. rem goto _End
  206. Goto MainMenu
  207. :_HEscape
  208. echo You pressed Escape . . . .
  209. goto _HPause
  210. :_HNum6
  211. echo You chose to Quit (# 6)
  212. goto _HPause
  213. :_HNum5
  214. echo You chose DOS (# 5)
  215. goto _HPause
  216. :_HNum4
  217. echo You chose dBase (# 4)
  218. goto _HPause
  219. :_HNum3
  220. echo You chose Paradox (# 3)
  221. goto _HPause
  222. :_HNum2
  223. echo You chose WordPerfect (# 2)
  224. goto _HPause
  225. :_HNum1
  226. echo You chose Lotus (# 1)
  227. rem ------------------------
  228. :_HPause
  229. rem ------------------------
  230. Sparkle 7 6
  231. Goto MainMenu
  232. :_NoHorizontal
  233. Sparkle 4 6 2 15 221 /Can't Find
  234. Sparkle 4 14 2 15 221 /H-Menu.Com
  235. Sparkle 7 12
  236. rem ------------------------
  237. :_end
  238. rem ------------------------
  239. :demo1
  240. Sparkle 6 2 1 24 80 32 32 /
  241. Sparkle 6 4 4 21 75 78 -2 /  We hope you enjoy Sparkle!  
  242. Sparkle 6 6 8 19 71 112 32 /
  243. Rem
  244. Rem  --- Display text inside our window using Option 5:  QuikPrint ---
  245. Rem
  246. Sparkle 5  8 13 112 /Remember, Sparkle is 'user-supported' software.
  247. Sparkle 5  9 13 112 /If you use it more than 4-5 times, please contribute
  248. Sparkle 5 10 13 112 /so that we're able to continue improving it.
  249. Sparkle 7 12
  250. Sparkle 5 12 13 112 /For more information on Sparkle or our other programs:
  251. Sparkle 5 14 18 112 /Write:    Pro~Formance
  252. Sparkle 5 15 28 112 /132 Alpine Terrace
  253. Sparkle 5 16 28 112 /San Francisco, CA  94117
  254. Sparkle 7 6
  255. Sparkle 5 18 18 112 /Or Call:  (415) 863-0530
  256. Sparkle 1 88
  257. Sparkle 7 12
  258.