home *** CD-ROM | disk | FTP | other *** search
/ Chip: MS Office Professional / Chip-Special-Microsoft.bin / viry / simulato.r / ktdemo.old < prev    next >
Text File  |  1993-10-18  |  7KB  |  273 lines
  1. @echo off
  2. REM Demo virusten aktivoitumisesta'93
  3. REM Copyright (c) 1993 Data Fellows Oy
  4. REM MH // DF 18.10.1993
  5. REM ANSI.COM muistiin ansia varten.
  6. ansi.com /b0 koff poff
  7. REM kstack muistiin KEYSTACKia varten
  8. kstack.com>nul
  9. :loop
  10. REM *** poista seuraava rivi, jos graafinen alkukuva ei näy ****
  11. keystack /w250 Esc ^demologo.exe
  12. type vdemokt1.ans
  13. echo                                  Crew-2480
  14. type crew.txt
  15. gosub odota
  16. REM                             -//- Crew-2480
  17. keystack /w100 Esc ^crew.com
  18. rem type vdemokt1.ans
  19. rem gosub odota
  20. REM                             -//- Cascade
  21. rem keystack /w250 Esc ^cascade.com
  22. type vdemokt1.ans
  23. echo                                Number_1.Fiis
  24. type number_1.txt
  25. gosub odota
  26. REM                             -//- Number 1
  27. cls
  28. type number_1.asc
  29. inkey /w4 %%nappi
  30. type vdemokt1.ans
  31. echo                                     Fellowship
  32. type fellow.txt
  33. gosub odota
  34. REM # teksti
  35. keystack /w150 Esc ^fellow.com
  36. type vdemokt1.ans
  37. echo                                 Eko_Terror
  38. type eko.txt
  39. gosub odota
  40. REM                             -//- EkoTerror
  41. cls
  42. type eko.asc
  43. inkey /w4 %%nappi
  44. type vdemokt1.ans
  45. echo                             Green Caterpillar
  46. type find.txt
  47. gosub odota
  48. REM # toukka
  49. keystack /w250 Esc ^find.com
  50. type vdemokt1.ans
  51. echo                                   Joshi
  52. type joshi.txt
  53. gosub odota
  54. REM                             -//- Joshi
  55. mode co40
  56. type joshi.asc
  57. hide_cur.com
  58. inkey /w4 %%nappi
  59. mode co80
  60. type vdemokt1.ans
  61. echo                                   Frodo
  62. type q-frodo.txt
  63. gosub odota
  64. REM                             -//- Frodo
  65. keystack /w150 Esc ^q-frodo.com
  66. type vdemokt1.ans
  67. echo                                  Tequila
  68. type tequila.txt
  69. gosub odota
  70. REM                             -//- Tequila
  71. keystack /w150 Esc /w1 Esc ^tequila.com
  72. type vdemokt1.ans
  73. echo                               Tequila, osa 2
  74. type q-t-FE03.txt
  75. gosub odota
  76. REM                             -//- Tequila, second screen
  77. keystack /w150 Esc ^q-t-FE03.com
  78. type vdemokt1.ans
  79. echo                                   V-Sign
  80. type q2.txt
  81. gosub odota
  82. REM                             -//- V-Sign
  83. q2.com
  84. inkey /w4 %%nappi
  85. type vdemokt1.ans
  86. echo                                   Casino
  87. type q-casino.txt
  88. gosub odota
  89. REM                   -//- Casino
  90. cls
  91. keystack /w200 Enter /w50 Enter /w50 Enter /w50 Enter /w50 Enter /w70 Enter ^ q-casino.com
  92. keystack !
  93. type vdemokt1.ans
  94. echo                                     Flame
  95. type flame.txt
  96. gosub odota
  97. REM # liekit
  98. keystack /w150 Esc ^flame.com
  99. type vdemokt1.ans
  100. echo                                     Flip
  101. type flip.txt
  102. gosub odota
  103. REM # kääntää ruudun
  104. keystack /w150 Esc ^flip.com
  105. type vdemokt1.ans
  106. echo                                  Ambulance
  107. type q-amb.txt
  108. gosub odota
  109. REM                             -//- Ambulance Car
  110. q-amb.com
  111. inkey /w1 %%nappi
  112. :hafen
  113. type vdemokt1.ans
  114. echo                                  Hafenstrasse
  115. type hafen.txt
  116. gosub odota
  117. REM                             -//- Ambulance Car 2
  118. keystack /w150 Esc ^hafen.com
  119. inkey /w1 %%nappi
  120. type vdemokt1.ans
  121. echo                                     Chad
  122. type chad.txt
  123. gosub odota
  124. REM # chad-tekstigrafiikka
  125. keystack /w150 Esc ^chad.com
  126. type vdemokt1.ans
  127. echo                                    Crash
  128. type crash.txt
  129. gosub odota
  130. REM # ruutu sekoilee merkkitilassa
  131. keystack /w150 Esc ^crash.com
  132. type vdemokt1.ans
  133. echo                                    Dada
  134. type dada.txt
  135. gosub odota
  136. REM # pyöräyttää ruudun ympäri
  137. keystack /w50 Esc ^dada.com
  138. keystack /w50 Esc ^dada.com
  139. type vdemokt1.ans
  140. echo                                   Delyrium
  141. type delyrium.txt
  142. gosub odota
  143. REM # heiluttaa näyttöä
  144. keystack /w150 Esc ^delyrium.com
  145. mode co80
  146. type vdemokt1.ans
  147. echo                                   Den_Zuk
  148. type den_zuk.txt
  149. gosub odota
  150. REM # Den Zuk -grafiikka
  151. keystack /w150 Esc ^den_zuk.com
  152. :hh
  153. type vdemokt1.ans
  154. echo                                    HH&H
  155. type hh_hh.txt
  156. gosub odota
  157. REM # Grafiikka-pallo
  158. keystack /w400 Esc ^hh_hh.com
  159. :alex
  160. type vdemokt1.ans
  161. echo                                     Alex
  162. type alex.txt
  163. gosub odota
  164. REM # alex tyhjentää ruudun
  165. keystack /w100 Esc ^alex.com
  166. type vdemokt1.ans
  167. echo                                   Walker
  168. type walker.txt
  169. gosub odota
  170. REM # kävelevä mies merkkitilassa
  171. keystack /w150 Esc ^walker.com
  172. type vdemokt1.ans
  173. echo                                      A&A
  174. type a_a.txt
  175. gosub odota
  176. REM # a&a tyhjentää ruudun
  177. keystack /w150 Esc ^a_a.com
  178. :1
  179. type vdemokt1.ans
  180. echo                                   TPE.Girafe
  181. type coffshop.txt
  182. gosub odota
  183. REM # cannabis
  184. keystack /w150 Esc ^coffshop.com
  185. REM loppudemo: f-prot
  186. fpkt0025.com
  187. gosub odota-fp1
  188. fpkt0026.com
  189. gosub odota-fp1
  190. fpkt0027.com
  191. gosub odota-fp1
  192. fpkt0028.com
  193. gosub odota-fp1
  194. fpkt0000.com
  195. gosub odota-fp1
  196. fpkt0029.com
  197. gosub odota-fp1
  198. fpkt0030.com
  199. gosub odota-fp1
  200. fpkt0031.com
  201. gosub odota-fp1
  202. fpkt0032.com
  203. gosub odota-fp1
  204. fpkt0034.com
  205. gosub odota-fp2
  206. goto loop
  207.  
  208. :odota
  209. REM * odotetaan napinpainallusta inforuudun ajan. jos painetaan, demo loppuu
  210. unset /q nappi
  211. hide_cur.com
  212. inkey /w12 %%nappi>nul
  213. if "%nappi" == " " goto seuraava
  214. if "%nappi" NE "" goto lopeta
  215. :seuraava
  216. show_cur.com
  217. screen 24 32 Demo alkaa...
  218. delay 1
  219. screen 1 1
  220. return
  221. :lopeta
  222. type vdemoend.ans
  223. screen 8 1
  224. cancel
  225.  
  226. :odota-v
  227. REM * odotetaan napinpainallusta inforuudun ajan vain vähän aikaa
  228. unset /q nappi
  229. hide_cur.com
  230. inkey /w7 %%nappi>nul
  231. if "%nappi" == " " goto seuraava
  232. if "%nappi" NE "" goto lopeta
  233. :seuraava
  234. show_cur.com
  235. screen 24 32 Demo alkaa...
  236. delay 1
  237. screen 1 1
  238. return
  239. :lopeta
  240. type vdemoend.ans
  241. screen 8 1
  242. cancel
  243.  
  244. :odota-fp1
  245. REM * odotetaan napinpainallusta inforuudun ajan. jos painetaan, demo loppuu
  246. unset /q nappi
  247. hide_cur.com
  248. inkey /w1 %%nappi>nul
  249. if "%nappi" == " " goto seuraava
  250. if "%nappi" NE "" goto lopeta
  251. :seuraava
  252. show_cur.com
  253. return
  254. :lopeta
  255. type vdemoend.ans
  256. screen 8 1
  257. cancel
  258.  
  259. :odota-fp2
  260. REM * odotetaan napinpainallusta inforuudun ajan. jos painetaan, demo loppuu
  261. unset /q nappi
  262. hide_cur.com
  263. inkey /w25 %%nappi>nul
  264. if "%nappi" == " " goto seuraava
  265. if "%nappi" NE "" goto lopeta
  266. :seuraava
  267. show_cur.com
  268. return
  269. :lopeta
  270. type vdemoend.ans
  271. screen 8 1
  272. cancel
  273.