home *** CD-ROM | disk | FTP | other *** search
/ Chip: MS Office Professional / Chip-Special-Microsoft.bin / viry / simulato.r / ktdemo.bat < prev    next >
DOS Batch File  |  1994-09-09  |  6KB  |  257 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. fpkt0001.com
  187. gosub odota-fp1
  188. fpkt0013.com
  189. gosub odota-fp2
  190. goto loop
  191.  
  192. :odota
  193. REM * odotetaan napinpainallusta inforuudun ajan. jos painetaan, demo loppuu
  194. unset /q nappi
  195. hide_cur.com
  196. inkey /w12 %%nappi>nul
  197. if "%nappi" == " " goto seuraava
  198. if "%nappi" NE "" goto lopeta
  199. :seuraava
  200. show_cur.com
  201. screen 24 32 Demo alkaa...
  202. delay 1
  203. screen 1 1
  204. return
  205. :lopeta
  206. type vdemoend.ans
  207. screen 8 1
  208. cancel
  209.  
  210. :odota-v
  211. REM * odotetaan napinpainallusta inforuudun ajan vain vähän aikaa
  212. unset /q nappi
  213. hide_cur.com
  214. inkey /w7 %%nappi>nul
  215. if "%nappi" == " " goto seuraava
  216. if "%nappi" NE "" goto lopeta
  217. :seuraava
  218. show_cur.com
  219. screen 24 32 Demo alkaa...
  220. delay 1
  221. screen 1 1
  222. return
  223. :lopeta
  224. type vdemoend.ans
  225. screen 8 1
  226. cancel
  227.  
  228. :odota-fp1
  229. REM * odotetaan napinpainallusta inforuudun ajan. jos painetaan, demo loppuu
  230. unset /q nappi
  231. hide_cur.com
  232. inkey /w5 %%nappi>nul
  233. if "%nappi" == " " goto seuraava
  234. if "%nappi" NE "" goto lopeta
  235. :seuraava
  236. show_cur.com
  237. return
  238. :lopeta
  239. type vdemoend.ans
  240. screen 8 1
  241. cancel
  242.  
  243. :odota-fp2
  244. REM * odotetaan napinpainallusta inforuudun ajan. jos painetaan, demo loppuu
  245. unset /q nappi
  246. hide_cur.com
  247. inkey /w25 %%nappi>nul
  248. if "%nappi" == " " goto seuraava
  249. if "%nappi" NE "" goto lopeta
  250. :seuraava
  251. show_cur.com
  252. return
  253. :lopeta
  254. type vdemoend.ans
  255. screen 8 1
  256. cancel
  257.