home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / utility / tjutil14.zip / DEMO.BAT < prev    next >
DOS Batch File  |  1993-03-15  |  7KB  |  279 lines
  1. @echo off
  2. rem ***************************** (c) Copyright Torbjörn Johansson 1992-93 ****
  3. rem *                                                                         *
  4. rem *   Demoprogram for the utilities from Torbjörn JOHANSSON, (c) 1992-93    *
  5. rem *         Ruthenenweg 7, A-8770 St. Michael, Austria, 03843-27772         *
  6. rem *                                                                         *
  7. rem *       CursOff, CursOn, KbufSize, GotoXY, AskBar, MouseAsk, ReBoot,      *
  8. rem *                           TextCol  & ClsX                               *
  9. rem *                                                                         *
  10. rem ***************************************************************************
  11. rem
  12. cursoff
  13. clsx 4
  14. textcol /t=13
  15. middle ┌────────────────────────────────────────┐ 6
  16. middle │________________________________________│
  17. middle └────────────────────────────────────────┘
  18. textcol /t=9
  19. middle Demo_for_TJ's_Utilities___-_KbufSize_- 7
  20. gotoxy 1 11
  21. kbufsize
  22. gotoxy 1 1
  23. textcol
  24. pause
  25. rem ------------------------------------------------------------------------
  26. :demo1
  27. clsx 7
  28. textcol /b=7 /t=0
  29. gotoxy 1 1
  30. echo █
  31. echo │
  32. echo └────── Move the mouse to this position for demo of the screenblankeffect!
  33. textcol /t=15 /b=7
  34. middle ┌─────────────────────────────────────────┐ 6
  35. middle │_________________________________________│
  36. middle └─────────────────────────────────────────┘
  37. textcol /b=7 /t=11
  38. middle Demo_for_TJ's_Utilities__-_MouseAsk_- 7
  39. gotoxy 23 11
  40. echo This is Menu nr. 1
  41. gotoxy 23 12
  42. echo This is Menu nr. 2
  43. gotoxy 23 13
  44. echo This is (A)nother posibillity
  45. gotoxy 23 14
  46. echo Or you can write it this way: (B)
  47. gotoxy 23 15
  48. echo 9. Or you can select here for nine.
  49. gotoxy 9 20
  50. rem
  51. textcol /b=7 /t=1
  52. Mouseask Click_on_the_screen_or_on_the_Keyboard_1,_2,_a/A,_b/B_or_9._ 12ab9
  53. rem
  54. rem
  55. rem         Depending on the peculiar way that DOS works, you have to compare
  56. rem         the ERRORLEVEL in invese order (it doesn't compare 'equal', it 
  57. rem         compares 'equal or bigger'.
  58. rem
  59. rem
  60. cls
  61. if errorlevel = 6 goto error1       rem (-Ctrl Break-)
  62. if errorlevel = 5 goto p9
  63. if errorlevel = 4 goto pB
  64. if errorlevel = 3 goto pA
  65. if errorlevel = 2 goto p2
  66. if errorlevel = 1 goto p1
  67. goto error1
  68. goto end1
  69. :p1
  70. cursoff
  71. textcol /t=15 /b=7
  72. middle ┌────────────────┐ 12
  73. middle │________________│
  74. middle └────────────────┘
  75. textcol /t=15 /b=1 /blink
  76. middle _You_tipped_1_ 13
  77. goto end1
  78. :p2
  79. cursoff
  80. textcol /t=15 /b=7
  81. middle ┌────────────────┐ 12
  82. middle │________________│
  83. middle └────────────────┘
  84. textcol /t=15 /b=1 /blink
  85. middle _You_tipped_2_ 13
  86. goto end1
  87. :pA
  88. cursoff
  89. textcol /t=15 /b=7
  90. middle ┌────────────────┐ 12
  91. middle │________________│
  92. middle └────────────────┘
  93. textcol /t=15 /b=1 /blink
  94. middle _You_tipped_A_ 13
  95. goto end1
  96. :pB
  97. cursoff
  98. textcol /t=15 /b=7
  99. middle ┌────────────────┐ 12
  100. middle │________________│
  101. middle └────────────────┘
  102. textcol /t=15 /b=1 /blink
  103. middle _You_tipped_B_ 13
  104. goto end1
  105. :p9
  106. cursoff
  107. textcol /t=15 /b=7
  108. middle ┌────────────────┐ 12
  109. middle │________________│
  110. middle └────────────────┘
  111. textcol /t=15 /b=1 /blink
  112. middle _You_tipped_9_ 13
  113. :end1
  114. textcol /t=15 /b=7
  115. gotoxy 1 1
  116. pause
  117. goto demo2
  118. :error1
  119. gotoxy 25 13
  120. echo Some error occured
  121. rem ---------------------------------------------------------------------------
  122. :demo2
  123. clsx 5
  124. textcol
  125. cursoff
  126. gotoxy 1 25
  127. echo.
  128. echo.
  129. echo.
  130. textcol /t=15 /b=5
  131. middle ┌─────────────────────────────────────┐ 6
  132. middle │_____________________________________│
  133. middle └─────────────────────────────────────┘
  134. textcol /b=5 /t=11
  135. gotoxy 1 1
  136. echo █
  137. echo │
  138. echo └────── Move the mouse to this position for demo of the screenblankeffect!
  139. gotoxy 7 19
  140. echo Move around with the mouse or the arrowkeys, select with the left
  141. gotoxy 7 20
  142. echo mousebutton or the [RETURN]-key.
  143. textcol /b=5 /t=9
  144. middle Demo_for_TJ's_Utilities__-_AskBar_- 7
  145. textcol /b=4 /t=15
  146. gotoxy 31 11
  147. echo  This is row 11 
  148. gotoxy 31 12
  149. echo  This is row 12 
  150. gotoxy 31 13
  151. echo  This is row 13 
  152. gotoxy 31 14
  153. echo  This is row 14 
  154. gotoxy 31 16
  155. echo  This is row 16 
  156. rem
  157. AskBar /s=30 /e=47 11 12 13 14 16
  158. rem
  159. rem
  160. rem         Depending on the peculiar way that DOS works, you have to compare
  161. rem         the ERRORLEVEL in invese order (it doesn't compare 'equal', it 
  162. rem         compares 'equal or bigger'.
  163. rem
  164. rem
  165. if errorlevel = 17 goto error2       rem (-Ctrl Break-)
  166. if errorlevel = 16 goto p16
  167. if errorlevel = 14 goto p14
  168. if errorlevel = 13 goto p13
  169. if errorlevel = 12 goto p12
  170. if errorlevel = 11 goto p11
  171. goto error2
  172. goto end3
  173. :p11
  174. cursoff
  175. clsx 6
  176. textcol /t=4 /b=6
  177. middle ┌─────────────────────────┐ 12
  178. middle │_________________________│
  179. middle └─────────────────────────┘
  180. middle You_have_choosen_row_11 13
  181. goto end2
  182. :p12
  183. cursoff
  184. clsx 6
  185. textcol /t=4 /b=6
  186. middle ┌─────────────────────────┐ 12
  187. middle │_________________________│
  188. middle └─────────────────────────┘
  189. middle You_have_choosen_row_12 13
  190. goto end2
  191. :p13
  192. cursoff
  193. clsx 6
  194. textcol /t=4 /b=6
  195. middle ┌─────────────────────────┐ 12
  196. middle │_________________________│
  197. middle └─────────────────────────┘
  198. middle You_have_choosen_row_13 13
  199. goto end2
  200. :p14
  201. cursoff
  202. clsx 6
  203. textcol /t=4 /b=6
  204. middle ┌─────────────────────────┐ 12
  205. middle │_________________________│
  206. middle └─────────────────────────┘
  207. middle You_have_choosen_row_14 13
  208. goto end2
  209. :p16
  210. cursoff
  211. clsx 6
  212. textcol /t=4 /b=6
  213. middle ┌─────────────────────────┐ 12
  214. middle │_________________________│
  215. middle └─────────────────────────┘
  216. middle You_have_choosen_row_16 13
  217. :end2
  218. gotoxy 1 1
  219. pause
  220. goto demo3
  221. :error2
  222. gotoxy 25 13
  223. echo Some error occured
  224. rem ---------------------------------------------------------------------------
  225. :demo3
  226. cls
  227. textcol
  228. gotoxy 1 25
  229. echo.
  230. echo.
  231. echo.
  232. cursoff
  233. textcol /t=15 /b=6
  234. middle ┌──────────────────────────────────────────────┐ 6
  235. middle │______________________________________________│
  236. middle └──────────────────────────────────────────────┘
  237. textcol /b=6 /t=4
  238. middle Demo_for_TJ's_Utilities__-_AskBar_&_ReBoot_- 7
  239. middle End_demo 15
  240. middle End_demo_and_boot_computer 17
  241. rem
  242. AskBar /s=23 /e=57 15 17
  243. rem
  244. rem
  245. rem         Depending on the peculiar way that DOS works, you have to compare
  246. rem         the ERRORLEVEL in invese order (it doesn't compare 'equal', it 
  247. rem         compares 'equal or bigger'.
  248. rem
  249. rem
  250. cls
  251. if errorlevel = 18 goto error3     rem (-Ctrl Break-)
  252. if errorlevel = 17 goto p17
  253. if errorlevel = 15 goto p15
  254. goto error3
  255. :p17
  256. reboot
  257. goto error3       rem (if Error)
  258. :p15
  259. goto end
  260. :error3
  261. gotoxy 25 11
  262. echo Some error occured
  263. :end
  264. cls
  265. textcol /b=4 /t=11
  266. middle ┌──────────────────────────────────────────────┐ 10
  267. middle │______________________________________________│
  268. middle └──────────────────────────────────────────────┘
  269. middle Demo_of_TJ's_Utilities_ended. 11
  270. textcol /b=6 /t=15
  271. gotoxy 1 14
  272. middle Thank_you_for_using_this_short__demo,__I__hope__you_will_be_satisfied. 14
  273. middle Remember,_if_you_plan_to_use_any__of__the__software__included__in_this
  274. middle package_for_more_than_30_days,__you_have__to_register__(otherwise_your
  275. middle use_is_illegal).______________________________________________________
  276. middle Thank_you!_-_Torbjörn_JOHANSSON,_autor_of_this_utilitypackage.
  277. gotoxy 1 20
  278. textcol
  279. curson