home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Amiga Driver Backup / Lowe_AmigaDriverBackup.img / BEDEMO.DAT < prev    next >
Encoding:
Text File  |  1988-10-16  |  7.5 KB  |  333 lines
  1. REM    FIRST CLEAR THE SCREEN
  2. be cls
  3. be sa bright yellow on black
  4.  
  5. REM    MOVE PRESENTS OVER
  6.  
  7. rowcol 10,0 "Peter Norton                                               presents...     " 
  8. delay 1
  9. rowcol 10,0 "Peter Norton                                           presents...     " 
  10. delay 1
  11. rowcol 10,0 "Peter Norton                                       presents...     " 
  12. delay 1
  13. rowcol 10,0 "Peter Norton                                   presents...     " 
  14. delay 1
  15. rowcol 10,0 "Peter Norton                               presents...     " 
  16. delay 1
  17. rowcol 10,0 "Peter Norton                           presents...     " 
  18. delay 1
  19. rowcol 10,0 "Peter Norton                       presents...     " 
  20. delay 1
  21. rowcol 10,0 "Peter Norton                   presents...     " 
  22. delay 1
  23. rowcol 10,0 "Peter Norton               presents...     " 
  24. delay 1
  25. rowcol 10,0 "Peter Norton           presents...     " 
  26. delay 1
  27. rowcol 10,0 "Peter Norton       presents...     " 
  28. delay 1
  29. rowcol 10,0 "Peter Norton   presents...     " 
  30. rowcol 10,0
  31. printchar " " 27
  32.  
  33. REM    NOW DO A LITTLE FANCY STUFF.
  34. rowcol 9,0 "Peter Norton presents..."  
  35. delay 1
  36. rowcol 9,0
  37. printchar " " 24
  38.  
  39. rowcol 8,0 "Peter Norton presents..."  
  40. delay 1
  41. rowcol 8,0
  42. printchar " " 24
  43.  
  44. rowcol 7,0 "Peter Norton presents..."  
  45. delay 1
  46. rowcol 7,0
  47. printchar " " 24
  48.  
  49. rowcol 6,0 "Peter Norton presents..."  
  50. delay 1
  51. rowcol 6,0
  52. printchar " " 24
  53.  
  54. rowcol 5,0 "Peter Norton presents..."  
  55. delay 1
  56. rowcol 5,0
  57. printchar " " 24
  58.  
  59. rowcol 4,0 "Peter Norton presents..."  
  60. delay 1
  61. rowcol 4,0
  62. printchar " " 24
  63.  
  64. rowcol 3,0 "Peter Norton presents..."  
  65. delay 1
  66. rowcol 3,0
  67. printchar " " 24
  68.  
  69. rowcol 2,0 "Peter Norton presents..."  
  70. delay 1
  71. rowcol 2,0
  72. printchar " " 24
  73.  
  74. rowcol 1,0 "Peter Norton presents..."  
  75. delay 1
  76. rowcol 1,0
  77. printchar " " 24
  78.  
  79. rowcol 0,0 "Peter Norton presents..."  
  80. delay 1
  81. rowcol 0,0
  82. printchar " " 24
  83.  
  84. rowcol 1,1 "Peter Norton presents..."  bri gre
  85. delay 1
  86. rowcol 1,1
  87. printchar " " 24
  88.  
  89. rowcol 2,2 "Peter Norton presents..."  bri gre
  90. delay 1
  91. rowcol 2,2
  92. printchar " " 24
  93.  
  94. rowcol 3,3 "Peter Norton presents..."  bri gre
  95. delay 1
  96. rowcol 3,3
  97. printchar " " 24
  98.  
  99. rowcol 4,4 "Peter Norton presents..."  bri gre
  100. delay 1
  101. rowcol 4,4
  102. printchar " " 24 
  103.  
  104. rowcol 5,5 "Peter Norton presents..."  bri gre
  105. delay 1
  106. rowcol 5,5
  107. printchar " " 24 
  108.  
  109. rowcol 6,6 "Peter Norton presents..."  bri gre
  110. delay 1
  111. rowcol 6,6
  112. printchar " " 24 
  113.  
  114. rowcol 7,7 "Peter Norton presents..."  bri gre
  115. delay 1
  116. rowcol 7,7
  117. printchar " " 24 
  118.  
  119. rowcol 8,8 "Peter Norton presents..."  bri gre
  120. delay 1
  121. rowcol 8,8
  122. printchar " " 24 
  123.  
  124. rowcol 9,9 "Peter Norton presents..."  bri gre
  125. delay 1
  126. rowcol 9,9
  127. printchar " " 24 
  128.  
  129. rowcol 10,10 "Peter Norton presents..."  bri gre
  130. delay 1
  131. rowcol 10,10
  132. printchar " " 24 
  133.  
  134. rowcol 11,11 "Peter Norton presents..."  bri gre
  135. delay 1
  136. rowcol 11,11
  137. printchar " " 24 
  138.  
  139. rowcol 12,12 "Peter Norton presents..."  bri gre
  140. delay 1
  141. rowcol 12,12
  142. printchar " " 24 
  143.  
  144. rowcol 13,13 "Peter Norton presents..."  bri gre
  145. delay 1
  146. rowcol 13,13
  147. printchar " " 24 
  148.  
  149. rowcol 14,14 "Peter Norton presents..."  bri gre
  150. delay 1
  151. rowcol 14,14
  152. printchar " " 24 
  153.  
  154. rowcol 15,15 "Peter Norton presents..."  bri gre
  155. delay 1
  156. rowcol 15,15
  157. printchar " " 24 
  158.  
  159. rowcol 16,16 "Peter Norton presents..."  bri gre
  160. delay 1
  161. rowcol 16,16
  162. printchar " " 24 
  163.  
  164. rowcol 17,17 "Peter Norton presents..."  bri gre
  165. delay 1
  166. rowcol 17,17
  167. printchar " " 24 
  168.  
  169. rowcol 18,18 "Peter Norton presents..."  bri gre
  170. delay 1
  171. rowcol 18,18
  172. printchar " " 24 
  173.  
  174. rowcol 19,19 "Peter Norton presents..."  bri gre
  175. delay 1
  176. rowcol 19,19
  177. printchar " " 24 
  178.  
  179. rowcol 20,20 "Peter Norton presents..."  bri gre
  180. delay 1
  181. rowcol 20,20
  182. printchar " " 24 
  183.  
  184. rowcol 21,21 "Peter Norton presents..."  bri gre
  185. delay 1
  186. rowcol 21,21
  187. printchar " " 24 
  188.  
  189. rowcol 22,22 "Peter Norton presents..."  bri gre
  190. delay 1
  191. rowcol 22,22
  192. printchar " " 24 
  193.  
  194. rowcol 23,23 "Peter Norton presents..."  bri gre
  195. delay 1
  196. rowcol 23,23
  197. printchar " " 24 
  198.  
  199. rowcol 24,24 "Peter Norton presents..."  bri gre
  200. delay 1
  201. rowcol 24,24
  202. printchar " " 24 
  203.  
  204. rowcol 23,24 "Peter Norton presents..."  bri gre
  205. delay 1
  206. rowcol 23,24
  207. printchar " " 24 
  208.  
  209. rowcol 22,24 "Peter Norton presents..."  bri mag
  210. delay 1
  211. rowcol 22,24
  212. printchar " " 24 
  213.  
  214. rowcol 21,25 "Peter Norton presents..."  bri mag
  215. delay 1
  216. rowcol 21,25
  217. printchar " " 24 
  218.  
  219. rowcol 20,25 "Peter Norton presents..."  bri mag
  220. delay 1
  221. rowcol 20,25
  222. printchar " " 24 
  223.  
  224. rowcol 19,25 "Peter Norton presents..."  bri mag
  225. delay 1
  226. rowcol 19,25
  227. printchar " " 24 
  228.  
  229. rowcol 18,26 "Peter Norton presents..."  bri mag
  230. delay 1
  231. rowcol 18,26
  232. printchar " " 24 
  233.  
  234. rowcol 17,26 "Peter Norton presents..."  bri mag
  235. delay 1
  236. rowcol 17,26
  237. printchar " " 24 
  238.  
  239. rowcol 16,26 "Peter Norton presents..."  bri mag
  240. delay 1
  241. rowcol 16,26
  242. printchar " " 24 
  243.  
  244. rowcol 15,27 "Peter Norton presents..."  bri mag
  245. delay 1
  246. rowcol 15,27
  247. printchar " " 24 
  248.  
  249. rowcol 14,27 "Peter Norton presents..."  bri mag
  250. delay 1
  251. rowcol 14,27
  252. printchar " " 24 
  253.  
  254. REM    DRAW THE WINDOW ON THE SCREEN
  255. window 5,10,19,69 bright cyan on magenta explode
  256.  
  257. REM    AND PUT SOME TEXT IN IT.
  258. rowcol 12,29 "Peter Norton presents..." bright white
  259.  
  260. REM    NOW PUT A BORDER OF WINDOWS AROUND THE CENTER
  261. window 0,0,4,9 bright cyan explode  
  262. window 0,10,4,19 magenta  explode 
  263. window 0,20,4,29 bright cyan explode 
  264. window 0,30,4,39 magenta  explode 
  265. window 0,40,4,49 bright cyan explode 
  266. window 0,50,4,59 magenta  explode 
  267. window 0,60,4,69 bright cyan explode 
  268. window 0,70,4,79 magenta  explode 
  269. window 5,70,9,79 bright cyan explode 
  270. window 10,70,14,79 magenta  explode 
  271. window 15,70,19,79 bright cyan explode 
  272. window 20,70,24,79 magenta  explode 
  273. window 20,60,24,69 bright cyan explode 
  274. window 20,50,24,59 magenta  explode 
  275. window 20,40,24,49 bright cyan explode 
  276. window 20,30,24,39 magenta  explode 
  277. window 20,20,24,29 bright cyan explode 
  278. window 20,10,24,19 magenta  explode 
  279. window 20,0,24,9 bright cyan explode 
  280. window 15,0,19,9 magenta  explode 
  281. window 10,0,14,9 bright cyan explode 
  282. window 5,0,9,9 magenta  explode
  283.  
  284. REM    PUT A NEW WINDOW IN THE MIDDLE
  285. window 4,9,21,70 bright cyan on cyan explode shadow
  286.  
  287. delay 1
  288. rowcol 17,20 "████ █ ▐██ █  █ █  █ █ ▐██ █▄▄█ █▄▄ █ ██" black 
  289. delay 1
  290. rowcol 7,20 "████" black 
  291. delay 1
  292. rowcol 16,20 "██   █ █▌█ █  █ █  █ █ █▌█ █    █   █ █" black 
  293. delay 1
  294. rowcol 8,20 "██ ▐▌ █▀▀█ ▀▀█▀▀ █▀▀█ █  █" black 
  295. delay 1
  296. rowcol 15,20 "███  █▐█ █ █▄▄█ █▄▄█ █▐█ █ █    █▄  █▄▄█" black 
  297. delay 1
  298. rowcol 9,20 "████  █▄▄█   █   █    █▄▄█" black 
  299. delay 1
  300. rowcol 14,20 "██   ██▌ █ █  █ █▀▀█ ██▌ █ █▀▀█ █▀▀ █▀▀█" black 
  301. delay 1
  302. rowcol 10,20 "██ ▐▌ █  █   █   █    █  █" black 
  303. delay 1
  304. rowcol 13,20 "████" black 
  305. delay 1
  306. rowcol 11,20 "████  █  █   █   █▄▄█ █  █" black 
  307.  
  308.  
  309. REM    AND PLAY A LITTLE TUNE.
  310. beep /F392 /D4;
  311. beep /F392 /D1;
  312. beep /F523 /D15;
  313.  
  314. delay 2
  315. REM    PUT UP AN EXPLANATION WINDOW IN THE CORNER
  316. window 1,49,11,76  black on white explode shadow
  317.  
  318. rowcol 2,51 "You have just seen"  black on white
  319. rowcol 3,51 "a"  black on white
  320. rowcol 3,53 "regular DOS batch file"  magenta on white
  321. rowcol 4,51 "enhanced by the powerful"  black on white
  322. rowcol 5,51 "features found in the"  black on white
  323. rowcol 6,51 "Norton Utilities'"  black on white
  324. rowcol 6,69 "Batch"  magenta on white
  325. rowcol 7,51 "Enhancer"  magenta on white
  326. rowcol 7,60 "program."  black on white
  327. rowcol 9,51 "Hit any key to return" black on white
  328. rowcol 10,51 "to the menu screen " black on white
  329.  
  330. REM    FINALLY, LET THEM HIT ANY KEY TO FINISH THIS DEMO
  331. be ask ""
  332. be sa bri cya on black
  333.