HotKeySet("{Esc}", _EXIT())
HotKeySet("{F1}", $helpitem)
Hotkeyset("{F2}", $saveitem)
Hotkeyset("{F3}", $openitem)

While 1
    Sleep(10)
    $msg = GUIGetMsg()

    If $msg = $openitem Then
        $fileo = FileOpenDialog("BZ-Writer-Datei öffnen...", @Tempdir, "BZ-Writer-Datei (*.BZWD)|Alle (*.*)", 1 + 8)
            $verschl = _StringEncrypt(0, FileRead($fileo), 10)
            FileDelete($fileo)
            FileWrite($fileo, $verschl)
            $fileread = FileRead($fileo)
        If FileRead($fileo) Then
            $Ausgabe = $fileread
        Endif
        Filedelete(@Tempdir&"\BZ-Writer\1243213412433z64586.txt")
        GUICtrlSetData($editfield, $Ausgabe)
        If @error <> 1 Then GUICtrlCreateMenuItem($fileo, $recentfilesmenu)
        If @error <> 1 Then GUICtrlSetData($statuslabel, "Status: geöffnet!")
        Sleep(5000)
        GUICtrlSetData($statuslabel, "Status:"&$defaultstatus)
    EndIf

If $msg = $saveitem Then
        If FileExists(@Tempdir&"\BZ-Writer\1243213412433z64586.txt") Then
            $filesa = FileSaveDialog("Speichern...", @Tempdir, "BZ-Writer-Datei (*.BZWD)", 2 + 16)
            FileWrite($filesa, $Ausgabe)
            $verschl = _StringEncrypt(1, FileRead($filesa), 10)
            FileDelete($filesa)
            FileWrite($filesa, $verschl)
            If @error <> 1 Then GUICtrlSetData($statuslabel, "Status: gespeichert!")
            Sleep(5000)
            GUICtrlSetData($statuslabel, "Status:"&$defaultstatus)
        Else
            FileWrite($filesa or $fileo, $Ausgabe)
        Endif
    EndIf

    If $msg = $exititem Then _Exit()

Func _EXIT()
    DirRemove(@Tempdir&"\BZ-Writer", 1)
    Exit
EndFunc