neo20.ods: Mittenpunkt(tot) und Punkt drunter(tot) eingefÃ¼gt; Autohotkey: Sicherung Zwischenablage, DeadKeys erweitert

git-svn-id: https://svn.neo-layout.org@101 b9310e46-f624-0410-8ea1-cfbb3a30dc96
author: nora <nora@b9310e46-f624-0410-8ea1-cfbb3a30dc96> 2007-05-10 06:15:09 +0000
committer: nora <nora@b9310e46-f624-0410-8ea1-cfbb3a30dc96> 2007-05-10 06:15:09 +0000
commit: b1e355ff2aebb2083269d2a2628cf7e4b914afce (patch)
tree: fc228eee199b9c33b9409ee705b0b228e4df6308
parent: 9dbe3cbacd6b3d794b0e68678bf6a614c144dc93 (diff)
download: neo-layout-b1e355ff2aebb2083269d2a2628cf7e4b914afce.tar.gz
neo-layout-b1e355ff2aebb2083269d2a2628cf7e4b914afce.tar.bz2
neo-layout-b1e355ff2aebb2083269d2a2628cf7e4b914afce.zip
3 files changed, 473 insertions, 1120 deletions
diff --git a/grafik/neo20.ods b/grafik/neo20.ods
index 981f376..ce79d1d 100644
--- a/grafik/neo20.ods
+++ b/grafik/neo20.ods
diff --git a/windows/XP/autohotkey/README.txt b/windows/XP/autohotkey/README.txt
index 164066d..65e1bd8 100644
--- a/windows/XP/autohotkey/README.txt
+++ b/windows/XP/autohotkey/README.txt
@@ -1,6 +1,7 @@
-Version 03.05.2007
+Version 09.05.2007
 
 == Installation ==
+
 Hierfür braucht man keine Administratorrechte, es muss jedoch 
 zuerst das Programm namens „autohotkey“
 (http://www.autohotkey.com/download/AutohotkeyInstall.exe) 
@@ -9,6 +10,7 @@ Dazu benötigt man KEINE Administratorrechte, wenn man das Programm
 beispielsweise in das Verzeichnis „Eigene Dateien/NEO“ installiert.
 
 === ahk-Dateien ===
+
 Danach kann man die .ahk-Skripte (neo20.ahk und neo20-remap.ahk) 
 mit einem Doppelklick starten. 
 Man erhält dann ein Systray-Icon, mit dem man das Skript vorübergehend 
@@ -17,11 +19,13 @@ Wenn das Öffnen nicht direkt funktioniert: Öffnen mit -> Autohotkey.exe
 auswählen -> Immer mit diesem Programm öffnen.
 
 === Automatischer Start ===
+
 Bei Bedarf kann man sich Verknüpfungen mit neo20.ahk und 
 neo20-remap.ahk in den Autostart-Ordner legen, dann hat man das 
 Layout direkt bei der Anmeldung.
 
 == Wie es funktioniert ==
+
 Das Programm kann alle Tastendrucke abfangen und statt dessen andere 
 Tasten simulieren. Die Zeile
   a::send b
@@ -30,6 +34,7 @@ Die ahk-Dateien lassen sich mit einem Texteditor bearbeiten, man muss
 dann nur das Skript neu starten um die Änderungen zu übernehmen.
 
 == Bekannte Fehler ==
+
 Das Umbelegen der Funktionstasten ist etwas ‚buggy‘ (siehe
 http://www.autohotkey.com/forum/topic10169.html) und wurde deshalb 
 in eine Extradatei ausgelagert (neo20-remap.ahk). 
@@ -38,6 +43,7 @@ Einfach beide Skripte starten.
 Problem: Manchmal kommt nur Control Down an, aber nicht das Up, 
 dann bleibt Control aktiv. 
 Lösung ist dann, einmal die normale Controltaste zu drücken.
+--> taucht bei mir inzwischen nicht mehr auf *auf Holz klopf*
 
 Ohne die Remap-Datei können 
 die 3. Ebene mit Ctrl+Win 
@@ -46,10 +52,8 @@ die 5. mit AltGr
 die 6. mit AltGr+Shift
 erreicht werden.
 
-Alle Nicht-ASCII-Zeichen werden über die Zwischenablage eingefügt.
-Der Dateiinhalt der Zwischenablage geht dabei verloren.
-
 == Nummernblock ==
+
 Der Nummernblock auf der 2. Ebene ist wahlweise
 - bei AUSgeschaltetem Numlock  
 - bei EINgeschaltetem Numlock mit Shift 
@@ -70,10 +74,9 @@ AltGr + Ende = Computer ausschalten
 --> diese Kombinationen treten auf bei AUSgeschaltetem Numlock mit Mod5
 
 == To Do ==
-Dead Keys: Die Deadkeys, die auf der zweiten Seite der .ods aufgeführt sind und die meisten von http://unicode.e-workers.de 
-funktionieren inzwischen – es fehlen noch die mit „Punkt drüber“.
 
 Lässt sich die neo20-remap.ahk in die Hauptdatei integrieren?
 Ist mir bislang noch nicht gelungen.
 
-Dateiinhalt der Zwischenablage sichern?
-\ No newline at end of file
+Geschütztes Leerzeichen und schmales Leerzeichen auf 4./6. Ebene über 
+Leertaste, finde ich keine ANSI-Darstellung für.
+\ No newline at end of file
diff --git a/windows/XP/autohotkey/neo20.ahk b/windows/XP/autohotkey/neo20.ahk
index e902ec7..9b4aedd 100644
--- a/windows/XP/autohotkey/neo20.ahk
+++ b/windows/XP/autohotkey/neo20.ahk
@@ -1,5 +1,5 @@
 /*
-   NEO-Layout - Version vom 04.05.2007
+   NEO-Layout - Version vom 08.05.2007
    Mod3 (3./4. Ebene) funktioniert über Win+Ctrl, 
     Mod5 (5./6. Ebene) über AltGr.
    Zur Umbelegung von Mod3 auf CapsLock und #
@@ -20,16 +20,19 @@ name    = NEO-Layout 2.0
 enable  = Aktiviere %name%
 disable = Deaktiviere %name%
 
+; ToDo
+; --------
+; nobreakspace und schmales Leerzeichen
 
-/*
-   Um die ANSI-Darstellung von beliebigen Unicode-Zeichen
-   zu finden (benötigt für MyUTF_String):
-   - die untenstehende Definition auskommentieren
-   - gewünschtes Zeichen in die Zwischenablage befördern
-   - ^!u (Control+Alt+U) drücken
-   - die ANSI-Darstellung aus der Zwischenablage an die 
-     gewünschte Stelle ins Skript einfügen
-*/
+
+; ANSI-Darstellung von beliebigen Unicode-Zeichen
+; -----------------------------------------------
+; (benötigt für MyUTF_String):
+;  - die untenstehende Definition auskommentieren
+;  - gewünschtes Zeichen in die Zwischenablage befördern
+;  - ^!u (Control+Alt+U) drücken
+;  - die ANSI-Darstellung aus der Zwischenablage an die 
+;    gewünschte Stelle ins Skript einfügen
 /*
 ^!u::  
    MsgBox, 
@@ -122,133 +125,91 @@ menu, tray, tip, %name%
 ´::send {´} ; akut, tot
 
 q::send x
-w::send v
+
+w::
+  If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¹¿")
+  Else 
+    send v
+Return
 
 e::
   If A_PriorHotkey = <^>!+ ; Schrägstrich
-    {
-    Send {bs}
-    MyUTF_String = Å‚
-    Gosub Unicode
-    }
+    BSUnicode("Å‚")
   Else If A_PriorHotkey = ´ ; akut 
-    {
-    Send {bs}
-    MyUTF_String = Äº
-    Gosub Unicode
-    }
+    BSUnicode("Äº")
   Else If A_PriorHotkey = +^ ; caron 
-    {
-    Send {bs}
-    MyUTF_String = Ä¾
-    Gosub Unicode
-    }
+    BSUnicode("Ä¾")
   Else If A_PriorHotkey = #^´ ; cedilla
-    {
-    Send {bs}
-    MyUTF_String = Ä¼
-    Gosub Unicode
-    }
+    BSUnicode("Ä¼")
+  Else If A_PriorHotkey = <^>!^ ; Mittenpunkt
+    BSUnicode("Å€")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¸·")
   Else 
     send l
 Return 
 
 r::
   If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Ä‰
-    Gosub Unicode
-    }
+    BSUnicode("Ä‰")
   Else If A_PriorHotkey = +^ ; caron
-    {
-    Send {bs}
-    MyUTF_String = Ä
-    Gosub Unicode
-    }
+    BSUnicode("Ä")
   Else If A_PriorHotkey = ´ ; akut
-    {
-    Send {bs}
-    MyUTF_String = Ä‡
-    Gosub Unicode
-    }
+    BSUnicode("Ä‡")
   Else If A_PriorHotkey = #^´ ; cedilla
-    {
-    Send {bs}
-    MyUTF_String = Ã§
-    Gosub Unicode
-    }
+    BSUnicode("Ã§")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("Ä‹")
   Else 
     Send c
 Return 
 
 t::
   If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Åµ
-    Gosub Unicode
-    }
+    BSUnicode("Åµ")
   Else
     send w
 Return
 
 z::
   If A_PriorHotkey = #^´ ; cedilla
-    {
-    Send {bs}
-    MyUTF_String = Ä·
-    Gosub Unicode
-    }
+    BSUnicode("Ä·")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¸³")
   Else
     send k
 Return
 
 u::
-  If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Ä¥
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^+^ ; Querstrich 
-    {
-    Send {bs}
-    MyUTF_String = Ä§
-    Gosub Unicode
-    }
+  If A_PriorHotkey = ^           ; circumflex
+    BSUnicode("Ä¥")
+  Else If A_PriorHotkey = #^+^   ; Querstrich 
+    BSUnicode("Ä§")
+  Else If A_PriorHotkey = <^>!´  ; punkt darüber 
+    BSUnicode("á¸£")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¸¥")
   Else send h
 Return
 
 i::
-  If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Ä
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^^ ; brevis
-    {
-    Send {bs}
-    MyUTF_String = ÄŸ
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^´ ; cedilla
-    {
-    Send {bs}
-    MyUTF_String = Ä£
-    Gosub Unicode
-    }
+  If A_PriorHotkey = ^          ; circumflex
+    BSUnicode("Ä")
+  Else If A_PriorHotkey = #^^   ; brevis
+    BSUnicode("ÄŸ")
+  Else If A_PriorHotkey = #^´   ; cedilla
+    BSUnicode("Ä£")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("Ä¡")
   Else send g
 Return
 
 o::
-  If A_PriorHotkey = <^>!+ ; durchgestrichen
-    {
-    Send {bs}
-    MyUTF_String = Æ’
-    Gosub Unicode
-    }
+  If A_PriorHotkey = <^>!+      ; durchgestrichen
+    BSUnicode("Æ’")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("á¸Ÿ")
   Else send f
 Return
 
@@ -257,316 +218,172 @@ p::send q
 +::send ~ ; tilde, soll tot
 
 a::
-  If A_PriorHotkey = #^+ ; Diaerese
+  If A_PriorHotkey = #^+         ; Diaerese
     Send, {bs}ü
-  Else If A_PriorHotkey = #^++ ; doppelakut 
-    {
-    Send {bs}
-    MyUTF_String = Å±
-    Gosub Unicode
-    }
-;  Else If A_PriorHotkey = +^ ; caron
-;    {
-;    Send {bs}
-;    MyUTF_String = 
-;    Gosub Unicode
-;    }
-  Else If A_PriorHotkey = #^^ ; brevis
-    {
-    Send {bs}
-    MyUTF_String = Å 
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = ++ ; macron
-    {
-    Send {bs}
-    MyUTF_String = Å«
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^+´ ; ogonek
-    {
-    Send {bs}
-    MyUTF_String = Å³
-    Gosub Unicode
-    }
+  Else If A_PriorHotkey = #^++   ; doppelakut 
+    BSUnicode("Å±")
+  Else If A_PriorHotkey = #^^    ; brevis
+    BSUnicode("Å")
+  Else If A_PriorHotkey = ++     ; macron
+    BSUnicode("Å«")
+  Else If A_PriorHotkey = #^+´   ; ogonek
+    BSUnicode("Å³")
   Else If A_PriorHotkey = <^>!+´ ; Ring
-    {
-    Send {bs}
-    MyUTF_String = Å¯
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = + ; tilde
-    {
-    Send {bs}
-    MyUTF_String = Å©
-    Gosub Unicode
-    }
+    BSUnicode("Å¯")
+  Else If A_PriorHotkey = +      ; tilde
+    BSUnicode("Å©")
   Else
     send u
 Return
 
 s::
-  If A_PriorHotkey = #^+ ; Diaerese
+  If A_PriorHotkey = #^+        ; Diaerese
     Send, {bs}ï
-  Else If A_PriorHotkey = ++ ; macron
-    {
-    Send {bs}
-    MyUTF_String = Ä«
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^^ ; brevis
-    {
-    Send {bs}
-    MyUTF_String = Ä
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^+´ ; ogonek
-    {
-    Send {bs}
-    MyUTF_String = Ä¯
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = + ; tilde
-    {
-    Send {bs}
-    MyUTF_String = Ä©
-    Gosub Unicode
-    }
+  Else If A_PriorHotkey = ++    ; macron
+    BSUnicode("Ä«")
+  Else If A_PriorHotkey = #^^   ; brevis
+    BSUnicode("Ä")
+  Else If A_PriorHotkey = #^+´  ; ogonek
+    BSUnicode("Ä¯")
+  Else If A_PriorHotkey = +     ; tilde
+    BSUnicode("Ä©")
+  Else If A_PriorHotkey = <^>!´ ; (ohne) punkt darüber 
+    BSUnicode("Ä±")
   Else 
     Send i
 Return
 
 d::
-  If A_PriorHotkey = #^+ ; Diaerese
+  If A_PriorHotkey = #^+         ; Diaerese
     Send {bs}ä
   Else If A_PriorHotkey = <^>!+´ ; Ring 
     Send {bs}å
-  Else If A_PriorHotkey = + ; tilde
-    {
-    Send {bs}
-    MyUTF_String = Ã£
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^+´ ; ogonek
-    {
-    Send {bs}
-    MyUTF_String = Ä…
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = ++ ; macron
-    {
-    Send {bs}
-    MyUTF_String = Ä
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^^ ; brevis
-    {
-    Send {bs}
-    MyUTF_String = Äƒ
-    Gosub Unicode
-    }
+  Else If A_PriorHotkey = +      ; tilde
+    BSUnicode("Ã£")
+  Else If A_PriorHotkey = #^+´   ; ogonek
+    BSUnicode("Ä…")
+  Else If A_PriorHotkey = ++     ; macron
+    BSUnicode("Ä")
+  Else If A_PriorHotkey = #^^    ; brevis
+    BSUnicode("Äƒ")
   Else 
     Send a
 Return 
 
 f::
-  If A_PriorHotkey = #^+ ; Diaerese
+  If A_PriorHotkey = #^+        ; Diaerese
     Send, {bs}ë
-  Else If A_PriorHotkey = #^+´ ; ogonek
-    {
-    Send {bs}
-    MyUTF_String = Ä™
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = ++ ; macron
-    {
-    Send {bs}
-    MyUTF_String = Ä“
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^^ ; brevis
-    {
-    Send {bs}
-    MyUTF_String = Ä•
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = +^ ; caron
-    {
-    Send {bs}
-    MyUTF_String = Ä›
-    Gosub Unicode
-    }
+  Else If A_PriorHotkey = #^+´  ; ogonek
+    BSUnicode("Ä™")
+  Else If A_PriorHotkey = ++    ; macron
+    BSUnicode("Ä“")
+  Else If A_PriorHotkey = #^^   ; brevis
+    BSUnicode("Ä•")
+  Else If A_PriorHotkey = +^    ; caron
+    BSUnicode("Ä›")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("Ä—")
   Else 
     Send e
 Return 
 
 g::
-  If A_PriorHotkey = #^+ ; Diaerese
+  If A_PriorHotkey = #^+         ; Diaerese
     Send, {bs}ö
-  Else If A_PriorHotkey = + ; tilde
-    {
-    Send {bs}
-    MyUTF_String = Ãµ
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^++ ; doppelakut
-    {
-    Send {bs}
-    MyUTF_String = Å‘
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = <^>!+ ; Schrägstrich
-    {
-    Send {bs}
-    MyUTF_String = Ã¸
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = ++ ; macron
-    {
-    Send {bs}
-    MyUTF_String = Å
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^^ ; brevis 
-    {
-    Send {bs}
-    MyUTF_String = Å
-    Gosub Unicode
-    }
+  Else If A_PriorHotkey = +      ; tilde
+    BSUnicode("Ãµ")
+  Else If A_PriorHotkey = #^++   ; doppelakut
+    BSUnicode("Å‘")
+  Else If A_PriorHotkey = <^>!+  ; Schrägstrich
+    BSUnicode("Ã¸")
+  Else If A_PriorHotkey = ++     ; macron
+    BSUnicode("Å")
+  Else If A_PriorHotkey = #^^    ; brevis 
+    BSUnicode("Å")
   Else 
     send o
 Return
 
 h::
-  If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Å
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = ´ ; akut 
-    {
-    Send {bs}
-    MyUTF_String = Å›
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = +^ ; caron
-    {
-    Send {bs}
-    MyUTF_String = Å¡
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^´ ; cedilla
-    {
-    Send {bs}
-    MyUTF_String = ÅŸ
-    Gosub Unicode
-    }
+  If A_PriorHotkey = ^           ; circumflex
+    BSUnicode("Å")
+  Else If A_PriorHotkey = ´      ; akut 
+    BSUnicode("Å›")
+  Else If A_PriorHotkey = +^     ; caron
+    BSUnicode("Å¡")
+  Else If A_PriorHotkey = #^´    ; cedilla
+    BSUnicode("ÅŸ")
+  Else If A_PriorHotkey = <^>!´  ; punkt darüber 
+    BSUnicode("á¹¡")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¹£")
   Else   
     send s
 Return
 
 j::
-  If A_PriorHotkey = ´ ; akut
-    {
-    Send {bs}
-    MyUTF_String = Å„
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = + ; tilde
-    {
-    Send {bs}
-    MyUTF_String = Ã±
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = +^ ; caron
-    {
-    Send {bs}
-    MyUTF_String = Åˆ
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^´ ; cedilla
-    {
-    Send {bs}
-    MyUTF_String = Å†
-    Gosub Unicode
-    }
+  If A_PriorHotkey = ´          ; akut
+    BSUnicode("Å„")
+  Else If A_PriorHotkey = +     ; tilde
+    BSUnicode("Ã±")
+  Else If A_PriorHotkey = +^    ; caron
+    BSUnicode("Åˆ")
+  Else If A_PriorHotkey = #^´   ; cedilla
+    BSUnicode("Å†")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("á¹…")
   Else
     send n
 Return
 
 k::
-  If A_PriorHotkey = ´ ; akut 
-    {
-    Send {bs}
-    MyUTF_String = Å•
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = +^ ; caron
-    {
-    Send {bs}
-    MyUTF_String = Å™
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^´ ; cedilla
-    {
-    Send {bs}
-    MyUTF_String = Å—
-    Gosub Unicode
-    }
+  If A_PriorHotkey = ´           ; akut 
+    BSUnicode("Å•")
+  Else If A_PriorHotkey = +^     ; caron
+    BSUnicode("Å™")
+  Else If A_PriorHotkey = #^´    ; cedilla
+    BSUnicode("Å—")
+  Else If A_PriorHotkey = <^>!´  ; punkt darüber 
+    BSUnicode("á¹™")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¹›")
   Else 
     send r
 Return
 
 l::  
-  If A_PriorHotkey = +^ ; caron 
-    {
-    Send {bs}
-    MyUTF_String = Å¥
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^´ ; cedilla
-    {
-    Send {bs}
-    MyUTF_String = Å£
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^+^ ; Querstrich
-    {
-    Send {bs}
-    MyUTF_String = Å§
-    Gosub Unicode
-    }
+  If A_PriorHotkey = +^          ; caron 
+    BSUnicode("Å¥")
+  Else If A_PriorHotkey = #^´    ; cedilla
+    BSUnicode("Å£")
+  Else If A_PriorHotkey = #^+^   ; Querstrich
+    BSUnicode("Å§")
+  Else If A_PriorHotkey = <^>!´  ; punkt darüber 
+    BSUnicode("á¹«")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¹")
   Else 
     send t
 Return
 
 ö::
-  If A_PriorHotkey = #^+^ ; Querstrich
-    {
-    Send {bs}
-    MyUTF_String = Ã°
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = +^ ; caron
-    {
-    Send {bs}
-    MyUTF_String = Ä
-    Gosub Unicode
-    }
+  If A_PriorHotkey = #^+^        ; Querstrich
+    BSUnicode("Ä‘")
+  Else If A_PriorHotkey = +^     ; caron
+    BSUnicode("Ä")
+  Else If A_PriorHotkey = <^>!´  ; punkt darüber 
+    BSUnicode("á¸‹")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¸")
   Else 
     send d
 Return
 
 ä::  
-  If A_PriorHotkey = #^+ ; Diaerese
+  If A_PriorHotkey = #^+       ; Diaerese
     Send {bs}ÿ
-  Else If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Å· 
-    Gosub Unicode
-    }
+  Else If A_PriorHotkey = ^    ; circumflex
+    BSUnicode("Å·")
   Else
     send y
 Return
@@ -577,72 +394,69 @@ Return
 y::send ö
 x::send ü
 c::send ä
-v::send p
+v::
+  If A_PriorHotkey = <^>!´      ; punkt darüber 
+    BSUnicode("á¹—")
+  Else
+    send p
+Return
 
 b::
-  If A_PriorHotkey = +^ ; caron
-    {
-    Send {bs}
-    MyUTF_String = Å¾
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = ´ ; akut
-    {
-    Send {bs}
-    MyUTF_String = Åº
-    Gosub Unicode
-    }
+  If A_PriorHotkey = +^         ; caron
+    BSUnicode("Å¾")
+  Else If A_PriorHotkey = ´     ; akut
+    BSUnicode("Åº")
   Else If A_PriorHotkey = <^>!´ ; punkt drüber
-    {
-    Send {bs}
-    MyUTF_String = Å¼
-    Gosub Unicode
-    }
+    BSUnicode("Å¼")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("Å¼")
   Else 
     Send z
 Return 
 
-n::send b
-m::send m
+n::
+  If A_PriorHotkey = <^>!´      ; punkt darüber 
+    BSUnicode("á¸ƒ")
+  Else 
+    send b
+Return
+
+m::
+  If A_PriorHotkey = <^>!´       ; punkt darüber 
+    BSUnicode("á¹")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¹ƒ")
+  Else 
+    send m
+Return
+
 ,::send `,
 .::send .
 
 -::
-  If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Äµ
-    Gosub Unicode
-    }
+  If A_PriorHotkey = ^           ; circumflex
+    BSUnicode("Äµ")
   Else
     send j
 Return
 
 Space::
-  If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Ë†
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = + ; tilde 
-    {
-    Send {bs}
-    MyUTF_String = Ëœ
-    Gosub Unicode
-    }
+  If A_PriorHotkey = ^           ; circumflex
+    BSUnicode("Ë†")
+  Else If A_PriorHotkey = +      ; tilde 
+    BSUnicode("Ëœ")
   Else
     Send {Space}
 Return
 
+Enter::Send {Enter}
+Esc::Send {Esc}
+
+
 ;2. Ebene (Shift)
 ;---------
 
-+^::  ; caron, soll tot
-   MyUTF_String = Ë‡
-   Gosub Unicode
-   return
-
++^::Unicode("Ë‡")  ; caron, tot
 +1::send °
 +2::send ¶
 +3::send §
@@ -653,203 +467,121 @@ Return
 +8::send „
 +9::send “
 +0::send ”
-
-+ß::    ; Ged
-   MyUTF_String = â€“
-   Gosub Unicode
-   return
-
-+´::send `` ; gravis, tot
++ß::Unicode("â€“") ; Ged
++´::send `` 
 
 +q::send X
-+w::send V
++w::
+  If A_PriorHotkey = <^>!+^      ; punkt darunter
+    BSUnicode("á¹¾")
+  Else 
+    send V
+Return
+
 +e::
-  If A_PriorHotkey = ´ ; akut 
-    {
-    Send {bs}
-    MyUTF_String = Ä¹
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = +^ ; caron 
-    {
-    Send {bs}
-    MyUTF_String = Ä½
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^´ ; cedilla
-    {
-    Send {bs}
-    MyUTF_String = Ä»
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = <^>!+ ; Schrägstrich 
-    {
-    Send {bs}
-    MyUTF_String = Å
-    Gosub Unicode
-    }
+  If A_PriorHotkey = ´           ; akut 
+    BSUnicode("Ä¹")
+  Else If A_PriorHotkey = +^     ; caron 
+    BSUnicode("Ä½")
+  Else If A_PriorHotkey = #^´    ; cedilla
+    BSUnicode("Ä»")
+  Else If A_PriorHotkey = <^>!+  ; Schrägstrich 
+    BSUnicode("Å")
+  Else If A_PriorHotkey = <^>!^  ; Mittenpunkt 
+    BSUnicode("Ä¿")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¸¶")
   Else 
     send L
 return
 
 +r::
-  If A_PriorHotkey = ^ ; circumflex 
-    {
-    Send {bs}
-    MyUTF_String = Äˆ
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = +^ ; caron 
-    {
-    Send {bs}
-    MyUTF_String = ÄŒ
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = ´ ; akut 
-    {
-    Send {bs}
-    MyUTF_String = Ä†
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^´ ; cedilla 
-    {
-    Send {bs}
-    MyUTF_String = Ã‡
-    Gosub Unicode
-    }
+  If A_PriorHotkey = ^          ; circumflex 
+    BSUnicode("Äˆ")
+  Else If A_PriorHotkey = +^    ; caron 
+    BSUnicode("ÄŒ")
+  Else If A_PriorHotkey = ´     ; akut 
+    BSUnicode("Ä†")
+  Else If A_PriorHotkey = #^´   ; cedilla 
+    BSUnicode("Ã‡")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("ÄŠ")
   Else 
     Send C
 Return 
 
 +t::
-  If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Å´
-    Gosub Unicode
-    }
+  If A_PriorHotkey = ^           ; circumflex
+    BSUnicode("Å´")
   Else
     send W
 Return
 
 +z::  
-  If A_PriorHotkey = #^´ ; cedilla 
-    {
-    Send {bs}
-    MyUTF_String = Ä¶
-    Gosub Unicode
-    }
+  If A_PriorHotkey = #^´         ; cedilla 
+    BSUnicode("Ä¶")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¸²")
   Else
     send K
 Return
 
 +u::
-  If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Ä¤
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^+^ ; Querstrich
-    {
-    Send {bs}
-    MyUTF_String = Ä¦
-    Gosub Unicode
-    }
+  If A_PriorHotkey = ^           ; circumflex
+    BSUnicode("Ä¤")
+  Else If A_PriorHotkey = #^+^   ; Querstrich
+    BSUnicode("Ä¦")
+  Else If A_PriorHotkey = <^>!´  ; punkt darüber 
+    BSUnicode("á¸¢")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¸¤")
   Else send H
 Return
 
 +i::
-  If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Äœ
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^^ ; brevis 
-    {
-    Send {bs}
-    MyUTF_String = Äž
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^´ ; cedilla 
-    {
-    Send {bs}
-    MyUTF_String = Ä¢
-    Gosub Unicode
-    }
+  If A_PriorHotkey = ^          ; circumflex
+    BSUnicode("Äœ")
+  Else If A_PriorHotkey = #^^   ; brevis 
+    BSUnicode("Äž")
+  Else If A_PriorHotkey = #^´   ; cedilla 
+    BSUnicode("Ä¢")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("Ä ")
   Else send G
 Return
 
 +o::
-  If A_PriorHotkey = <^>!+ ; durchgestrichen
-    {
-    Send {bs}
-    MyUTF_String = â‚£
-    Gosub Unicode
-    }
+  If A_PriorHotkey = <^>!+       ; durchgestrichen
+    BSUnicode("â‚£")
+  Else If A_PriorHotkey = <^>!´  ; punkt darüber 
+    BSUnicode("á¸ž")
   Else send F
 Return
 
 +p::send Q
 +ü::send ß
 
-++::  ; macron, soll tot 
-MyUTF_String = Ë‰ 
-Gosub Unicode
-return
+++::Unicode("Ë‰")  ; macron, tot 
 
 +a::
-  If A_PriorHotkey = #^+ ; Diaerese
+  If A_PriorHotkey = #^+         ; Diaerese
     Send, {bs}Ü
   Else If A_PriorHotkey = <^>!+´ ; Ring
-    {
-    Send {bs}
-    MyUTF_String = Å®
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^^ ; brevis
-    {
-    Send {bs}
-    MyUTF_String = Å¬ 
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^++ ; doppelakut
-    {
-    Send {bs}
-    MyUTF_String = Å°
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = +^ ; caron 
-    {
-    Send {bs}
-    MyUTF_String = Å®
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = ++ ; macron
-    {
-    Send {bs}
-    MyUTF_String = Åª
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^^ ; brevis 
-    {
-    Send {bs}
-    MyUTF_String = Å¬
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = #^+´ ; ogonek
-    {
-    Send {bs}
-    MyUTF_String = Å²
-    Gosub Unicode
-    }
-  Else If A_PriorHotkey = + ; tilde
-    {
-    Send {bs}
-    MyUTF_String = Å¨
-    Gosub Unicode
-    }
+    BSUnicode("Å®")
+  Else If A_PriorHotkey = #^^    ; brevis
+    BSUnicode("Å¬")
+  Else If A_PriorHotkey = #^++   ; doppelakut
+    BSUnicode("Å°")
+  Else If A_PriorHotkey = +^     ; caron 
+    BSUnicode("Å®")
+  Else If A_PriorHotkey = ++     ; macron
+    BSUnicode("Åª")
+  Else If A_PriorHotkey = #^^    ; brevis 
+    BSUnicode("Å¬")
+  Else If A_PriorHotkey = #^+´   ; ogonek
+    BSUnicode("Å²")
+  Else If A_PriorHotkey = +      ; tilde
+    BSUnicode("Å¨")
   Else
     send U
 Return
@@ -858,29 +590,15 @@ Return
   If A_PriorHotkey = #^+ ; Diaerese
     Send, {bs}Ï
   Else If A_PriorHotkey = ++ ; macron
-    {
-    Send {bs}
-    MyUTF_String = Äª
-    Gosub Unicode
-    }
+    BSUnicode("Äª")
   Else If A_PriorHotkey = #^^ ; brevis 
-    {
-    Send {bs}
-    MyUTF_String = Ä¬
-    Gosub Unicode
-    }
+    BSUnicode("Ä¬")
   Else If A_PriorHotkey = #^+´ ; ogonek
-    {
-    Send {bs}
-    MyUTF_String = Ä®
-    Gosub Unicode
-    }
+    BSUnicode("Ä®")
   Else If A_PriorHotkey = + ; tilde
-    {
-    Send {bs}
-    MyUTF_String = Ä¨
-    Gosub Unicode
-    }
+    BSUnicode("Ä¨")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("Ä°")
   Else 
     Send I
 Return
@@ -889,31 +607,15 @@ Return
   If A_PriorHotkey = #^+ ; Diaerese
     Send {bs}Ä
   Else If A_PriorHotkey = + ; tilde
-    {
-    Send {bs}
-    MyUTF_String = Ãƒ
-    Gosub Unicode
-    }
+    BSUnicode("Ãƒ")
   Else If A_PriorHotkey = <^>!+´ ; Ring 
     Send {bs}Å
   Else If A_PriorHotkey = ++ ; macron
-    {
-    Send {bs}
-    MyUTF_String = Ä€
-    Gosub Unicode
-    }
+    BSUnicode("Ä€")
   Else If A_PriorHotkey = #^^ ; brevis 
-    {
-    Send {bs}
-    MyUTF_String = Ä‚
-    Gosub Unicode
-    }
+    BSUnicode("Ä‚")
   Else If A_PriorHotkey = #^+´ ; ogonek
-    {
-    Send {bs}
-    MyUTF_String = Ä„
-    Gosub Unicode
-    }
+    BSUnicode("Ä„")
   Else 
     Send A
 Return 
@@ -922,170 +624,94 @@ Return
   If A_PriorHotkey = #^+ ; Diaerese
     Send, {bs}Ë
   Else If A_PriorHotkey = +^ ; caron
-    {
-    Send {bs}
-    MyUTF_String = Äš
-    Gosub Unicode
-    }
+    BSUnicode("Äš")
   Else If A_PriorHotkey = ++ ; macron
-    {
-    Send {bs}
-    MyUTF_String = Ä’
-    Gosub Unicode
-    }
+    BSUnicode("Ä’")
   Else If A_PriorHotkey = #^^ ; brevis 
-    {
-    Send {bs}
-    MyUTF_String = Ä”
-    Gosub Unicode
-    }
+    BSUnicode("Ä”")
   Else If A_PriorHotkey = #^+´ ; ogonek 
-    {
-    Send {bs}
-    MyUTF_String = Ä˜
-    Gosub Unicode
-    }
+    BSUnicode("Ä˜")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("Ä–")
   Else 
     Send E
 Return 
 
 +g::
   If A_PriorHotkey = <^>!+ ; Schrägstrich
-    {
-    Send {bs}
-    MyUTF_String = Ã˜
-    Gosub Unicode
-    }
+    BSUnicode("Ã˜")
   Else If A_PriorHotkey = + ; tilde
-    {
-    Send {bs}
-    MyUTF_String = Ã•
-    Gosub Unicode
-    }
+    BSUnicode("Ã•")
   Else If A_PriorHotkey = #^++ ; doppelakut
-    {
-    Send {bs}
-    MyUTF_String = Å
-    Gosub Unicode
-    }
+    BSUnicode("Å")
   Else If A_PriorHotkey = #^+ ; Diaerese
     Send {bs}Ö
   Else If A_PriorHotkey = ++ ; macron 
-    {
-    Send {bs}
-    MyUTF_String = ÅŒ
-    Gosub Unicode
-    }
+    BSUnicode("ÅŒ")
   Else If A_PriorHotkey = #^^ ; brevis 
-    {
-    Send {bs}
-    MyUTF_String = ÅŽ
-    Gosub Unicode
-    }
+    BSUnicode("ÅŽ")
   Else
     send O
 Return
 
 +h::
   If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Åœ
-    Gosub Unicode
-    }
+    BSUnicode("Åœ")
   Else If A_PriorHotkey = +^ ; caron
-    {
-    Send {bs}
-    MyUTF_String = Å 
-    Gosub Unicode
-    }
+    BSUnicode("Å ")
   Else If A_PriorHotkey = ´ ; akut 
-    {
-    Send {bs}
-    MyUTF_String = Åš
-    Gosub Unicode
-    }
+    BSUnicode("Åš")
   Else If A_PriorHotkey = #^´ ; cedilla 
-    {
-    Send {bs}
-    MyUTF_String = Åž
-    Gosub Unicode
-    }
+    BSUnicode("Åž")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("á¹")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¹¢")
   Else
     send S
 Return
 
 +j::
   If A_PriorHotkey = +^ ; caron
-    {
-    Send {bs}
-    MyUTF_String = Å‡
-    Gosub Unicode
-    }
+    BSUnicode("Å‡")
   Else If A_PriorHotkey = + ; tilde
-    {
-    Send {bs}
-    MyUTF_String = Ã‘
-    Gosub Unicode
-    }
+    BSUnicode("Ã‘")
   Else If A_PriorHotkey = ´ ; akut 
-    {
-    Send {bs}
-    MyUTF_String = Åƒ
-    Gosub Unicode
-    }
+    BSUnicode("Åƒ")
   Else If A_PriorHotkey = #^´ ; cedilla 
-    {
-    Send {bs}
-    MyUTF_String = Å…
-    Gosub Unicode
-    }
+    BSUnicode("Å…")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("á¹„")
   Else
     send N
 Return
 
 +k::
   If A_PriorHotkey = +^ ; caron
-    {
-    Send {bs}
-    MyUTF_String = Å˜
-    Gosub Unicode
-    }
+    BSUnicode("Å˜")
   Else If A_PriorHotkey = ´ ; akut 
-    {
-    Send {bs}
-    MyUTF_String = Å”
-    Gosub Unicode
-    }
+    BSUnicode("Å”")
   Else If A_PriorHotkey = #^´ ; cedilla 
-    {
-    Send {bs}
-    MyUTF_String = Å–
-    Gosub Unicode
-    }
+    BSUnicode("Å–")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("á¹˜")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¹š")
   Else 
     send R
 Return
 
 +l::
   If A_PriorHotkey = +^ ; caron
-    {
-    Send {bs}
-    MyUTF_String = Å¤
-    Gosub Unicode
-    }
+    BSUnicode("Å¤")
   Else If A_PriorHotkey = #^´ ; cedilla 
-    {
-    Send {bs}
-    MyUTF_String = Å¢
-    Gosub Unicode
-    }
+    BSUnicode("Å¢")
   Else If A_PriorHotkey = #^+^ ; Querstrich
-    {
-    Send {bs}
-    MyUTF_String = Å¦
-    Gosub Unicode
-    }
+    BSUnicode("Å¦")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("á¹ª")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¹¬")
   Else 
     send T
 Return
@@ -1093,17 +719,13 @@ Return
 
 +ö::
   If A_PriorHotkey = #^+^ ; Querstrich
-    {
-    Send {bs}
-    MyUTF_String = Ä
-    Gosub Unicode
-    }
+    BSUnicode("Ä")
   Else If A_PriorHotkey = +^ ; caron 
-    {
-    Send {bs}
-    MyUTF_String = ÄŽ
-    Gosub Unicode
-    }
+    BSUnicode("ÄŽ")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("á¸Š")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¸Œ")
   Else send D
 Return
 
@@ -1111,11 +733,7 @@ Return
   If A_PriorHotkey = #^+ ; Diaerese
     Send {bs}Ÿ
   Else If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Å¶
-    Gosub Unicode
-    }
+    BSUnicode("Å¶")
   Else
     send Y
 Return
@@ -1123,55 +741,58 @@ Return
 +y::send Ö
 +x::send Ü
 +c::send Ä
-+v::send P
+
++v::
+  If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("á¹–")
+  Else 
+    send P
+Return
 
 +b::  
   If A_PriorHotkey = +^ ; caron  
-    {
-    Send {bs}
-    MyUTF_String = Å½
-    Gosub Unicode
-    }
+    BSUnicode("Å½")
   Else If A_PriorHotkey = ´ ; akut 
-    {
-    Send {bs}
-    MyUTF_String = Å¹
-    Gosub Unicode
-    }
+    BSUnicode("Å¹")
+  Else If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("Å»")
   Else
     send Z
 Return
 
-+n::send B
-+m::send M
++n::
+  If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("á¸‚")
+  Else 
+    send B
+Return
+
++m::
+  If A_PriorHotkey = <^>!´ ; punkt darüber 
+    BSUnicode("á¹€")
+  Else If A_PriorHotkey = <^>!+^ ; punkt darunter 
+    BSUnicode("á¹‚")
+  Else 
+    send M
+Return
+
 +,::send `;
 +.::send :
 
 +-::
   If A_PriorHotkey = ^ ; circumflex
-    {
-    Send {bs}
-    MyUTF_String = Ä´
-    Gosub Unicode
-    }
+    BSUnicode("Ä´")
   Else
     send J
 Return
 
+
 ;3. Ebene: Mod3
 ;(Win+Ctrl)
 ;----------------
 
-#^^:: ; brevis, soll tot
-MyUTF_String = Ë˜
-Gosub Unicode
-return
-
-#^1:: 
-MyUTF_String = Â¬ 
-Gosub Unicode
-return
-
+#^^::Unicode("Ë˜") ; brevis, soll tot
+#^1::Unicode("Â¬")
 #^2::send {^}{space} 
 #^3::send 3 
 #^4::send ¥ 
@@ -1181,12 +802,7 @@ return
 #^8::send ‚
 #^9::send ‘
 #^0::send ’
-
-#^ß::
-MyUTF_String = â€” 
-Gosub Unicode
-return
-
+#^ß::Unicode("â€”")
 #^´::send ¸ ; cedilla, soll tot
 
 #^q::send @ 
@@ -1199,17 +815,8 @@ return
 #^i::send >
 #^o::send `=
 #^p::send `;
-
-#^ü::  ;ij
-MyUTF_String = Ä³
-Gosub Unicode
-return
-
-#^+:: ; Diaerese, soll tot
-MyUTF_String = Â¨
-Gosub Unicode
-return
-
+#^ü::Unicode("Ä³")  ;ij
+#^+::Unicode("Â¨") ; Diaerese, soll tot
 
 #^a::send \
 #^s::send `/
@@ -1223,7 +830,6 @@ return
 #^ö::send :
 #^ä::send y
 
-
 #^y::sendraw ~ 
 #^x::send $
 #^c::send |
@@ -1253,154 +859,46 @@ return
 #^+9::send « 
 #^+0::send › 
 #^+ß::send ‹ 
+#^+´::Unicode("Ë›") ; ogonek, soll tot
 
-#^+´:: ; ogonek, soll tot
-MyUTF_String = Ë›
-Gosub Unicode
-return
-
-
-#^+q::  ;xi
-MyUTF_String = Î¾ 
-Gosub Unicode
-return
-
+#^+q::Unicode("Î¾")  ;xi
 #^+w::send v
-
-#^+e::  ;lambda
-MyUTF_String = Î» 
-Gosub Unicode
-return
-
-#^+r::  ;chi 
-MyUTF_String = Ï‡
-Gosub Unicode
-return
-
+#^+e::Unicode("Î»")  ;lambda
+#^+r::Unicode("Ï‡")  ;chi 
 #^+t::send w
-
-#^+z:: ;kappa
-MyUTF_String = Îº
-Gosub Unicode
-return
-
-#^+u:: ;psi
-MyUTF_String = Ïˆ
-Gosub Unicode
-return
-
-#^+i:: ;gamma
-MyUTF_String = Î³
-Gosub Unicode
-return
-
-#^+o:: ;phi
-MyUTF_String = Ï†
-Gosub Unicode
-return
-
+#^+z::Unicode("Îº") ;kappa
+#^+u::Unicode("Ïˆ") ;psi
+#^+i::Unicode("Î³") ;gamma
+#^+o::Unicode("Ï†") ;phi
 #^+p::send q
-
-#^+ü:: ;IJ
-MyUTF_String = Ä²
-Gosub Unicode
-return
-
+#^+ü::Unicode("Ä²") ;IJ
 #^++::send " ;doppelakut, soll tot
 
 #^+a::send u
-
-#^+s:: ;iota
-MyUTF_String = Î¹
-Gosub Unicode
-return
-
-#^+d:: ;alpha
-MyUTF_String = Î±
-Gosub Unicode
-return
-
-#^+f:: ;epsilon
-MyUTF_String = Îµ
-Gosub Unicode
-return
-
-#^+g:: ;omega
-MyUTF_String = Ï‰
-Gosub Unicode
-return
-
-#^+h:: ;sigma
-MyUTF_String = Ïƒ
-Gosub Unicode
-return
-
-#^+j:: ;nu
-MyUTF_String = Î½
-Gosub Unicode
-return
-
-#^+k:: ;rho
-MyUTF_String = Ï
-Gosub Unicode
-return
-
-#^+l:: ;tau
-MyUTF_String = Ï„
-Gosub Unicode
-return
-
-#^+ö:: ;delta
-MyUTF_String = Î´
-Gosub Unicode
-return
-
-#^+ä:: ;upsilon
-MyUTF_String = Ï…
-Gosub Unicode
-return
-
-
+#^+s::Unicode("Î¹") ;iota
+#^+d::Unicode("Î±") ;alpha
+#^+f::Unicode("Îµ") ;epsilon
+#^+g::Unicode("Ï‰") ;omega
+#^+h::Unicode("Ïƒ") ;sigma
+#^+j::Unicode("Î½") ;nu
+#^+k::Unicode("Ï") ;rho
+#^+l::Unicode("Ï„") ;tau
+#^+ö::Unicode("Î´") ;delta
+#^+ä::Unicode("Ï…") ;upsilon
 
 #^+y::send ö
 #^+x::send ü
+#^+c::Unicode("Î·") ;eta
+#^+v::Unicode("Ï€") ;pi
+#^+b::Unicode("Î¶") ;zeta
+#^+n::Unicode("Î²") ;beta
+#^+m::Unicode("Î¼") ;mu
+#^+,::Unicode("Ï‘") ;vartheta?
+#^+.::Unicode("Î¸") ;theta
+#^+-::send j
 
-#^+c:: ;eta
-MyUTF_String = Î·
-Gosub Unicode
-return
-
-#^+v:: ;pi
-MyUTF_String = Ï€
-Gosub Unicode
-return
-
-#^+b:: ;zeta
-MyUTF_String = Î¶
-Gosub Unicode
-return
-
-#^+n:: ;beta
-MyUTF_String = Î²
-Gosub Unicode
-return
-
-#^+m:: ;mu
-MyUTF_String = Î¼
-Gosub Unicode
-return
-
-#^+,:: ;vartheta?
-MyUTF_String = Ï‘
-Gosub Unicode
-return
-
-#^+.:: ;theta
-MyUTF_String = Î¸
-Gosub Unicode
-return
+;#^+space::    ; geschütztes Leerzeichen
 
-#^+-::send j
 
 
 
@@ -1408,21 +906,13 @@ return
 ;(AltGr)
 ;-----------------
 
+<^>!^::Unicode("Â·") ; Mittenpunkt, tot mit l und L
 <^>!4::Send {PgUp} ;Prev
 <^>!8::Send /
 <^>!9::Send *
 <^>!0::Send -
-
-<^>!ß:: ; eth
-MyUTF_String = Ã°
-Gosub Unicode
-return
-
-<^>!´:: ; punkt oben drüber, soll tot
-MyUTF_String = Ë™
-Gosub Unicode
-return
-
+<^>!ß::Unicode("Ã°") ; eth
+<^>!´::Unicode("Ë™") ; punkt oben drüber, soll tot
 
 <^>!q::Send {Esc}
 <^>!w::Send {Backspace}
@@ -1433,16 +923,8 @@ return
 <^>!i::Send 8
 <^>!o::Send 9
 <^>!p::Send {+}
-
-<^>!ü:: 
-MyUTF_String = É™
-Gosub Unicode
-return
-
-<^>!+:: ; Schrägstrich, soll tot 
-MyUTF_String = /
-Gosub Unicode
-return
+<^>!ü::Unicode("É™") ; ?
+<^>!+::Unicode("/") ; Schrägstrich, soll tot 
 
 <^>!a::Send {Home}
 <^>!s::Send {Left}
@@ -1454,11 +936,7 @@ return
 <^>!k::Send 5
 <^>!l::Send 6
 <^>!ö::Send `,
-
 <^>!ä::Send þ ; thorn
-;MyUTF_String = Ã¾
-;Gosub Unicode
-;return
 
 
 <^>!y::Send {Tab}
@@ -1480,111 +958,39 @@ return
 ;(AltGr+Shift)
 ;-----------------------
 
+<^>!+^::Send . ; punkt darunter
 <^>!+4::Send +{Prev}
+<^>!+ß::Unicode("Ã") ; Eth
+<^>!+´::Unicode("Ëš") ; ring obendrauf
 
-<^>!+ß:: ; Eth
-MyUTF_String = Ã
-Gosub Unicode
-return
-
-<^>!+´:: ; ring obendrauf, soll tot
-MyUTF_String = Ëš
-Gosub Unicode
-return
-
-<^>!+q:: ; Xi?
-MyUTF_String = Îž
-Gosub Unicode
-return
- 
-<^>!+w:: ; Lambda
-MyUTF_String = Î›
-Gosub Unicode
-return
-
+<^>!+q::Unicode("Îž") ; Xi
+<^>!+w::Unicode("Î›") ; Lambda
 <^>!+e::Send +{Up}
 <^>!+r::Send © 
 <^>!+t::Send +{Insert}
-
-<^>!+u:: ; Phi
-MyUTF_String = Î¨
-Gosub Unicode
-return
-
-<^>!+i:: ; Gamma
-MyUTF_String = Î“
-Gosub Unicode
-return
-
-<^>!+o:: ; Psi
-MyUTF_String = Î¦
-Gosub Unicode
-return
-
-<^>!+ü:: ; ?
-MyUTF_String = Æ
-Gosub Unicode
-return
-
-<^>!++::  ; komma drunter, soll tot 
-MyUTF_String = Ë 
-Gosub Unicode
-return
+<^>!+u::Unicode("Î¨") ; Phi
+<^>!+i::Unicode("Î“") ; Gamma
+<^>!+o::Unicode("Î¦") ; Psi
+<^>!+ü::Unicode("Æ") ; ?
+<^>!++::Unicode("Ë") ; komma drunter, soll tot 
 
 <^>!+a::Send +{Home}
 <^>!+s::Send +{Left}
 <^>!+d::Send +{Down}
 <^>!+f::Send +{Right}
 <^>!+g::Send +{End}
-<^>!+h:: ; Sigma
-MyUTF_String = Î£
-Gosub Unicode
-return
-
-<^>!+j:: ; No
-MyUTF_String = â„–
-Gosub Unicode
-return
-
-<^>!+k:: ; (R)
-MyUTF_String = Â®
-Gosub Unicode
-return
-
-<^>!+l:: ; TM
-MyUTF_String = â„¢
-Gosub Unicode
-return
-
-<^>!+ö:: ; Delta
-MyUTF_String = Î”
-Gosub Unicode
-return
-
-<^>!+ä::Send Þ ; Thorn 
-;MyUTF_String = Ãž
-;Gosub Unicode
-;return
-
+<^>!+h::Unicode("Î£")  ; Sigma
+<^>!+j::Unicode("â„–") ; No
+<^>!+k::Unicode("Â®")  ; (R)
+<^>!+l::Unicode("â„¢") ; TM
+<^>!+ö::Unicode("Î”")  ; Delta
+<^>!+ä::Send Þ         ; Thorn 
 
 <^>!+y::Send +{Tab}
-
 <^>!+c::Send +{PgDn}
-
-<^>!+v:: ; Pi
-MyUTF_String = Î 
-Gosub Unicode
-return
-
-<^>!+b:: ; Omega
-MyUTF_String = Î©
-Gosub Unicode
-return
-
-<^>!+.:: ; Theta 
-MyUTF_String = Î˜
-Gosub Unicode
-return
+<^>!+v::Unicode("Î ") ; Pi
+<^>!+b::Unicode("Î©") ; Omega
+<^>!+.::Unicode("Î˜") ; Theta 
 
 
 
@@ -1602,8 +1008,6 @@ return
 ^9::send ^9
 ^0::send ^0
 
-
-
 ^q::send ^x
 ^w::send ^v
 ^e::send ^l
@@ -1706,10 +1110,10 @@ return
 #w::send #v
 
 #e::  
-   ; #e::send #l  funktioniert nicht, Computer wird nicht gesperrt
-   ; http://www.autohotkey.com/forum/viewtopic.php?p=66937#66937
   Run,%A_WinDir%\System32\Rundll32.exe User32.dll`,LockWorkStation 
   return
+   ; #e::send #l  funktioniert nicht, Computer wird nicht gesperrt
+   ; http://www.autohotkey.com/forum/viewtopic.php?p=66937#66937
 
 #r::send #c
 #t::send #w
@@ -1814,37 +1218,16 @@ return
 #^NumpadMult::send ×
 #^NumpadSub::send -
 #^NumpadAdd::send ±
-#^NumpadEnter::    ; neq
-  MyUTF_String = â‰ 
-  Gosub Unicode
-  return
+#^NumpadEnter::Unicode("â‰") ; neq
 
-#^Numpad7::  ;7/8
-  MyUTF_String = â…ž 
-  Gosub Unicode
-  return
-#^Numpad8::   ; uparrow
-  MyUTF_String = â†‘
-  Gosub Unicode
-  return
-#^Numpad9::   ;  3/8
-  MyUTF_String = â…œ
-  Gosub Unicode
-  return
-#^Numpad4::   ; leftarrow
-  MyUTF_String = â†
-  Gosub Unicode
-  return
+#^Numpad7::Unicode("â…ž")   ; 7/8
+#^Numpad8::Unicode("â†‘")   ; uparrow
+#^Numpad9::Unicode("â…œ")   ; 3/8
+#^Numpad4::Unicode("â†?")   ; leftarrow
 #^Numpad5::send †
-#^Numpad6::   ; rightarrow
-  MyUTF_String = â†’
-  Gosub Unicode
-  return
+#^Numpad6::Unicode("â†’")   ; rightarrow
 #^Numpad1::send ¹ 
-#^Numpad2::   ; downarrow
-  MyUTF_String = â†“
-  Gosub Unicode
-  return
+#^Numpad2::Unicode("â†“")   ; downarrow
 #^Numpad3::send ³
 #^Numpad0::send `%
 #^NumPadDot::send .
@@ -1858,37 +1241,15 @@ return
 ; --> Brüche
 ; ---------------------------
 
-#^+NumpadDiv::   ; slash
-  MyUTF_String = âˆ•
-  Gosub Unicode
-  return
-#^+NumpadMult::  ; cdot
-  MyUTF_String = â‹…
-  Gosub Unicode
-  return
-#^+NumpadSub::send - ; eig. unbelegt
-#^+NumpadAdd::    ; -+
-  MyUTF_String = âˆ“
-  Gosub Unicode
-  return 
-#^+NumpadEnter::   ; approx
-  MyUTF_String = â‰ˆ
-  Gosub Unicode
-  return  
-
-
-#^+NumpadHome::  ; 1/8
-  MyUTF_String = â…›
-  Gosub Unicode
-  return  
-#^+NumpadUp::  ; 5/8
-  MyUTF_String = â…
-  Gosub Unicode
-  return   
-#^+NumpadPgUp::  ; 3/8
-  MyUTF_String = â…œ
-  Gosub Unicode
-  return  
+#^+NumpadDiv::Unicode("âˆ•")   ; slash
+#^+NumpadMult::Unicode("â‹…")  ; cdot
+#^+NumpadSub::send -           ; eig. unbelegt
+#^+NumpadAdd::Unicode("âˆ“")   ; -+
+#^+NumpadEnter::Unicode("â‰ˆ") ; approx
+
+#^+NumpadHome::Unicode("â…›")  ; 1/8
+#^+NumpadUp::Unicode("â…?")    ; 5/8
+#^+NumpadPgUp::Unicode("â…œ")  ; 3/8
 #^+NumpadLeft::send ¼
 #^+NumpadClear::send ½
 #^+NumpadRight::send ¾
@@ -1908,33 +1269,15 @@ return
 
 
 <^>!NumpadDiv::send / 
-<^>!NumpadMult::    ; cdot
-  MyUTF_String = â‹… 
-  Gosub Unicode
-  return 
-<^>!NumpadSub::send - ; eig. unbelegt
-<^>!NumpadAdd::    ; -+
-  MyUTF_String = âˆ“
-  Gosub Unicode
-  return 
-<^>!NumpadEnter::   ; approx
-  MyUTF_String = â‰ˆ
-  Gosub Unicode
-  return  
-
-
-<^>!Numpad7::  ; 1/8
-  MyUTF_String = â…›
-  Gosub Unicode
-  return  
-<^>!Numpad8::  ; 5/8
-  MyUTF_String = â…
-  Gosub Unicode
-  return   
-<^>!Numpad9::  ; 3/8
-  MyUTF_String = â…œ
-  Gosub Unicode
-  return  
+<^>!NumpadMult::Unicode("â‹…")   ; cdot
+<^>!NumpadSub::send -            ; eig. unbelegt
+<^>!NumpadAdd::Unicode("âˆ“")    ; -+
+<^>!NumpadEnter::Unicode("â‰ˆ")  ; approx
+
+
+<^>!Numpad7::Unicode("â…›")  ; 1/8
+<^>!Numpad8::Unicode("â…?")  ; 5/8
+<^>!Numpad9::Unicode("â…œ")  ; 3/8
 <^>!Numpad4::send ¼
 <^>!Numpad5::send ½
 <^>!Numpad6::send ¾
@@ -1947,14 +1290,22 @@ return
 
 ; ------------------------------------
 
+Unicode(code)
+  {
+  saved_clipboard := ClipboardAll
+  Transform, Clipboard, Unicode, %code%
+  send ^v
+  Clipboard := saved_clipboard
+  }
 
+BSUnicode(code)
+  {
+  saved_clipboard := ClipboardAll
+  Transform, Clipboard, Unicode, %code%
+  send {bs}^v
+  Clipboard := saved_clipboard
+  }
 
-Unicode:
-  Transform, Clipboard, Unicode, %MyUTF_String%  
-   ; Place Unicode text onto the clipboard
-  send ^v
-   ; Paste the clipboard's Unicode text 
-return
 
 toggleneo:
    if state <>
@@ -1973,7 +1324,6 @@ toggleneo:
 return
 
 
-
 help:
    Run, %A_WinDir%\hh mk:@MSITStore:autohotkey.chm
 return
@@ -2023,4 +1373,4 @@ return
 
 exitprogram:
    exitapp
-return
+return
+\ No newline at end of file
author	nora <nora@b9310e46-f624-0410-8ea1-cfbb3a30dc96>	2007-05-10 06:15:09 +0000
committer	nora <nora@b9310e46-f624-0410-8ea1-cfbb3a30dc96>	2007-05-10 06:15:09 +0000
commit	b1e355ff2aebb2083269d2a2628cf7e4b914afce (patch)
tree	fc228eee199b9c33b9409ee705b0b228e4df6308
parent	9dbe3cbacd6b3d794b0e68678bf6a614c144dc93 (diff)
download	neo-layout-b1e355ff2aebb2083269d2a2628cf7e4b914afce.tar.gz neo-layout-b1e355ff2aebb2083269d2a2628cf7e4b914afce.tar.bz2 neo-layout-b1e355ff2aebb2083269d2a2628cf7e4b914afce.zip