home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / LUNACY / SPARKL23.ZIP / SP-DEMO.BAT < prev    next >
DOS Batch File  |  1990-06-24  |  5KB  |  153 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
  10. Rem  --- A little music compliments of Option 1:  Sound ---
  11. Rem
  12. sparkle 1 99
  13. sparkle 3 25 25 112 / /── Press any key to continue ──
  14. cls
  15. Rem  --- Display 2 "windows" using Option 6:  Window ---
  16. Rem
  17. sparkle 6 1 1 22 80 64 0 /
  18. sparkle 6 4 4 18 78 112 -2 /This simple batch file demonstrates Sparkle's options.
  19. Rem
  20. Rem  --- Display text inside our window using Option 5:  QuikPrint ---
  21. Rem
  22. sparkle 5 6 13 112 /You've already seen (or heard) 5 of Sparkle's Options:
  23.  sparkle 5 8 15 112 /Option 1:  Sound Effects  (William Tell Overture)
  24.        sparkle 5 10 22 112 /4:      Big! Font  (the last screen)
  25.        sparkle 5 12 22 112 /5:      QuikPrint  (which is printing this)
  26.        sparkle 5 14 22 112 /6:         Window  (5 styles; with or without a shadow)
  27.        sparkle 5 16 22 112 /3:            Ask  (Below; print message, get response)
  28. sparkle 3 25 25 112 / /── Press any key to continue ──
  29. cls
  30. sparkle 6 11 30 17 77 79 1 /Sound Effects
  31. sparkle 5 13 32 79 /Here are a few of the 35 sound effects that
  32. sparkle 5 15 32 79 /Sparkle offers you (not counting Wm. Tell).
  33. echo on
  34. sparkle 1 3
  35. sparkle 1 4
  36. sparkle 1 5
  37. sparkle 1 6
  38. sparkle 1 7
  39. sparkle 1 8
  40. sparkle 1 9
  41. sparkle 1 11
  42. sparkle 1 12
  43. sparkle 1 13
  44. sparkle 1 14
  45. pause
  46. echo off
  47. cls
  48. Rem
  49. Rem  --- Display another "window" the "normal batch file way" ---
  50. Rem
  51. echo    ┌─────────────────────────────────────────────────────────────────────────┐
  52. echo    │                                                                         │
  53. echo    │ When you press a key, we'll demonstrate Option 2:  SCROLLING BAR MENUS. │
  54. echo    │                                                                         │
  55. echo    │            The 1st menu will be Vertical, the 2nd, Horizontal.          │
  56. echo    │                                                                         │
  57. echo    │                                                                         │
  58. echo    │ This also demonstrates Option 3:  ASK  (which prints the message below).│
  59. echo    │                                                                         │
  60. echo    └─────────────────────────────────────────────────────────────────────────┘
  61. sparkle 3 10 25 112 / /── Press any key to continue ──
  62. Rem
  63. :WindowQuikPrint
  64. cls
  65. Rem  --- display Vertical Menu (a "Com" screen created by our P-Screen Screen Design) ---
  66. Rem
  67. If Not Exist V-Menu.Com goto NoVertical
  68. Rem
  69. V-Menu
  70. sparkle 5 24 14 112 / This demonstrates Option 2:  Scrolling Bar Menus. /
  71. sparkle 5 25 14 112 /   "Com" screen created by our P-Screen program.   /
  72. sparkle 2 5 49 22 78 112 1
  73. cls
  74. If Errorlevel 27 goto vEscapePressed
  75. If Errorlevel 6 goto Num6
  76. If Errorlevel 5 goto Num5
  77. If Errorlevel 4 goto Num4
  78. If Errorlevel 3 goto Num3
  79. If Errorlevel 2 goto Num2
  80. If Errorlevel 1 goto Num1
  81. goto HorizontalMenu
  82. :vEscapePressed
  83. echo You pressed Escape . . . .
  84. goto HorizontalMenu
  85. :Num6
  86. echo You chose number 6 . . . .
  87. goto HorizontalMenu
  88. :Num5
  89. echo You chose number 5 . . . .
  90. goto HorizontalMenu
  91. :Num4
  92. echo You chose number 4 . . . .
  93. goto HorizontalMenu
  94. :Num3
  95. echo You chose number 3 . . . .
  96. goto HorizontalMenu
  97. :Num2
  98. echo You chose number 2 . . . .
  99. goto HorizontalMenu
  100. :Num1
  101. echo You chose number 1 . . . .
  102. Goto HorizontalMenu
  103. :NoVertical
  104. sparkle 4 6 2 15 221 /Can't Find
  105. sparkle 4 14 2 15 221 /V-Menu.Com
  106. :HorizontalMenu
  107. sparkle 3 25 25 112 / /── Press any key to continue ──
  108. Rem
  109. cls
  110. Rem --- display a Horizontal Menu (another P-Screen "Com" screen) ---
  111. Rem
  112. If Not Exist H-Menu.Com goto NoHorizontal
  113. Rem
  114. H-Menu
  115. sparkle 5 24 19 112 / Here's a Horizontal Scrolling Bar Menu.
  116. sparkle 5 25 19 112 / Press:  │ cursor keys; ─┘ when done.
  117. sparkle 2 13 6 13 74 112 0
  118. cls
  119. If Errorlevel 27 goto HEscapePressed
  120. If Errorlevel 6 goto YouChose6
  121. If Errorlevel 5 goto YouChose5
  122. If Errorlevel 4 goto YouChose4
  123. If Errorlevel 3 goto YouChose3
  124. If Errorlevel 2 goto YouChose2
  125. If Errorlevel 1 goto YouChose1
  126. goto End
  127. :HEscapePressed
  128. echo You pressed Escape . . . .
  129. goto End
  130. :YouChose6
  131. echo You chose number 6 . . . .
  132. goto End
  133. :YouChose5
  134. echo You chose number 5 . . . .
  135. goto End
  136. :YouChose4
  137. echo You chose number 4 . . . .
  138. goto End
  139. :YouChose3
  140. echo You chose number 3 . . . .
  141. goto End
  142. :YouChose2
  143. echo You chose number 2 . . . .
  144. goto End
  145. :YouChose1
  146. echo You chose number 1 . . . .
  147. Goto End
  148. :NoHorizontal
  149. sparkle 4 6 2 15 221 /Can't Find
  150. sparkle 4 14 2 15 221 /H-Menu.Com
  151. :end
  152. sparkle 5 25 9 112 / We hope you enjoyed the demo and find Sparkle helpful. . . . rws /
  153.