Sub MAIN
On Error Goto finish2

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

If cControl = 1 Then
	Goto finish2
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, 1
End If
finish2:
End Sub
