/* $VER: WRITE.CONFIG 3.848 */
VERSIONCHECK 31090 "WRITE.CONFIG"

/* Userfunktionen */

BEGIN

  ;

CLOSE

  ;

SETUSERFKT 0
  SETVAR "_Path" _RS
  NEWED ""
  WINDOW 0 0 0 0
  OPEN _PATH
  ;

SETUSERFKT 1
  M_QUIT
  ;


/* lokale Variablen */

SETVAR "_OPTIMIZE" TRUE
SETVAR "_FRPATTERN" "~(#?(.info|.bak))"
SETVAR "_AUTOINDENT" 5


/* Tastaturbelegung */

KEY "control 1"
  GETNUMBER "Speicher Makro :" 1
  MACROREC _RN
  ;

KEY "control 2"
  MACROSTOP
  ;

KEY "control 3"
  GETNUMBER "Spiele Makro :" 1
  MACROPLAY _RN 1
  ;

KEY "control 4"
  GETNUMBER "Führe Makro aus" 1
  SETVAR "_Reg1" _RN
  GETNUMBER "Führe n mal aus" 1
  MACROPLAY _REG1 _RN
  ;

KEY "numpad shift 1"
  GOTO _XPOS _LENGTH
  ;

KEY "numpad shift 2"
  CURSORDOWN 0
  ;

KEY "numpad shift 3"
  PAGEDOWN 90
  ;

KEY "numpad shift 4"
  CURSORLEFT 0
  ;

KEY "numpad shift 5"
  SETTITLE "Marke gesetzt." 0
  SETMARK
  ;

KEY "numpad shift 6"
  CURSORRIGHT 0
  ;

KEY "control <"
  GETNUMBER "Bewege Block x Spalten\nnach links :" 1
  BLOCKLEFT _RN
  ;

KEY "control >"
  GETNUMBER "Bewege Block x Spalten\nnach rechts :" 1
  BLOCKRIGHT _RN
  ;

KEY "control y"
  DELETELINE
  ;

KEY "alt y"
  UNDELLINE
  ;

KEY "control x"
  GETNUMBER "Block ausschneiden in Buffer :" 1
  COPYBLOCK _RN
  DELETEBLOCK
  ;

KEY "control c"
  GETNUMBER "Kopiere Block in Buffer :" 1
  COPYBLOCK _RN
  SETTITLE "Block kopiert." 0
  ;

KEY "control v"
  GETNUMBER "Einfügen aus Buffer :" 1
  INSERTBLOCK _RN
  ;

KEY "numpad shift 7"
  GOTO _XPOS 1
  ;

KEY "numpad shift 8"
  CURSORUP 0
  ;

KEY "numpad shift 9"
  PAGEUP 90
  ;

KEY "backspace"
  BACKSPACE 0
  ;

KEY "tab"
  TAB 0
  ;

KEY "shift tab"
  BACKTAB
  ;

KEY "numpad enter"
  RETURN
  ;

KEY "return"
  RETURN
  ;

KEY "delete"
  DELETE
  ;

KEY "shift delete"
  DELETETOEOL
  ;

KEY "up"
  CURSORUP 0
  ;

KEY "shift up"
  PAGEUP 90
  ;

KEY "alt up"
  GOTO _XPOS 1
  ;

KEY "down"
  CURSORDOWN 0
  ;

KEY "shift down"
  PAGEDOWN 90
  ;

KEY "alt down"
  GOTO _XPOS _LENGTH
  ;

KEY "right"
  CURSORRIGHT 0
  ;

KEY "shift right"
  GOTO @EOL @EOL
  ;

KEY "alt right"
  NEXTWORD
  ;

KEY "left"
  CURSORLEFT 0
  ;

KEY "shift left"
  GOTO @SOL @SOL
  ;

KEY "alt left"
  LASTWORD
  ;

KEY "f1"
  GOTEXTMARK 0
  ;

KEY "shift f1"
  SETTEXTMARK 0
  ;

KEY "f2"
  GOTEXTMARK 1
  ;

KEY "shift f2"
  SETTEXTMARK 1
  ;

KEY "f3"
  GOTEXTMARK HIGHER
  ;

KEY "shift f3"
  SETTEXTMARK HIGHER
  ;

KEY "f4"
  GOTEXTMARK 3
  ;

KEY "shift f4"
  SETTEXTMARK 3
  ;

KEY "f5"
  GOTEXTMARK 4
  ;

KEY "shift f5"
  SETTEXTMARK 4
  ;

KEY "shift f6"
  GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f6 belegen wollen :" _CURRENTWORD
  KEY "f6"
    WRITETEXT _RS;
  ;

KEY "shift f7"
  GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f7 belegen wollen :" _CURRENTWORD
  KEY "f7"
    WRITETEXT _RS;
  ;

KEY "shift f8"
  GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f8 belegen wollen :" _CURRENTWORD
  KEY "f8"
    WRITETEXT _RS;
  ;

KEY "shift f9"
  GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f9 belegen wollen :" _CURRENTWORD
  KEY "f9"
    WRITETEXT _RS;
  ;

KEY "shift f10"
  GETSTRING "Geben sie den Text ein, mit dem\nsie Funktionstaste f10 belegen wollen :" _CURRENTWORD
  KEY "f10"
    WRITETEXT _RS;
  ;

KEY "help"
  MESSAGEOK "Cursorkeys         : Bewegung im Text\nShift hoch/runter  : Seite hoch/runter\nShift links/rechts : Erster/letzter Buchstabe in d. Zeile\nalt   hoch/runter  : Erste/letzte Zeile\nalt   links/rechts : letztes/nächstes Wort\n<-                 : Backspace"
  MESSAGEOK "Shift Del : Lösche bis EOL\nCtrl  y   : Lösche Zeile\nF1-F5     : Setze Textmarke\nf1-f5     : Springe zu Textmarke\nEscape    : Iconify"
  ;

KEY "rawmouse lbutton mouse_leftpress"
  GOTOMOUSE
  ;

DOUBLEKEY "rawmouse lbutton mouse_leftpress" "rawmouse lbutton mouse_leftpress"
  IF {@CLEARRN}
    GOTOMOUSE {@SAMEPOS};
    SETMARK;
    GOTOMOUSE ;
  ;

DOUBLEKEY "rawmouse rbutton mouse_rightpress" "rawmouse rbutton mouse_rightpress"
  PANNEL
  ;

KEY "rawmouse rbutton lbutton mouse_rightpress"
  UNMARK
  ;


/* Menues */

MENU "Projekt"

ITEM "Öffne..." "O"
  M_OPEN
  ;

ITEM "Alten File neu laden" "alt r"
  IF
    COMPARE 0 _CHANGED;
    NOP;
    ASK ("$_FileName$"\nist verändert worden !\nText geht verloren !) "_Neu öffnen*|A_bbrechen !^"
    BREAK 0 _RN 1 ;
  OPEN _FILENAME
  ;

ITEMBAR

ITEM "Setze/lösche..." ""
  NOP
  ;

SUB "Text unverändert" ""
  SETVAR "_changed" 0
  ;

SUB "Ändere Sleepmode" ""
  IF
    COMPARE 1 _SLEEPMODE;
    SETVAR "_SleepMode" 0;
    SETVAR "_SleepMode" 1;
  ;

SUB "Ändere EditMode" ""
  IF
    COMPARE 1 _EDITMODE;
    SETVAR "_EditMode" 0;
    SETVAR "_EditMode" 1;
  ;

ITEMBAR

ITEM "Neu" "alt n"
  M_NEW
  ;

ITEMBAR

ITEM "Umbenennen..." "R"
  GETSTRING (Benenne\n"$_FileName$"\num...) _FILENAME
  SETVAR "_FileName" _RS
  SETVAR "_Path" _RS
  ;

ITEM "Speichern" "S"
  SAVE _FILENAME
  ;

ITEM "Speichern als..." "A"
  GETFILE "" "" {@SAVE}
  SETVAR "_FileName" _PATH
  SAVE _FILENAME
  ;

ITEM "Speichern als RAW..." ""
  GETFILE "" "" {@SAVE}
  SAVE _PATH {@RAW}
  ;

ITEM "Speichern & neu öffnen..." ""
  SAVE _FILENAME
  GETFILE "" ""
  OPEN _PATH
  ;

ITEM "Text ausdrucken" "*"
  SAVE "PRT:"
  ;

ITEMBAR

ITEM "Neues Fenster" ""
  NOP
  ;

SUB "GROSSES FENSTER" "B"
  NEWED ""
  WINDOW 0 0 0 0
  ;

SUB "kleines Fenster" "W"
  NEWED ""
  WINDOW 100 50 100 50
  ;

ITEM "Iconify" "escape"
  ICONIFY
  ;

ITEM "Hide" "alt h"
  HIDE
  ;

ITEM "WinArranger" "§"
  WINARRANGER 1
  ;

ITEM "WinManager" "$"
  WINMANAGER
  ;

ITEMBAR

ITEM "Über WRITE" "!"
  ABOUT
  ;

ITEMBAR

ITEM "Speichern & Verlassen" "E"
  M_SAVE_QUIT
  ;

ITEM "Ende" "Q"
  M_QUIT
  ;

MENU "Edieren"

ITEM "Undo" "ß"
  UNDO 1
  ;

ITEM "Undo..." ""
  GETNUMBER "Wieviel Schritte\nrückgängig machen ?" 1
  UNDO _RN
  ;

ITEMBAR

ITEM "Setze Marke" "M"
  SETTITLE "Marke gesetzt." 0
  SETMARK
  ;

ITEM "Lösche Marke" "U"
  UNMARK
  ;

ITEMBAR

ITEM "Ausschneiden" "X"
  COPYBLOCK 0
  DELETEBLOCK
  ;

ITEM "Kopieren" "C"
  COPYBLOCK 0
  SETTITLE "Block kopiert." 0
  ;

ITEM "Einfügen" "V"
  INSERTBLOCK 0
  ;

ITEM "Löschen" ""
  DELETEBLOCK
  ;

ITEMBAR

ITEM "Clipboard" ""
  NOP
  ;

SUB "Ausschneiden nach Clip" "alt x"
  COPYBLOCK 0
  BUFFERTOCLIP 0 0
  DELETEBLOCK
  ;

SUB "Nach Clip kopieren" "alt c"
  COPYBLOCK 0
  BUFFERTOCLIP 0 0
  SETTITLE "Block kopiert." 0
  ;

SUB "Einfügen aus Clip" "alt v"
  CLIPTOBUFFER 0 0
  INSERTBLOCK 0
  ;

SUB "Buffer nach Clip" ""
  BUFFERTOCLIP 0 0
  ;

SUB "Clip nachBuffer" ""
  CLIPTOBUFFER 0 0
  ;

ITEMBAR

ITEM "Lösche Buffer" ""
  CLEARBUFFER 0
  SETTITLE "OK." 0
  ;

ITEM "Speicher Block als..." ""
  COPYBLOCK 0
  GETFILE "" "" {@SAVE}
  SAVEBUFFER _PATH 0
  ;

ITEM "Drucke Block" ""
  COPYBLOCK 0
  SAVEBUFFER "PRT:" 0
  ;

ITEM "Füge File ein..." ""
  GETFILE "" ""
  LOADBUFFER _PATH 0
  INSERTBLOCK 0
  ;

ITEMBAR

ITEM "Block links" "<"
  BLOCKLEFT 1
  ;

ITEM "Block rechts" ">"
  BLOCKRIGHT 1
  ;

ITEM "Block linksbündig..." ""
  GETNUMBER "Mache Block bündig zu Zeile :" _XPOS
  BLOCKLFTALIG _RN
  ;

ITEM "Block rechtsbündig..." ""
  GETNUMBER "Mach Block bündig zu Zeile :" _XPOS
  BLOCKRGHTALIG _RN
  ;

ITEM "Zentriere Block..." ""
  BLOCKCENTER 1 80
  ;

MENU "Internes"

ITEM "Parse Buffer..." ""
  GETNUMBER "Parse Buffer :" 0
  SETTITLE "PARSING..." 1
  PARSEBUFFER _RN
  FLASH
  ;

ITEM "Parse Block" ""
  COPYBLOCK 1
  SETTITLE "PARSING..." 1
  PARSEBUFFER 1
  FLASH
  ;

ITEM "Parse File..." ""
  GETFILE "" ""
  LOADBUFFER _PATH 1
  SETTITLE "PARSING..." 1
  PARSEBUFFER 1
  FLASH
  ;

ITEMBAR

ITEM "Führe Buffer aus..." ""
  GETNUMBER "Führe Buffer aus :" 0
  SETTITLE "EXECUTING..." 1
  DOBUFFER _RN
  FLASH
  ;

ITEM "Führe Block aus" ""
  COPYBLOCK 1
  SETTITLE "EXECUTING..." 1
  DOBUFFER 1
  FLASH
  ;

ITEM "Führe Komando aus..." "D"
  GETSTRING "Bitte geben sie WRITE-Komandos ein :" ""
  DOSTRING _RS
  ;

ITEM "Führe File aus..." ""
  GETFILE "" ""
  LOADBUFFER _PATH 1
  SETTITLE "EXECUTING..." 1
  DOBUFFER 1
  FLASH
  ;

ITEMBAR

ITEM "Nehme Makro auf" "1"
  MACROREC 0
  ;

ITEM "Stoppe  Aufnahme" "2"
  MACROSTOP
  ;

ITEM "Spiele ab" "3"
  MACROPLAY 0 1
  ;

ITEM "Spiele mehrmals ab..." "4"
  GETNUMBER "Replay it n times " 1
  MACROPLAY 0 _RN
  ;

MENU "Externes"

ITEM "Neue Shell" "."
  SYSTEM "NewShell"
  ;

ITEM "DOS-Execute..." ""
  GETSTRING "Geben sie ein CLI-Komando ein :" ""
  SYSTEM _RS {@ASYNC}
  ;

ITEMBAR

ITEM "Lösche File..." ""
  GETFILE "" ""
  ;

ITEM "Erschaffe Directory..." ""
  GETFILE "" "" {@SAVE}
  ;

ITEMBAR

ITEM "Font..." ""
  GETFONT
  ;

MENU "ARexx"

ITEM "Führe Rexx aus..." ""
  GETFILE "REXX:" "#?.(rexx|wrx)"
  DOREXX _RS "" {@ASYNC}
  ;

ITEMBAR

MENU "Utlities"

ITEM "Schreibe Zeichen..." "alt space"
  GETNUMBER "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
  WRITECHAR _RN
  ;

ITEM "Zeige Zeit & Datum" "T"
  MESSAGEOK "Aktuelle Zeit ist :\n$_Time$"
  ;

ITEMBAR

ITEM "UPPER word" "^"
  UPPERBLOCK @SOW @SOW @EOW @EOW
  ;

ITEM "lower word" "#"
  LOWERBLOCK @SOW @SOW @EOW @EOW
  ;

ITEMBAR

ITEM "Match Bracket" "("
  MATCHBRACKET
  ;

MENU "Suchen"

ITEM "Zähle..." ""
  GETFINDREPLACE _FINDSTRING ""
  IF
    COMPARE _MARKED HIGHER;
    FIND @MARKA @MARKA @MARKB @MARKB {@COUNT};
    FIND @CURSOR @CURSOR @EOT @EOT {@COUNT};
  MESSAGEOK "\"$_FindString$\"\nwurde $_RN$ mal gefunden !"
  ;

ITEMBAR

ITEM "Finde..." "F"
  GETFINDREPLACE _FINDSTRING ""
  IF
    COMPARE _MARKED HIGHER;
    FIND @MARKA @MARKA @MARKB @MARKB ;
    FIND @CURSOR @CURSOR @EOT @EOT ;
  ;

ITEM "Finde noch einmal" "N"
  IF
    COMPARE _MARKED HIGHER;
    FIND @CURSOR @CURSOR @MARKB @MARKB ;
    FIND @CURSOR @CURSOR @EOT @EOT ;
  ;

ITEMBAR

ITEM "Ersetze..." "Y"
  GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  IF
    COMPARE _MARKED HIGHER;
    REPLACE @MARKA @MARKA @MARKB @MARKB ;
    REPLACE @CURSOR @CURSOR @EOT @EOT ;
  ;

ITEM "Ersetze noch einmal" "Z"
  IF
    COMPARE _MARKED HIGHER;
    REPLACE @CURSOR @CURSOR @MARKB @MARKB ;
    REPLACE @CURSOR @CURSOR @EOT @EOT ;
  ;

ITEM "Ersetze alle..." ""
  GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  IF
    COMPARE _MARKED HIGHER;
    REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL};
    REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL};
  FLASH
  ;

ITEM "Ersetze alle schnell..." ""
  GETFINDREPLACE _FINDSTRING _REPLACESTRING {@REPLACE}
  SILENT
  IF
    COMPARE _MARKED HIGHER;
    REPLACE @MARKA @MARKA @MARKB @MARKB {@ALL @NOREQ};
    REPLACE @CURSOR @CURSOR @EOT @EOT {@ALL @NOREQ};
  WINDOW 0 0 0 0
  MESSAGEOK (Es wurde $_RN$ mal\n"$_FindString$"\ndurch\n"$_ReplaceString$"\nersetzt.)
  ;

ITEMBAR

ITEM "Suche nach Muster..." ""
  GETSTRING "Bitte geben sie das Suchmuster an :\n(Case)" _PATCASE
  SETVAR "_PatCase" _RS
  FINDPATTERN @CURSOR @EOT {@CASE}
  ;

ITEM "Suche noch einmal" ""
  FINDPATTERN @CURSOR @EOT {@CASE}
  ;

ITEM "Suche nach Muster (no Case)..." "Ö"
  GETSTRING "Bitte geben sie das Suchmuster an :\n(No case)" _PATNOCASE
  SETVAR "_PatNoCase" _RS
  FINDPATTERN @CURSOR @EOT {@NOCASE}
  ;

ITEM "Suche noch einmal" "Ä"
  FINDPATTERN @CURSOR @EOT {@NOCASE}
  ;

ITEMBAR

ITEM "Springe zu Zeile..." "G"
  GETNUMBER "Springe zu Zeile :" _YPOS
  GOTO _XPOS _RN
  ;

ITEMBAR

ITEM "Zeige Index..." "J"
  GETSTRING "Bitte geben sie das Suchmuster\nfür den Index an :" "#?#?"
  SHOWINDEX _RS {@CASE}
  ;

MENU "Falten"

ITEM "Falte Block" "alt f"
  FOLD @MARKA @MARKB
  ;

ITEM "Entfalte Zeile" "alt u"
  UNFOLD @CURSOR @CURSOR 1
  ;

ITEM "Falte zurück" "alt shift f"
  REFOLD
  ;

ITEMBAR

ITEM "Entfalte alles..." ""
  GETNUMBER "Wieviele Faltungsebenen\nsollen entfaltet werden ?" 1
  UNFOLD @SOT @EOT _RN
  ;

MENU "Prefs"

ITEM "Globale Prefs" ""
  GPREFS
  ;

ITEM "Prefs" "+"
  PREFS
  ;

ITEMBAR

ITEM "Lade Konfiguration..." ""
  GETFILE _CONFIGPATH "#?.config"
  LOADBUFFER _RS "1"
  SETTITLE "EXECUTING..." 1
  DOBUFFER 1
  FLASH
  ;

ITEMBAR

ITEM "Zeige Konfiguration" ""
  GETFILE _CONFIGPATH "#?.config"
  NEWED ""
  WINDOW 0 0 0 0
  OPEN _RS
  ;

MENU "Hilfe"

ITEM "Help..." "Shift Help"
  HELP
  ;

ITEM "Zeige Variablen" ""
  SHOWVARS
  ;

ITEM "Zeige Funktionen" ""
  SHOWFUNCTIONS
  ;

ITEM "Zeige ASCII-Codes" ""
  SHOWASCII
  ;

ITEM "Hilfe zu Stichwort..." "?"
  GETSTRING "Bitte geben sie das gesuchte Stichwort ein :" ""
  GUIDEHELP _RS
  ;