home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / UTILITY / BATCH / SPARKL28.ZIP / SP-DEMO.BAT < prev    next >
Encoding:
DOS Batch File  |  1991-05-21  |  7.5 KB  |  253 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 9
  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 25 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 18
  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 25 1 112 / /── Press any key to continue ──
  95. cls
  96. Sparkle 6 11 30 17 77 79 1 /
  97. Sparkle 5 13 37 79 /Would you like to listen to the
  98. Sparkle 5 15 37 79 /William Tell Overture?  (Yes\No)
  99. Sparkle 3 24 28 112 /YN /── Press [Y]es or [N]o ──
  100. If Errorlevel 89 goto _WmTell
  101. Goto MainMenu
  102. :_WmTell
  103. Sparkle 1 99
  104. Goto MainMenu
  105. rem ------------------------
  106. :_Windows
  107. rem ------------------------
  108. Cls
  109. Sparkle  6  1 1 25 80 27 1  /... This demonstrates Sparkle's very flexible WINDOW options ...
  110. Sparkle  6  4 4 6 24 112 1  / Frame Style # 1
  111. Sparkle  6  8 4 10 24 12 2   / Frame Style # 2
  112. Sparkle  6  12 4 14 24 123 3/ Frame Style # 3
  113. Sparkle  6  16 4 18 24 13 4 / Frame Style # 4
  114. Sparkle  6  20 4 23 24 26 -5 / Frame Style # 5
  115. Sparkle  6  4 55 6 77 112 254/Use any ASCII Char.
  116. Sparkle  6  8 55 10 77 12 21  / ASCII Char. #  21
  117. Sparkle  6  12 55 14 77 123 250 / ASCII Char. # 250
  118. Sparkle  6  16 55 18 77 13 240 / ASCII Char. # 240
  119. Sparkle  6  20 55 23 77 26 -15 / ASCII Char. #  15
  120. Sparkle  6  6 28 12 51 64 -32 / No Frame With Shadow
  121. Sparkle  6  15 28 21 51 64 32 / Or Without Shadows
  122. Sparkle 3 25 25 112 / /── Press any key to continue ──
  123. Goto MainMenu
  124. rem ------------------------
  125. :_BarMenus
  126. rem ------------------------
  127. cls
  128. Sparkle 6 1 1 10 80 27 1  /... Sparkle offers THREE types of menu options ...
  129. Sparkle 5 4 8 27 /Option 3 (ASK) lets you turn ANY screen (text OR graphics) into a menu.
  130. Sparkle 5 6 8 27 /Option 2 (BAR MENU) lets you turn almost any text screen into a:
  131. Sparkle 5 7 17 27 /- Vertical scrolling bar menu,   -or-
  132. Sparkle 5 8 17 27 /- Horizontal    "     "   "
  133. Sparkle 5 13 14 112 /── Here's an example of a menu using Option 3, ASK ──
  134. Sparkle 6 15 10 21 70 79 5  /Which of these ice cream flavors do you prefer?
  135. Sparkle 5 18 24 79 /Vanilla     --or--    Strawberry
  136. rem --- Use ASK to print a prompt, then accept only V or S
  137. Sparkle 3 21 25 112 /VS /Press   "V"   or   "S"    ── 
  138. Sparkle 5 24 22 240 /── Frankly, I prefer Chocolate !! ──
  139. Sparkle 7 12
  140. Rem
  141. :_WindowQuikPrint
  142. cls
  143. Rem  --- display Vertical Menu (a "Com" screen created by our P-Screen Screen Design) ---
  144. Rem
  145. If Not Exist V-Menu.Com goto _NoVertical
  146. Rem
  147. V-Menu
  148. Sparkle 2 5 50 22 77 1
  149. cls
  150. If Errorlevel 27 goto _vEscape
  151. If Errorlevel 6 goto _Num6
  152. If Errorlevel 5 goto _Num5
  153. If Errorlevel 4 goto _Num4
  154. If Errorlevel 3 goto _Num3
  155. If Errorlevel 2 goto _Num2
  156. If Errorlevel 1 goto _Num1
  157. goto _HorizontalMenu
  158. :_vEscape
  159. echo You pressed Escape . . . .
  160. goto _HorizontalMenu
  161. :_Num6
  162. echo You chose number 6 . . . .
  163. goto _HorizontalMenu
  164. :_Num5
  165. echo You chose number 5 . . . .
  166. goto _HorizontalMenu
  167. :_Num4
  168. echo You chose number 4 . . . .
  169. goto _HorizontalMenu
  170. :_Num3
  171. echo You chose number 3 . . . .
  172. goto _HorizontalMenu
  173. :_Num2
  174. echo You chose number 2 . . . .
  175. goto _HorizontalMenu
  176. :_Num1
  177. echo You chose number 1 . . . .
  178. goto _HorizontalMenu
  179. :_NoVertical
  180. Sparkle 4 6 2 15 221 /Can't Find
  181. Sparkle 4 14 2 15 221 /V-Menu.Com
  182. :_HorizontalMenu
  183. Sparkle 7 12
  184. Rem
  185. cls
  186. Rem --- display a Horizontal Menu (another P-Screen "Com" screen) ---
  187. Rem
  188. If Not Exist H-Menu.Com goto _NoHorizontal
  189. Rem
  190. H-Menu
  191. Sparkle 2 13 6 13 74 0
  192. cls
  193. If Errorlevel 27 goto _HEscape
  194. If Errorlevel 6 goto _HNum6
  195. If Errorlevel 5 goto _HNum5
  196. If Errorlevel 4 goto _HNum4
  197. If Errorlevel 3 goto _HNum3
  198. If Errorlevel 2 goto _HNum2
  199. If Errorlevel 1 goto _HNum1
  200. rem goto _End
  201. Goto MainMenu
  202. :_HEscape
  203. echo You pressed Escape . . . .
  204. goto _HPause
  205. :_HNum6
  206. echo You chose number 6 . . . .
  207. goto _HPause
  208. :_HNum5
  209. echo You chose number 5 . . . .
  210. goto _HPause
  211. :_HNum4
  212. echo You chose number 4 . . . .
  213. goto _HPause
  214. :_HNum3
  215. echo You chose number 3 . . . .
  216. goto _HPause
  217. :_HNum2
  218. echo You chose number 2 . . . .
  219. goto _HPause
  220. :_HNum1
  221. echo You chose number 1 . . . .
  222. rem ------------------------
  223. :_HPause
  224. rem ------------------------
  225. Sparkle 7 6
  226. Goto MainMenu
  227. :_NoHorizontal
  228. Sparkle 4 6 2 15 221 /Can't Find
  229. Sparkle 4 14 2 15 221 /H-Menu.Com
  230. Sparkle 7 12
  231. rem ------------------------
  232. :_end
  233. rem ------------------------
  234. :demo1
  235. Sparkle 6 2 1 24 80 32 32 /
  236. Sparkle 6 4 4 21 75 78 -2 /  We hope you enjoy Sparkle!  
  237. Sparkle 6 6 8 19 71 112 32 /
  238. Rem
  239. Rem  --- Display text inside our window using Option 5:  QuikPrint ---
  240. Rem
  241. Sparkle 5  8 13 112 /Remember, Sparkle is 'user-supported' software.
  242. Sparkle 5  9 13 112 /If you use it more than 4-5 times, please contribute
  243. Sparkle 5 10 13 112 /so that we're able to continue improving it.
  244. Sparkle 7 12
  245. Sparkle 5 12 13 112 /For more information on Sparkle or our other programs:
  246. Sparkle 5 14 18 112 /Write:    Pro~Formance
  247. Sparkle 5 15 28 112 /132 Alpine Terrace
  248. Sparkle 5 16 28 112 /San Francisco, CA  94117
  249. Sparkle 7 6
  250. Sparkle 5 18 18 112 /Or Call:  (415) 863-0530
  251. Sparkle 1 88
  252. Sparkle 7 12
  253.