Keskustelu: Koodit: QB: Säikäytä kaverisi Viruksella

Viirus joka tekee tiedostoa ja samalla hidastaa konetta,
mutta jos kokeilette niin älkää olko huolissanne.
Kun painatte esciä niin se poistaa viruksen

(heh heh ne usko kaiken muahahaha...)
(vitsi vitsi)

eli jos olette vihaisia billgatesille tai jollekin
tietokoneelle laittakaa vain tämä ohjelma pyörimään
(ei ole vakava viirus jos totta puhutaan.)

''' Virus joka kasvattaa tiedoston kokoa
open "virus.vir" for append as #1 'avataan tiedosto johon kirjoitetaan
do
 locate 1,1
 print "paina esciä poistaaksesi viruksen"
 write #1, "Hehei tämä on sitä virus elämää"''tälläinen teksti siihen tulloo...
 Write #1, "Ja tässä on vain tekstiä jotta tiedosto kasvaisi"
 write #1, "NOPEAMMIN!!!HAHAAA"
loop until inkey$=chr$(27)''eli escillä lopettaa
close #1
kill "virus.vir"
end

ja sitten voi painaa "ikkunaa" näppiksestä Alt Gr:n vierestä
ja katsoa kun tiedosto kasvaa...