0
GAG Virus
DER Komandar
LISTINGS
Tag zusammen!
Hier gibt's ein BASIC Proggy,mit dem man immer
wieder gut Leute erschrecken,kann,die wenig
Ahnung von Computern haben.Am besten wirkt es
auf einem reinen DOS Rechner.Das Programm ist
natürlich völlig harmlos.Und los geht's:

WIDTH 40
LOCATE 12
COLOR 31
PRINT "        WARNING! VIRUS INFECTION!"
FOR x = 1 TO 3
FOR i% = 440 TO 1000 STEP 5
SOUND i%, i% / 4000
NEXT i%
NEXT x
LOCATE 19
PRINT "CHECKING...";
FOR x = 1 TO 3
FOR i% = 440 TO 1000 STEP 5
SOUND i%, i% / 4000
NEXT i%
PRINT "...";
NEXT x
PRINT "APPROCHING HARDWARECONFLICT"
FOR x = 1 TO 4
FOR i% = 440 TO 1000 STEP 5
SOUND i%, i% / 4000
NEXT i%
LOCATE 21, 1
PRINT x * 25; "%"
NEXT x
LOCATE 22
PRINT "SHOOTING..."
FOR x = 1 TO 3
FOR i% = 440 TO 1000 STEP 5
SOUND i%, i% / 4000
NEXT i%
NEXT x
WIDTH 80
COLOR 7
RANDOMIZE TIMER
10 V = INT(RND * 256) + 1
IF V > 255 THEN 20
PRINT CHR$(V);
GOTO 10
20 OPEN "O", #1, "TEST.TXT"
PRINT #1, " 'v5212tjw++pwegfüm#aasfümjnwnüsn"
CLOSE #1
SHELL "del test.txt"
GOTO 10

Und das war's.
Viel Spaß.
Bis die Tage!
DER Komandar