home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip: MS Office Professional
/
Chip-Special-Microsoft.bin
/
viry
/
simulato.r
/
ktdemo.old
< prev
next >
Wrap
Text File
|
1993-10-18
|
7KB
|
273 lines
@echo off
REM Demo virusten aktivoitumisesta'93
REM Copyright (c) 1993 Data Fellows Oy
REM MH // DF 18.10.1993
REM ANSI.COM muistiin ansia varten.
ansi.com /b0 koff poff
REM kstack muistiin KEYSTACKia varten
kstack.com>nul
:loop
REM *** poista seuraava rivi, jos graafinen alkukuva ei näy ****
keystack /w250 Esc ^demologo.exe
type vdemokt1.ans
echo
Crew-2480
type crew.txt
gosub odota
REM -//- Crew-2480
keystack /w100 Esc ^crew.com
rem type vdemokt1.ans
rem gosub odota
REM -//- Cascade
rem keystack /w250 Esc ^cascade.com
type vdemokt1.ans
echo
Number_1.Fiis
type number_1.txt
gosub odota
REM -//- Number 1
cls
type number_1.asc
inkey /w4 %%nappi
type vdemokt1.ans
echo
Fellowship
type fellow.txt
gosub odota
REM # teksti
keystack /w150 Esc ^fellow.com
type vdemokt1.ans
echo
Eko_Terror
type eko.txt
gosub odota
REM -//- EkoTerror
cls
type eko.asc
inkey /w4 %%nappi
type vdemokt1.ans
echo
Green Caterpillar
type find.txt
gosub odota
REM # toukka
keystack /w250 Esc ^find.com
type vdemokt1.ans
echo
Joshi
type joshi.txt
gosub odota
REM -//- Joshi
mode co40
type joshi.asc
hide_cur.com
inkey /w4 %%nappi
mode co80
type vdemokt1.ans
echo
Frodo
type q-frodo.txt
gosub odota
REM -//- Frodo
keystack /w150 Esc ^q-frodo.com
type vdemokt1.ans
echo
Tequila
type tequila.txt
gosub odota
REM -//- Tequila
keystack /w150 Esc /w1 Esc ^tequila.com
type vdemokt1.ans
echo
Tequila, osa 2
type q-t-FE03.txt
gosub odota
REM -//- Tequila, second screen
keystack /w150 Esc ^q-t-FE03.com
type vdemokt1.ans
echo
V-Sign
type q2.txt
gosub odota
REM -//- V-Sign
q2.com
inkey /w4 %%nappi
type vdemokt1.ans
echo
Casino
type q-casino.txt
gosub odota
REM -//- Casino
cls
keystack /w200 Enter /w50 Enter /w50 Enter /w50 Enter /w50 Enter /w70 Enter ^ q-casino.com
keystack !
type vdemokt1.ans
echo
Flame
type flame.txt
gosub odota
REM # liekit
keystack /w150 Esc ^flame.com
type vdemokt1.ans
echo
Flip
type flip.txt
gosub odota
REM # kääntää ruudun
keystack /w150 Esc ^flip.com
type vdemokt1.ans
echo
Ambulance
type q-amb.txt
gosub odota
REM -//- Ambulance Car
q-amb.com
inkey /w1 %%nappi
:hafen
type vdemokt1.ans
echo
Hafenstrasse
type hafen.txt
gosub odota
REM -//- Ambulance Car 2
keystack /w150 Esc ^hafen.com
inkey /w1 %%nappi
type vdemokt1.ans
echo
Chad
type chad.txt
gosub odota
REM # chad-tekstigrafiikka
keystack /w150 Esc ^chad.com
type vdemokt1.ans
echo
Crash
type crash.txt
gosub odota
REM # ruutu sekoilee merkkitilassa
keystack /w150 Esc ^crash.com
type vdemokt1.ans
echo
Dada
type dada.txt
gosub odota
REM # pyöräyttää ruudun ympäri
keystack /w50 Esc ^dada.com
keystack /w50 Esc ^dada.com
type vdemokt1.ans
echo
Delyrium
type delyrium.txt
gosub odota
REM # heiluttaa näyttöä
keystack /w150 Esc ^delyrium.com
mode co80
type vdemokt1.ans
echo
Den_Zuk
type den_zuk.txt
gosub odota
REM # Den Zuk -grafiikka
keystack /w150 Esc ^den_zuk.com
:hh
type vdemokt1.ans
echo
HH&H
type hh_hh.txt
gosub odota
REM # Grafiikka-pallo
keystack /w400 Esc ^hh_hh.com
:alex
type vdemokt1.ans
echo
Alex
type alex.txt
gosub odota
REM # alex tyhjentää ruudun
keystack /w100 Esc ^alex.com
type vdemokt1.ans
echo
Walker
type walker.txt
gosub odota
REM # kävelevä mies merkkitilassa
keystack /w150 Esc ^walker.com
type vdemokt1.ans
echo
A&A
type a_a.txt
gosub odota
REM # a&a tyhjentää ruudun
keystack /w150 Esc ^a_a.com
:1
type vdemokt1.ans
echo
TPE.Girafe
type coffshop.txt
gosub odota
REM # cannabis
keystack /w150 Esc ^coffshop.com
REM loppudemo: f-prot
fpkt0025.com
gosub odota-fp1
fpkt0026.com
gosub odota-fp1
fpkt0027.com
gosub odota-fp1
fpkt0028.com
gosub odota-fp1
fpkt0000.com
gosub odota-fp1
fpkt0029.com
gosub odota-fp1
fpkt0030.com
gosub odota-fp1
fpkt0031.com
gosub odota-fp1
fpkt0032.com
gosub odota-fp1
fpkt0034.com
gosub odota-fp2
goto loop
:odota
REM * odotetaan napinpainallusta inforuudun ajan. jos painetaan, demo loppuu
unset /q nappi
hide_cur.com
inkey /w12 %%nappi>nul
if "%nappi" == " " goto seuraava
if "%nappi" NE "" goto lopeta
:seuraava
show_cur.com
screen 24 32 Demo alkaa...
delay 1
screen 1 1
return
:lopeta
type vdemoend.ans
screen 8 1
cancel
:odota-v
REM * odotetaan napinpainallusta inforuudun ajan vain vähän aikaa
unset /q nappi
hide_cur.com
inkey /w7 %%nappi>nul
if "%nappi" == " " goto seuraava
if "%nappi" NE "" goto lopeta
:seuraava
show_cur.com
screen 24 32 Demo alkaa...
delay 1
screen 1 1
return
:lopeta
type vdemoend.ans
screen 8 1
cancel
:odota-fp1
REM * odotetaan napinpainallusta inforuudun ajan. jos painetaan, demo loppuu
unset /q nappi
hide_cur.com
inkey /w1 %%nappi>nul
if "%nappi" == " " goto seuraava
if "%nappi" NE "" goto lopeta
:seuraava
show_cur.com
return
:lopeta
type vdemoend.ans
screen 8 1
cancel
:odota-fp2
REM * odotetaan napinpainallusta inforuudun ajan. jos painetaan, demo loppuu
unset /q nappi
hide_cur.com
inkey /w25 %%nappi>nul
if "%nappi" == " " goto seuraava
if "%nappi" NE "" goto lopeta
:seuraava
show_cur.com
return
:lopeta
type vdemoend.ans
screen 8 1
cancel