Zerschossene Lang-s-Tastatur wiederhergestellt

Esc(4) setzt Tastatur zurück
Variablen Ebene7 und Ebene8 zum Abfragen eingeführt
#(2L)-Bug behoben
Korrektur gelesen

git-svn-id: https://svn.neo-layout.org@746 b9310e46-f624-0410-8ea1-cfbb3a30dc96

6 files changed, 1423 insertions, 1428 deletions

diff --git a/windows/autohotkey/Source/Changelog-and-Todo.ahk b/windows/autohotkey/Source/Changelog-and-Todo.ahk
index c21db54..49111e0 100644
--- a/windows/autohotkey/Source/Changelog-and-Todo.ahk
+++ b/windows/autohotkey/Source/Changelog-and-Todo.ahk
@@ -1,100 +1,100 @@
-/*

-*************************************

-* NEO 2.0 (beta) Autohotkey-Treiber *

+/************************************

+* NEO 2.0 (beta) AutoHotkey-Treiber *

 *************************************

+

 Autoren:

 Stefan Mayer <stm (at) neo-layout. o r g>

-Nora Geissler <nora_geissler (at) yahoo. d e>

+Nora Geißler <nora_geissler (at) yahoo. d e>

 Matthias Berg <neo (at) matthias-berg. e u>

 Martin Roppelt <m.p.roppelt (at) web. d e>

 Dennis Heidsiek <HeidsiekB (at) aol. c o m>

-Matthias Wächter <matthias (at) waechter.. w i z .. a t>

+Matthias Wächter <matthias (at) waechter.wiz. a t>

 ...

 

-

-

 *********

 * TODO: *

 *********

-- Die Bildschirmtastatur mit Mod4 hat den Mod4-Lock deaktiviert!

 - Compose vollständig implementieren (Welche Methode ist hierzu am besten geeignet?)

 - ausgiebig testen... (besonders Vollständigkeit bei Deadkeys)

 - Bessere Lösung für das Leeren von PriorDeadKey finden, damit die Sondertasten nicht mehr abgefangen werden müssen.

 - Testen, ob die Capslocklösung (siehe *1:: ebene 1) auch für Numpad gebraucht wird

 - Die Ebenen vom Tastenblock an die neue Referenz anpassen (wenn da ein Konsens gefunden wurde)

 

-

 **********

 * IDEEN: *

 **********

-- Tastatur-Reset: mod4+escape (oder ev. ein anderer Hotkey) soll die Tastatur wieder in den Normalzustand versetzen (d.h. alle Ebenen unlocken und Einhand, Lang-s oder Sonstwelche-Modi deaktivieren)

-- Die Varianten (lernModus, einHandNeo, Lang-s-Tastatur, Qwertz/pausieren) sollten einheitlich (de-)aktiviert werden, etwa über Mod4 F9-F12

-- bei Ebene 4 rechte Hand (Numpad) z.B. Numpad5 statt 5 senden

-

-

+- Die Varianten (lernModus, einHandNeo, Lang-s-Tastatur, Qwertz/pausieren) sollten einheitlich (de-)aktiviert werden, etwa über M4+F9-F12

 

 ******************

 * CHANGEHISTORY: *

 ******************

 

+Revision 746 (von Martin Roppelt)

+- Zurücksetzen der Tastatur über M4+Esc

+- #(2L) sendet nicht mehr '

+- Variablen Ebene7 und Ebene8 zum Abfragen eingeführt

+- s(12)(2L)-Bug von Matthias Wächter behoben

 Revision 744 (von Stefan Mayer)

 - Ebene4-Ziffernblock: auf neo_d nun Komma (wie Referenz), "NumPadKomma" gibt es nicht

 Revision 743 (von Matthias Wächter, commit durch Stefan Mayer)

 - Ebene4-Ziffernblock: NumPadAdd und NumPadSub korrigiert

 Revision 740 (von Matthias Wächter, commit durch HCW)

 - "Mega-Patch" (Skript verkürzt, Ebenenabfrage verändert, ...), siehe CHANGES.txt

+- Blinde tote Tasten auf M4+F9 (Toggle)

+- Blinde Compose auf M4+F10 (Toggle)

 Revision 728 (von Dennis Heidsiek):

-- Ist die Datei [...]\Anwendungsdaten\NEO2\NEO2.ini vorhanden, werden dort eventuell vonhandene Werte für die Globalen Schalter beim Start übernommen

+- Ist die Datei %APPDATA%\NEO2\NEO2.ini vorhanden, werden dort eventuell vorhandene Werte für die Globalen Schalter beim Start übernommen

+- »LangSTastaturStandardmäßigEingeschaltet.ahk« wird nicht mehr unterstützt, weil sonst immer neu kompiliert werden muss

 Revision 707 (von Dennis Heidsiek):

-- Die Resourcen-Dateien (PNGs, ICOs) werden nun nach "Von Windows vorgegebenes TEMP Verzeichnis\NEO2\ extrahiert und nicht mehr in das Verzeichnis, in dem sich die EXE befindet

+- Die Resourcen-Dateien (PNGs, ICOs) werden nun nach %TEMP%\NEO2\ extrahiert und nicht mehr in das Verzeichnis, in dem sich die EXE befindet

 - Die doppelten französischen Anführungszeichen werden nun ebenfalls über SendUnicodeChar gesendet

 Revision 694 (von Martin Roppelt):

-- LangSTastatur auf F11 (Ebene 4)

+- LangSTastatur auf M4+F11

 - Entwickler können durch das Erstellen einer Datei »LangSTastaturStandardmäßigEingeschaltet.ahk« mit dem Inhalt »LangSTastatur := 1« diese standardmäßig aktivieren

 - Mehrere DeadKeys aktualisiert (T*, Ebene 4 und T*, Ebene 5)

 Revision 687 (von Dennis Heidsiek):

 - Die SendUnicodeChar-Methode um den GDK-Workarround von Matthias Wächter ergänzt

 - (An/Aus) Icons an Favicon der neuen Homepage angepasst

 Revision 645 (von Martin Roppelt):

-- Ellipse zusätzlich auf M3+x; 

+- Ellipse zusätzlich auf M3+x

 - Lang-s-Tastatur probeweise auf M4+Esc

 Revision 640 (von Dennis Heidsiek):

 - Der untote Zirkumflex (^) auf Ebene 3 funktioniert jetzt auch in Java-Programmen

 Revision 639 (von Martin Roppelt):

 - Lang-s-Tastatur kann nicht mehr durch einen Hotkey aktiviert werden

 Revision 629 (von Martin Roppelt):

-- Spitze Klammern (bra und ket) testweise auf M5+8/9

+- Spitze Klammern (bra und ket) auf M5+8/9

 Revision 624 (von Martin Roppelt):

 - Lang-s-Tastatur (ein- und auszuschalten durch Mod4+ß)

 Revision 616 (von Dennis Heidsiek):

-- Der nicht funktionierende Mod5-Lock-Fix wurde wieder entfernt, da er sogar neue Fehler produzierte.

+- Der nicht funktionierende Mod5-Lock-Fix wurde wieder entfernt, da er sogar neue Fehler produzierte

 Revision 615 (von Dennis Heidsiek):

-- Erfolgloser Versuch, den Mod4-Lock wiederherzustellen (durch eine Tilde vor den Scancodes der Bildschirmtastatur).

-- Rechtschreibfehler korrigiert.

-- Zwei AHK-Links eingefügt.

+- Erfolgloser Versuch, den Mod4-Lock wiederherzustellen (durch eine Tilde vor den Scancodes der Bildschirmtastatur)

+- Rechtschreibfehler korrigiert

+- Zwei AHK-Links eingefügt

 Revision 609 (von Dennis Heidsiek):

-- Vorläufiger Abschluss der AHK-Modularisierung.

-- Bessere Testmöglichkeit »All.ahk« für AHK-Entwickler hinzugefügt, bei der sich die Zeilenangaben in Fehlermeldungen auf die tatsächlichen Module und nicht auf das große »vereinigte« Skript beziehen.

+- Vorläufiger Abschluss der AHK-Modularisierung

+- Bessere Testmöglichkeit »All.ahk« für AHK-Entwickler hinzugefügt, bei der sich die Zeilenangaben in Fehlermeldungen auf die tatsächlichen Module und nicht auf das große »vereinigte« Skript beziehen

 Revision 608 (von Martin Roppelt):

-- Rechtschreibfehler korrigiert und Dateinamen aktualisiert und sortiert.

+- Rechtschreibfehler korrigiert und Dateinamen aktualisiert und sortiert

 Revision 590 (von Dennis Heidsiek):

-- Erste technische Vorarbeiten zur logischen Modularisierung des viel zu lange gewordenen AHK-Quellcodes.

+- Erste technische Vorarbeiten zur logischen Modularisierung des viel zu lange gewordenen AHK-Quellcodes

 - Neue Batch-Datei Build-Update.bat zur einfachen Aktualisierung der EXE-Datei

 Revision 583 (von Dennis Heidsiek):

-- Kleinere Korrekturen (Mod3+Numpad5, Mod5+Numpad5 und Mod3+Numpad9 stimmen wieder mit der Referenz überein).

+- Kleinere Korrekturen (M3+NP5, M5+NP5 und M3+NP9 stimmen wieder mit der Referenz überein)

 Revision 580 (von Matthias Berg):

 - Bildschirmtastatur jetzt mit Mod4+F* statt Strg+F*, dies deaktiviert jedoch leider den Mod4-Lock

 Revision 570 (von Matthias Berg):

 - Hotkeys für einHandNeo und lernModus durch entsprechende ScanCodes ersetzt 

 Revision 568 (von Matthias Berg):

 - Sonderzeichen, Umlaute, z und y durch ScanCodes ersetzt

-  * jetzt wird auch bei eingestelltem US Layout Neo verwendet. (z.B. für Chinesische InputMethodEditors)

-  * rechter Mod3 geht noch nicht bei US Layout (weder ScanCode noch "\")

+  * jetzt wird auch bei eingestelltem US Layout Neo verwendet (z.B. für Chinesische InputMethodEditors)

+  * rechter Mod3 geht noch nicht bei US-Layout (weder ScanCode noch "\")

 Revision 567 (von Dennis Heidsiek):

-- Aktivierter Mod4 Lock wird jetzt über die Rollen-LED des Keybord angezeigt (analog zu CapsLock), die NUM-LED behält ihr bisheriges Verhalten

+- Aktivierter Mod4-Lock wird jetzt über die Rollen-LED des Keybord angezeigt (analog zu CapsLock), die Num-LED behält ihr bisheriges Verhalten

 - Neue Option im Skript: UseMod4Light

 Revision 561 (von Matthias Berg):

-- Ebene 4 Tab verhält sich jetzt wie das andere Tab dank "goto neo_tab"

+- M4+Tab verhält sich jetzt wie das andere Tab dank "goto neo_tab"

 Revision 560 (von Dennis Heidsiek):

 - Neue Option im Skript: bildschirmTastaturEinbinden bindet die PNG-Bilder der Bildschirmtastur mit in die exe-Datei ein, so dass sich der Benutzer nur eine Datei herunterladen muss

 Revision 559 (von Matthias Berg):

@@ -109,7 +109,7 @@ Revision 556 (von Matthias Berg):
 - lernModus (an/aus mit Strg+Komma)

   * im Skript konfigurierbar

   * Schaltet z.B. Qwertz Tasten aus, die es auf der 4. Ebene gibt (Return, Backspace,...)

-  * Kann auch Backspace und/oder Entfernen der 4. Ebene ausschalten (gut zum Lernen richtig zu schreiben)

+  * Kann auch Backspace und/oder Entfernen der 4. Ebene ausschalten (gut zum Lernen, richtig zu schreiben)

 - Bug aufgetaucht: Icons werden nicht mehr angezeigt

 Revision 544 (von Stefan Mayer):

 - ,.:; auf dem Mod4-Ziffernblock an die aktuelle Referenz angepasst

@@ -119,32 +119,32 @@ Revision 542 (von Matthias Berg):
 - AltGr-Bug  hoffentlich wieder behoben. Diesmal mit extra altGrPressed Variable

 - nurEbenenFuenfUndSechs umbenannt in ahkTreiberKombi und auf Ebene 4 statt 5 und 6 geändert

 Revision 540 (von Matthias Berg):

-- stark überarbeitet um Wartbarkeit zu erhöhen und Redundanz zu veringern

+- stark überarbeitet um Wartbarkeit zu erhöhen und Redundanz zu verringern

 - nurEbenenFuenfUndSechs sollte nun auch auf Neo Treiber statt Qwertz laufen

   * aber es muss noch jemand testen

   * Problem: was kann man abfangen, wenn eine tote Taste gedrückt wird

 - einHandNeo:

-  * An-/Ausschalten mit STRG+Punkt

+  * An-/Ausschalten mit Strg+Punkt

   * Buchstaben der rechten Hand werden mit Space zur linken Hand

   * Nebeneffekt: es gibt beim Festhalten von Space keine wiederholten Leerzeichen mehr

 Revision 532 (von Matthias Berg):

 - BildschirmTastatur 

-  * aktiviert mit strg+F1 bis 7 schaltet Keyboard ein oder aus

-  * strg+F7 zeigt die zuletzt angezeigte Ebene an (und wieder aus).

-  * strg+F8 schaltet AlwaysOnTop um    

+  * aktiviert mit Strg+F1 bis 7, schaltet Keyboard ein oder aus

+  * Strg+F7 zeigt die zuletzt angezeigte Ebene an (und wieder aus)

+  * Strg+F8 schaltet AlwaysOnTop um    

 Revision 529 (von Stefan Mayer):

 - Icon wird automatisch geladen, falls .ico-Dateien im selbem Ordner

-- in der .exe sind die .ico mitgespeichert und werden geladen

+- In der .exe sind die .ico mitgespeichert und werden geladen

 Revision 528 (von Matthias Berg):

 - Neo-Icon

 - Neo-Prozess jetzt automatisch auf hoher Prioritaet

   (siehe globale Schalter)

 - Mod3-Lock (nur wenn rechtes Mod3 zuerst gedrückt wird, andere Lösung führte zum Caps-Bug)

-- Mod4-Lock (nur wenn das linke Mod4 zuerst gedrückt wird, andere Lösung fühte zum AltGr-Bug)

+- Mod4-Lock (nur wenn das linke Mod4 zuerst gedrückt wird, andere Lösung führte zum AltGr-Bug)

 - Ein paar falsche Zeichen korrigiert

 Revision 527 (von Matthias Berg):

-- AltGr Problem hoffentlich behoben

-- Umschalt+Mod4 Bug behoben

+- AltGr-Problem hoffentlich behoben

+- Umschalt+Mod4-Bug behoben

 Revision 526 (von Matthias Berg):

 - Ebenen 1 bis 4 ausschalten per Umschalter siehe erste Codezeile nurEbenenFuenfUndSechs = 0

 - Mod4-Lock durch Mod4+Mod4

@@ -161,7 +161,7 @@ Revision 523 (von Matthias Berg):
 - CapsLock geht jetzt auch bei allen Zeichen ('send Zeichen' statt 'send {blind} Zeichen')

 - vertikale Ellipse eingebaut

 - Umschalt+Umschalt für Capslock statt Mod3+Mod3

-- bei Suspend wird jetzt wirklich togglesuspend aufgerufen (auch beim aktivieren per shift+pause)

+- bei Suspend wird jetzt wirklich togglesuspend aufgerufen (auch beim Aktivieren per shift+pause)

 Revsion 490 (von Stefan Mayer): 

 - SUBSCRIPT von 0 bis 9 sowie (auf Ziffernblock) + und -

   • auch bei Ziffernblock auf der 5. Ebene

@@ -171,10 +171,5 @@ Revsion 490 (von Stefan Mayer):
   • Brüche (auf Zahlenreihe und Hardware-Ziffernblock)

   • römische Zahlen

   • Ligaturen und Copyright

-

-

-

 */

 

-

-

diff --git a/windows/autohotkey/Source/Global-Part.ahk b/windows/autohotkey/Source/Global-Part.ahk
index 06d051f..d5e7e35 100644
--- a/windows/autohotkey/Source/Global-Part.ahk
+++ b/windows/autohotkey/Source/Global-Part.ahk
@@ -1,8 +1,8 @@
 

 

-/********************

- Verzeichnisse      *

-*********************

+/****************

+* Verzeichnisse *

+*****************

 */

 ; Setzt den Pfad zu einem temporären Verzeichnis

 EnvGet, WindowsEnvTempFolder, TEMP

@@ -16,15 +16,14 @@ FileCreateDir, %ApplicationFolder%
 

 

 

-/******************

- Globale Schalter *

-*******************

+/*******************

+* Globale Schalter *

+********************

 */

 

 ; Im folgenden gilt (soweit nicht anders angegeben) Ja = 1, Nein = 0:

 ; Syntaxhinweis: IniRead, Variable, InputFilename, Section, Key [, DefaultValue]

 

-

 ; Sollen die Bilder für die Bildschirmtastatur in die compilierte EXE-Datei miteingebunden werden? (Nachteil: grössere Dateigrösse, Vorteil: Referenz für Anfänger stets einfach verfügbar)

 bildschirmTastaturEinbinden := 1

 

@@ -37,36 +36,40 @@ IniRead, einHandNeo, %ApplicationFolder%\NEO2.ini, Global, einHandNeo, 0
 ; Soll der Lernmodus aktiviert werden?

 IniRead, lernModus, %ApplicationFolder%\NEO2.ini, Global, lernModus, 0

 

-; Aktivierter Mod4-Lock wird über die Rollen-LED des Keybord angezeigt (analog zu CapsLock)

+; Soll aktivierter Mod4-Lock über die Rollen-LED des Keybord angezeigt werden (analog zu CapsLock)?

 IniRead, UseMod4Light, %ApplicationFolder%\NEO2.ini, Global, UseMod4Light, 1

 

-; Soll Lang-s auf s, s auf ß und ß auf Mod3+ß gelegt (bzw. vertauscht) werden?

+; Soll Lang-s auf s, s auf ß und ß auf Lang-s gelegt (bzw. vertauscht) werden?

 IniRead, LangSTastatur, %ApplicationFolder%\NEO2.ini, Global, LangSTastatur, 0

 

+; Sollen tote Tasten blind angezeigt werden?

+IniRead, DeadCompose, %ApplicationFolder%\NEO2.ini, Global, DeadCompose, 0

 

+;Sollen Compose-Tasten blind angezeigt werden?

+IniRead, DeadSilence, %ApplicationFolder%\NEO2.ini, Global, DeadSilence, 0

 

-/*************************

- Recourcen-Verwaltung    *

-**************************

-*/

 

+/***********************

+* Recourcen-Verwaltung *

+************************

+*/

 

 if(FileExist("ResourceFolder") <> false) {

-	; Versuche, alle möglicherweise in die EXE eingebundenen Dateien zu extrahieren 

-	FileInstall, neo.ico, %ResourceFolder%\neo.ico, 1

-	FileInstall, neo_disabled.ico, %ResourceFolder%\neo_disabled.ico, 1

-	iconBenutzen = 1

-	if (bildschirmTastaturEinbinden==1) {

-		FileInstall, ebene1.png, %ResourceFolder%\ebene1.png, 1

-		FileInstall, ebene2.png, %ResourceFolder%\ebene2.png, 1

-		FileInstall, ebene3.png, %ResourceFolder%\ebene3.png, 1

-		FileInstall, ebene4.png, %ResourceFolder%\ebene4.png, 1

-		FileInstall, ebene5.png, %ResourceFolder%\ebene5.png, 1

-		FileInstall, ebene6.png, %ResourceFolder%\ebene6.png, 1

-		zeigeBildschirmTastatur = 1

-	}

+  ; Versuche, alle möglicherweise in die EXE eingebundenen Dateien zu extrahieren 

+  FileInstall, neo.ico, %ResourceFolder%\neo.ico, 1

+  FileInstall, neo_disabled.ico, %ResourceFolder%\neo_disabled.ico, 1

+  iconBenutzen = 1

+  if (bildschirmTastaturEinbinden==1) {

+    FileInstall, ebene1.png, %ResourceFolder%\ebene1.png, 1

+    FileInstall, ebene2.png, %ResourceFolder%\ebene2.png, 1

+    FileInstall, ebene3.png, %ResourceFolder%\ebene3.png, 1

+    FileInstall, ebene4.png, %ResourceFolder%\ebene4.png, 1

+    FileInstall, ebene5.png, %ResourceFolder%\ebene5.png, 1

+    FileInstall, ebene6.png, %ResourceFolder%\ebene6.png, 1

+    zeigeBildschirmTastatur = 1

+  }

 } else {

-	MsgBox, "Das Verzeichnis %ResourceFolder% konnte nicht angelegt werden!" ; Diese Zeile dient nur der eventuellen Fehlersuche und sollte eigentlich niemals auftauchen.

+  MsgBox, "Das Verzeichnis %ResourceFolder% konnte nicht angelegt werden!" ; Diese Zeile dient nur der eventuellen Fehlersuche und sollte eigentlich niemals auftauchen.

 }

 

 ; Benutze die Dateien auch dann, wenn sie eventuell im aktuellen Verzeichnis vorhanden sind 

@@ -76,16 +79,15 @@ if ( FileExist("neo.ico") && FileExist("neo_disabled.ico") )
   iconBenutzen = 1

 

 

-/*************************

- lernModus Konfiguration *

- nur relevant wenn       *

- lernModus = 1           *

- Strg+Komma schaltet um  *

-**************************

+/**************************

+* lernModus Konfiguration *

+* nur relevant wenn       *

+* lernModus = 1           *

+* Strg+Komma schaltet um  *

+***************************

 */

 ; 0 = aus, 1 = an

 

-

 ; die Nachfolgenden sind nützlich um sich die Qwertz-Tasten abzugewöhnen, da alle auf der 4. Ebene vorhanden.

 lernModus_std_Return = 0

 lernModus_std_Backspace = 0

@@ -101,29 +103,20 @@ lernModus_std_Links = 0
 lernModus_std_Rechts = 0

 lernModus_std_ZahlenReihe = 0

 

-

-

 ; im folgenden kann man auch noch ein paar Tasten der 4. Ebene deaktivieren

 ; nützlich um sich zu zwingen, richtig zu schreiben

 lernModus_neo_Backspace = 0

 lernModus_neo_Entf = 1

 

-

-  

-

-; aus Noras script kopiert:

-

+; aus Noras Skript kopiert:

 Process,Priority,,High

-

 #usehook on

 #singleinstance force

 #LTrim 

   ; Quelltext kann eingerückt werden, 

   ; msgbox ist trotzdem linksbündig

-

 SetTitleMatchMode 2

 SendMode Input  

-

 name    = Neo 2.0

 enable  = Aktiviere %name%

 disable = Deaktiviere %name%

@@ -138,39 +131,38 @@ if inputlocalealias <>
    inputlocale = %inputlocalealias%

 if inputlocale <> 00000407

 {

-   suspend   

-   regread, inputlocale, HKEY_LOCAL_MACHINE

-     , SYSTEM\CurrentControlSet\Control\Keyboard Layouts\%inputlocale%

-     , Layout Text

-   msgbox, 48, Warnung!, 

-     (

-     Nicht kompatibles Tastaturlayout:   

-     `t%inputlocale%   

-     `nDas deutsche QWERTZ muss als Standardlayout eingestellt  

-     sein, damit %name% wie erwartet funktioniert.   

-     `nÄndern Sie die Tastatureinstellung unter 

-     `tSystemsteuerung   

-     `t-> Regions- und Sprachoptionen   

-     `t-> Sprachen 

-     `t-> Details...   `n

-     )

-   exitapp

+  suspend   

+  regread, inputlocale, HKEY_LOCAL_MACHINE

+    , SYSTEM\CurrentControlSet\Control\Keyboard Layouts\%inputlocale%

+    , Layout Text

+  msgbox, 48, Warnung!, 

+    (

+    Nicht kompatibles Tastaturlayout:   

+    `t%inputlocale%   

+    `nDas deutsche QWERTZ muss als Standardlayout eingestellt  

+    sein, damit %name% wie erwartet funktioniert.   

+    `nÄndern Sie die Tastatureinstellung unter 

+    `tSystemsteuerung   

+    `t-> Regions- und Sprachoptionen   

+    `t-> Sprachen 

+    `t-> Details...   `n

+    )

+  exitapp

 }

 

 

-

 ; Menü des Systray-Icons 

 ; ----------------------

 

 if (iconBenutzen)

-   menu, tray, icon, %ResourceFolder%\neo.ico,,1

+  menu, tray, icon, %ResourceFolder%\neo.ico,,1

 menu, tray, nostandard

 menu, tray, add, Öffnen, open

-   menu, helpmenu, add, About, about

-   menu, helpmenu, add, Autohotkey-Hilfe, help

-   menu, helpmenu, add

-   menu, helpmenu, add, http://&autohotkey.com/, autohotkey

-   menu, helpmenu, add, http://www.neo-layout.org/, neo

+  menu, helpmenu, add, About, about

+  menu, helpmenu, add, Autohotkey-Hilfe, help

+  menu, helpmenu, add

+  menu, helpmenu, add, http://&autohotkey.com/, autohotkey

+  menu, helpmenu, add, http://www.neo-layout.org/, neo

 menu, tray, add, Hilfe, :helpmenu

 menu, tray, add

 menu, tray, add, %disable%, togglesuspend

@@ -185,7 +177,7 @@ menu, tray, tip, %name%
 

 

 /*

-   Variablen initialisieren

+  Variablen initialisieren

 */

 

 DeadKey = ""

@@ -193,14 +185,12 @@ CompKey = ""
 PriorDeadKey = ""

 PriorCompKey = ""

 Ebene12 = 0

-EbeneAktualisieren()

 

-

- 

+EbeneAktualisieren()

 

 

 /*

-   EinHandNeo

+  EinHandNeo

 */

 spacepressed := 0

 keypressed:= 0

@@ -237,5 +227,33 @@ gespiegelt_punkt = neo_ö
 gespiegelt_j = neo_ü

 

 

-

-

+;Blinde/Sichtbare Tote Tasten

+*F9::

+  if (isMod4pressed())

+    DeadSilence :=  not(DeadSilence)

+  else

+    send {blind}{F9}

+return

+

+;Blinde/Sichtbare Compose

+*F10::

+  if (isMod4pressed())

+    DeadCompose :=  not(DeadCompose)

+  else

+    send {blind}{F10}

+return

+

+;Lang-s-Tastatur:

+*F11::

+  if (isMod4pressed())

+    LangSTastatur := not(LangSTastatur) ; schaltet die Lang-s-Tastatur ein und aus

+  else

+    send {blind}{F11}

+return

+

+*Esc::

+  if (isMod4pressed())

+    reload

+  else

+    send {blind}{Esc}

+return

diff --git a/windows/autohotkey/Source/Keys-Neo.ahk b/windows/autohotkey/Source/Keys-Neo.ahk
index 8288e58..9b96747 100644
--- a/windows/autohotkey/Source/Keys-Neo.ahk
+++ b/windows/autohotkey/Source/Keys-Neo.ahk
@@ -1,69 +1,66 @@
 /*

 Die eigentliche NEO-Belegung und der Hauptteil des AHK-Treibers.

 

+  Ablauf bei toten Tasten:

+  1. Ebene Aktualisieren

+  2. Abhängig von der Variablen "Ebene" Zeichen ausgeben und die Variable "PriorDeadKey" setzen

 

-   Ablauf bei toten Tasten:

-   1. Ebene Aktualisieren

-   2. Abhängig von der Variablen "Ebene" Zeichen ausgeben und die Variable "PriorDeadKey" setzen

-   

-   Ablauf bei "untoten" Tasten:

-   1. Ebene Aktualisieren

-   2. Abhängig von den Variablen "Ebene" und "PriorDeadKey" Zeichen ausgeben

-   3. "PriorDeadKey" mit leerem String überschreiben

-

-   ------------------------------------------------------

-   Reihe 1

-   ------------------------------------------------------

+  Ablauf bei "untoten" Tasten:

+  1. Ebene Aktualisieren

+  2. Abhängig von den Variablen "Ebene" und "PriorDeadKey" Zeichen ausgeben

+  3. "PriorDeadKey" mit leerem String überschreiben

+

+  Reihe 1

 */

 

 

 neo_tot1:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      deadUni(0x02C6) ; circumflex, tot

-      DeadKey := "c1"

-   }

-   else if (Ebene = 2)

-   {

-      deadUni(0x02C7) ; caron, tot

-      DeadKey := "c2"

-   }

-   else if (Ebene = 3)

-   {

-      deadUni(0x02D8) ; brevis

-      DeadKey := "c3"

-   }

-   else if (Ebene = 4)

-   {

-      deadUni(0x00B7) ; Mittenpunkt, tot

-      DeadKey := "c4"

-   }

-   else if (Ebene = 5)

-   {

-      deadAsc("-")                 ; querstrich, tot

-      DeadKey := "c5"

-   }

-   else if (Ebene = 6)

-   {

-      deadAsc(".")                 ; punkt darunter (colon)

-      DeadKey := "c6"

-   }

-   CompKey := PriorCompKey

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    deadUni(0x02C6) ; Zirkumflex, tot

+    DeadKey := "c1"

+  }

+  else if (Ebene = 2)

+  {

+    deadUni(0x02C7) ; Caron, tot

+    DeadKey := "c2"

+  }

+  else if (Ebene = 3)

+  {

+    deadUni(0x02D8) ; Brevis, tot

+    DeadKey := "c3"

+  }

+  else if (Ebene = 4)

+  {

+    deadUni(0x00B7) ; Mittenpunkt, tot

+    DeadKey := "c4"

+  }

+  else if (Ebene = 5)

+  {

+    deadAsc("-")    ; Querstrich, tot

+    DeadKey := "c5"

+  }

+  else if (Ebene = 6)

+  {

+    deadAsc(".")    ; Punkt drunter (Colon), tot

+    DeadKey := "c6"

+  }

+  CompKey := PriorCompKey

 return

 

 neo_1:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      if !(CheckDeadUni("c1",0x00B9)

-        or CheckDeadUni("c5",0x2081)

-        or CheckComp3Uni("r_1",0x217A)       ; römisch xi

-        or CheckComp3Uni("R_1",0x216A))      ; römisch XI

-         if (GetKeyState("CapsLock","T")) 

-            send {blind}{Shift down}1{Shift up}

-         else if (not(lernModus) or lernModus_std_ZahlenReihe)

-            send {blind}1

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    if !(CheckDeadUni("c1",0x00B9)

+      or CheckDeadUni("c5",0x2081)

+      or CheckComp3Uni("r_1",0x217A)     ; römisch xi

+      or CheckComp3Uni("R_1",0x216A))    ; römisch XI

+      if (GetKeyState("CapsLock","T"))

+        send {blind}{Shift down}1{Shift up}

+      else if (not(lernModus) or lernModus_std_ZahlenReihe)

+        send {blind}1

 

       if      (PriorDeadKey = "comp")

          CompKey := "1"

@@ -85,264 +82,264 @@ neo_1:
 return

 

 neo_2:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      if !(CheckDeadUni("c1",0x00B2)

-        or CheckDeadUni("c5",0x2082)

-        or CheckCompUni("r",0x2171)      ; römisch ii

-        or CheckCompUni("R",0x2161)      ; römisch II

-        or CheckComp3Uni("r_1",0x217B)   ; römisch xii

-        or CheckComp3Uni("R_1",0x216B))  ; römisch XII

-         if (GetKeyState("CapsLock","T")) 

-            send {blind}{Shift down}2{Shift up}

-         else if (not(lernModus) or lernModus_std_ZahlenReihe)

-            send {blind}2

-

-      if (PriorDeadKey = "comp")

-         CompKey := "2"

-   }

-   else if (Ebene = 2)

-      SendUnicodeChar(0x2116) ; numero

-   else if (Ebene = 3)

-      SendUnicodeChar(0x00B2) ; 2 Hochgestellte

-   else if (Ebene = 4)

-      SendUnicodeChar(0x2023) ; aufzaehlungspfeil

-   else if (Ebene = 5)

-      SendUnicodeChar(0x26A5) ; Piktogramm Zwitter

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2228) ; Logisches Oder

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    if !(CheckDeadUni("c1",0x00B2)

+      or CheckDeadUni("c5",0x2082)

+      or CheckCompUni("r",0x2171)      ; römisch ii

+      or CheckCompUni("R",0x2161)      ; römisch II

+      or CheckComp3Uni("r_1",0x217B)   ; römisch xii

+      or CheckComp3Uni("R_1",0x216B))  ; römisch XII

+      if (GetKeyState("CapsLock","T"))

+        send {blind}{Shift down}2{Shift up}

+      else if (not(lernModus) or lernModus_std_ZahlenReihe)

+        send {blind}2

+

+    if (PriorDeadKey = "comp")

+      CompKey := "2"

+  }

+  else if (Ebene = 2)

+    SendUnicodeChar(0x2116) ; numero

+  else if (Ebene = 3)

+    SendUnicodeChar(0x00B2) ; 2 Hochgestellte

+  else if (Ebene = 4)

+    SendUnicodeChar(0x2023) ; aufzaehlungspfeil

+  else if (Ebene = 5)

+    SendUnicodeChar(0x26A5) ; Piktogramm Zwitter

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2228) ; Logisches Oder

 return

 

 neo_3:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      if !(CheckDeadUni("c1",0x00B3)

-        or CheckDeadUni("c5",0x2083)

-        or CheckCompUni("1",0x2153)           ; 1/3

-        or CheckCompUni("2",0x2154)           ; 2/3

-        or CheckCompUni("r",0x2172)           ; römisch iii

-        or CheckCompUni("R",0x2162))          ; römisch III

-         if (GetKeyState("CapsLock","T")) 

-            send {blind}{Shift down}3{Shift up}

-         else if (not(lernModus) or lernModus_std_ZahlenReihe)

-            send {blind}3

-

-      if (PriorDeadKey = "comp")

-         CompKey := "3"

-   }

-   else if (Ebene = 2)

-      send §

-   else if (Ebene = 3)

-      SendUnicodeChar(0x00B3) ; 3 Hochgestellte

-   else if (Ebene = 4)

-   {

-       CompKey := PriorCompKey

-       DeadKey := PriorDeadKey

-   } ; leer

-   else if (Ebene = 5)

-      SendUnicodeChar(0x2642) ; Piktogramm Mann

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2227) ; Logisches Und

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    if !(CheckDeadUni("c1",0x00B3)

+      or CheckDeadUni("c5",0x2083)

+      or CheckCompUni("1",0x2153)        ; 1/3

+      or CheckCompUni("2",0x2154)        ; 2/3

+      or CheckCompUni("r",0x2172)        ; römisch iii

+      or CheckCompUni("R",0x2162))       ; römisch III

+      if (GetKeyState("CapsLock","T"))

+        send {blind}{Shift down}3{Shift up}

+      else if (not(lernModus) or lernModus_std_ZahlenReihe)

+        send {blind}3

+

+    if (PriorDeadKey = "comp")

+      CompKey := "3"

+  }

+  else if (Ebene = 2)

+    send §

+  else if (Ebene = 3)

+    SendUnicodeChar(0x00B3) ; 3 Hochgestellte

+  else if (Ebene = 4)

+  {

+     CompKey := PriorCompKey

+     DeadKey := PriorDeadKey

+  } ; leer

+  else if (Ebene = 5)

+    SendUnicodeChar(0x2642) ; Piktogramm Mann

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2227) ; Logisches Und

 return

 

 neo_4:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      if !(CheckDeadUni("c1",0x2074)

-        or CheckDeadUni("c5",0x2084)

-        or CheckCompUni("r",0x2173)     ; römisch iv

-        or CheckCompUni("R",0x2163))    ; römisch IV

-         if (GetKeyState("CapsLock","T")) 

-            send {blind}{Shift down}4{Shift up}

-         else if (not(lernModus) or lernModus_std_ZahlenReihe)

-            send {blind}4

-

-      if (PriorDeadKey = "comp")

-         CompKey := "4"

-   }

-   else if (Ebene = 2)

-      SendUnicodeChar(0x00BB) ; », Double guillemot right

-    else if (Ebene = 3)

-      Send {blind}› ; Single guillemot right

-   else if (Ebene = 4)

-      Send {blind}{PgUp}    ; Prev

-   else if (Ebene = 5)

-      SendUnicodeChar(0x2113) ; Script small L

-   else if (Ebene = 6)

-      SendUnicodeChar(0x22A5) ; Senkrecht

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    if !(CheckDeadUni("c1",0x2074)

+      or CheckDeadUni("c5",0x2084)

+      or CheckCompUni("r",0x2173)    ; römisch iv

+      or CheckCompUni("R",0x2163))   ; römisch IV

+      if (GetKeyState("CapsLock","T"))

+        send {blind}{Shift down}4{Shift up}

+      else if (not(lernModus) or lernModus_std_ZahlenReihe)

+        send {blind}4

+

+    if (PriorDeadKey = "comp")

+      CompKey := "4"

+  }

+  else if (Ebene = 2)

+    SendUnicodeChar(0x00BB) ; », Double guillemot right

+   else if (Ebene = 3)

+    Send {blind}›           ; Single guillemot right

+  else if (Ebene = 4)

+    Send {blind}{PgUp}      ; Prev

+  else if (Ebene = 5)

+    SendUnicodeChar(0x2113) ; Script small L

+  else if (Ebene = 6)

+    SendUnicodeChar(0x22A5) ; Senkrecht

 return

 

 neo_5:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      if !(CheckDeadUni("c1",0x2075)

-        or CheckDeadUni("c5",0x2085)

-        or CheckCompUni("1",0x2155)           ; 1/5

-        or CheckCompUni("2",0x2156)           ; 2/5

-        or CheckCompUni("3",0x2157)           ; 3/5

-        or CheckCompUni("4",0x2158)           ; 4/5

-        or CheckCompUni("r",0x2174)           ; römisch v

-        or CheckCompUni("R",0x2164))          ; römisch V

-         if (GetKeyState("CapsLock","T")) 

-            send {blind}{Shift down}5{Shift up}

-         else if (not(lernModus) or lernModus_std_ZahlenReihe)

-            send {blind}5

-

-      if (PriorDeadKey = "comp")

-         CompKey := "5"

-   }

-   else if (Ebene = 2)

-      SendUnicodeChar(0x00AB) ; «, Double guillemot left

-   else if (Ebene = 3)

-      Send {blind}‹ ; Single guillemot left

-   else if (Ebene = 4)

-   {

-       CompKey := PriorCompKey

-       DeadKey := PriorDeadKey

-   } ; leer

-   else if (Ebene = 5)

-      SendUnicodeChar(0x2020) ; Kreuz (Dagger)

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2221) ; Winkel

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    if !(CheckDeadUni("c1",0x2075)

+      or CheckDeadUni("c5",0x2085)

+      or CheckCompUni("1",0x2155)        ; 1/5

+      or CheckCompUni("2",0x2156)        ; 2/5

+      or CheckCompUni("3",0x2157)        ; 3/5

+      or CheckCompUni("4",0x2158)        ; 4/5

+      or CheckCompUni("r",0x2174)        ; römisch v

+      or CheckCompUni("R",0x2164))       ; römisch V

+      if (GetKeyState("CapsLock","T"))

+        send {blind}{Shift down}5{Shift up}

+      else if (not(lernModus) or lernModus_std_ZahlenReihe)

+        send {blind}5

+

+    if (PriorDeadKey = "comp")

+      CompKey := "5"

+  }

+  else if (Ebene = 2)

+    SendUnicodeChar(0x00AB) ; Double guillemot left

+  else if (Ebene = 3)

+    Send {blind}‹           ; Single guillemot left

+  else if (Ebene = 4)

+  {

+     CompKey := PriorCompKey

+     DeadKey := PriorDeadKey

+  } ; leer

+  else if (Ebene = 5)

+    SendUnicodeChar(0x2020) ; Kreuz (Dagger)

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2221) ; Winkel

 return

 

 neo_6:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      if !(CheckDeadUni("c1",0x2076)

-        or CheckDeadUni("c5",0x2086)

-        or CheckCompUni("1",0x2159)           ; 1/6

-        or CheckCompUni("5",0x215A)           ; 5/6

-        or CheckCompUni("r",0x2175)           ; römisch vi

-        or CheckCompUni("R",0x2165))          ; römisch VI

-         if (GetKeyState("CapsLock","T")) 

-            send {blind}{Shift down}6{Shift up}

-         else if (not(lernModus) or lernModus_std_ZahlenReihe)

-            send {blind}6

-

-      if (PriorDeadKey = "comp")

-         CompKey := "6"

-   }

-   else if (Ebene = 2)

-      send €

-   else if (Ebene = 3)

-      send {blind}¢

-   else if (Ebene = 4)

-      send {blind}£

-   else if (Ebene = 5)

-   {

-       CompKey := PriorCompKey

-       DeadKey := PriorDeadKey

-   } ; leer

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2225) ; parallel

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    if !(CheckDeadUni("c1",0x2076)

+      or CheckDeadUni("c5",0x2086)

+      or CheckCompUni("1",0x2159)        ; 1/6

+      or CheckCompUni("5",0x215A)        ; 5/6

+      or CheckCompUni("r",0x2175)        ; römisch vi

+      or CheckCompUni("R",0x2165))       ; römisch VI

+      if (GetKeyState("CapsLock","T"))

+        send {blind}{Shift down}6{Shift up}

+      else if (not(lernModus) or lernModus_std_ZahlenReihe)

+        send {blind}6

+

+    if (PriorDeadKey = "comp")

+      CompKey := "6"

+  }

+  else if (Ebene = 2)

+    send €

+  else if (Ebene = 3)

+    send {blind}¢

+  else if (Ebene = 4)

+    send {blind}£

+  else if (Ebene = 5)

+  {

+     CompKey := PriorCompKey

+     DeadKey := PriorDeadKey

+  } ; leer

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2225) ; parallel

 return

 

 neo_7:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      if !(CheckDeadUni("c1",0x2077)

-        or CheckDeadUni("c5",0x2087)

-        or CheckCompUni("r",0x2176)     ; römisch vii

-        or CheckCompUni("R",0x2166))    ; römisch VII

-         if (GetKeyState("CapsLock","T")) 

-            send {blind}{Shift down}7{Shift up}

-         else if (not(lernModus) or lernModus_std_ZahlenReihe)

-            send {blind}7

-

-      if (PriorDeadKey = "comp")

-         CompKey := "7"

-   }

-   else if (Ebene = 2)

-      send $

-   else if (Ebene = 3)

-      send {blind}¥

-   else if (Ebene = 4)

-      send {blind}¤ 

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03BA) ; greek small letter kappa

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2209) ; nicht Element von 

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    if !(CheckDeadUni("c1",0x2077)

+      or CheckDeadUni("c5",0x2087)

+      or CheckCompUni("r",0x2176)    ; römisch vii

+      or CheckCompUni("R",0x2166))   ; römisch VII

+      if (GetKeyState("CapsLock","T"))

+        send {blind}{Shift down}7{Shift up}

+      else if (not(lernModus) or lernModus_std_ZahlenReihe)

+        send {blind}7

+

+    if (PriorDeadKey = "comp")

+      CompKey := "7"

+  }

+  else if (Ebene = 2)

+    send $

+  else if (Ebene = 3)

+    send {blind}¥

+  else if (Ebene = 4)

+    send {blind}¤

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03BA) ; greek small letter kappa

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2209) ; nicht Element von

 return

 

 neo_8:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      if !(CheckDeadUni("c1",0x2078)

-        or CheckDeadUni("c5",0x2088)

-        or CheckCompUni("1",0x215B)           ; 1/8

-        or CheckCompUni("3",0x215C)           ; 3/8

-        or CheckCompUni("5",0x215D)           ; 5/8

-        or CheckCompUni("7",0x215E)           ; 7/8

-        or CheckCompUni("r",0x2177)           ; römisch viii

-        or CheckCompUni("R",0x2167))          ; römisch VIII

-         if (GetKeyState("CapsLock","T")) 

-            send {blind}{Shift down}8{Shift up}

-         else if (not(lernModus) or lernModus_std_ZahlenReihe)

-            send {blind}8

-

-      if (PriorDeadKey = "comp")

-         CompKey := "8"

-   }

-   else if (Ebene = 2)

-      send „

-   else if (Ebene = 3)

-      send {blind}‚

-   else if (Ebene = 4)

-      Send {blind}{NumpadDiv}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x27E8) ;bra (öffnende spitze klammer)

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2204) ; es existiert nicht

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    if !(CheckDeadUni("c1",0x2078)

+      or CheckDeadUni("c5",0x2088)

+      or CheckCompUni("1",0x215B)        ; 1/8

+      or CheckCompUni("3",0x215C)        ; 3/8

+      or CheckCompUni("5",0x215D)        ; 5/8

+      or CheckCompUni("7",0x215E)        ; 7/8

+      or CheckCompUni("r",0x2177)        ; römisch viii

+      or CheckCompUni("R",0x2167))       ; römisch VIII

+      if (GetKeyState("CapsLock","T"))

+        send {blind}{Shift down}8{Shift up}

+      else if (not(lernModus) or lernModus_std_ZahlenReihe)

+        send {blind}8

+

+    if (PriorDeadKey = "comp")

+      CompKey := "8"

+  }

+  else if (Ebene = 2)

+    send „

+  else if (Ebene = 3)

+    send {blind}‚

+  else if (Ebene = 4)

+    Send {blind}{NumpadDiv}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x27E8) ;bra (öffnende spitze klammer)

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2204) ; es existiert nicht

 return

 

 neo_9:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      if !(CheckDeadUni("c1",0x2079)

-        or CheckDeadUni("c5",0x2089)

-        or CheckCompUni("r",0x2178)     ; römisch ix

-        or CheckCompUni("R",0x2168))    ; römisch IX

-         if (GetKeyState("CapsLock","T")) 

-            send {blind}{Shift down}9{Shift up}

-         else if (not(lernModus) or lernModus_std_ZahlenReihe)

-            send {blind}9

-

-      if (PriorDeadKey = "comp")

-         CompKey := "9"

-   }

-   else if (Ebene = 2)

-      send “

-   else if (Ebene = 3)

-      send {blind}‘

-   else if (Ebene = 4)

-      Send {blind}{NumpadMult}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x27E9) ;ket (schließende spitze klammer)

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2226) ; nicht parallel

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    if !(CheckDeadUni("c1",0x2079)

+      or CheckDeadUni("c5",0x2089)

+      or CheckCompUni("r",0x2178)    ; römisch ix

+      or CheckCompUni("R",0x2168))   ; römisch IX

+      if (GetKeyState("CapsLock","T"))

+        send {blind}{Shift down}9{Shift up}

+      else if (not(lernModus) or lernModus_std_ZahlenReihe)

+        send {blind}9

+

+    if (PriorDeadKey = "comp")

+      CompKey := "9"

+  }

+  else if (Ebene = 2)

+    send “

+  else if (Ebene = 3)

+    send {blind}‘

+  else if (Ebene = 4)

+    Send {blind}{NumpadMult}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x27E9) ;ket (schließende spitze klammer)

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2226) ; nicht parallel

 return

 

 neo_0:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      if !(CheckDeadUni("c1",0x2070)

-        or CheckDeadUni("c5",0x2080)

-        or CheckComp3Uni("r_1",0x2179)     ; römisch x

-        or CheckComp3Uni("R_1",0x2169))    ; römisch X

-         if (GetKeyState("CapsLock","T")) 

-            send {blind}{Shift down}0{Shift up}

-         else if (not(lernModus) or lernModus_std_ZahlenReihe)

-            send {blind}0

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    if !(CheckDeadUni("c1",0x2070)

+      or CheckDeadUni("c5",0x2080)

+      or CheckComp3Uni("r_1",0x2179)    ; römisch x

+      or CheckComp3Uni("R_1",0x2169))   ; römisch X

+      if (GetKeyState("CapsLock","T"))

+        send {blind}{Shift down}0{Shift up}

+      else if (not(lernModus) or lernModus_std_ZahlenReihe)

+        send {blind}0

 

       if (PriorDeadKey = "comp")

          CompKey := "0"

@@ -363,233 +360,233 @@ neo_0:
 return

 

 neo_strich:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-      if (GetKeyState("CapsLock","T")) 

-         send {blind}{Shift down}-{Shift up}

-      else

-         send {blind}- ; Bindestrich-Minus

-   else if (Ebene = 2)

-      SendUnicodeChar(0x2013) ; Gedankenstrich

-   else if (Ebene = 3)

-      SendUnicodeChar(0x2014) ; Englischer Gedankenstrich (Geviertstrich)

-   else if (Ebene = 4)

-   {

-       CompKey := PriorCompKey

-       DeadKey := PriorDeadKey

-   } ; leer

-   else if (Ebene = 5)

-      SendUnicodeChar(0x2011) ; geschützter Bindestrich (Bindestrich ohne Zeilenumbruch)

-   else if (Ebene = 6)

-      SendUnicodeChar(0x00AD) ; weicher Bindestrich

+  EbeneAktualisieren()

+  if (Ebene = 1)

+    if (GetKeyState("CapsLock","T"))

+      send {blind}{Shift down}-{Shift up}

+    else

+      send {blind}-         ; Bindestrich-Minus

+  else if (Ebene = 2)

+    SendUnicodeChar(0x2013) ; Gedankenstrich

+  else if (Ebene = 3)

+    SendUnicodeChar(0x2014) ; Englischer Gedankenstrich (Geviertstrich)

+  else if (Ebene = 4)

+  {

+     CompKey := PriorCompKey

+     DeadKey := PriorDeadKey

+  } ; leer

+  else if (Ebene = 5)

+    SendUnicodeChar(0x2011) ; geschützter Bindestrich (Bindestrich ohne Zeilenumbruch)

+  else if (Ebene = 6)

+    SendUnicodeChar(0x00AD) ; weicher Bindestrich

 return

 

 neo_tot2:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      deadAsc("{´}{space}") ; akut, tot

-      DeadKey := "a1"

-   }

-   else if (Ebene = 2)

-   {

-      deadAsc("``{space}")

-      DeadKey := "a2"

-   }

-   else if (Ebene = 3)

-   {

-      deadAsc("¸") ; cedilla

-      DeadKey := "a3"

-   }

-   else if (Ebene = 4)

-   {

-      deadUni(0x02D9) ; punkt oben drüber

-      DeadKey := "a4"

-   }

-   else if (Ebene = 5)

-   {

-      deadUni(0x02DB) ; ogonek

-      DeadKey := "a5"

-   }

-   else if (Ebene = 6)

-   {

-      deadUni(0x02DA)  ; ring obendrauf

-      DeadKey := "a6"

-   }

-   CompKey := PriorCompKey

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    deadAsc("{´}{space}") ; Akut, tot

+    DeadKey := "a1"

+  }

+  else if (Ebene = 2)

+  {

+    deadAsc("``{space}")  ; Gravis, tot

+    DeadKey := "a2"

+  }

+  else if (Ebene = 3)

+  {

+    deadAsc("¸")          ; Cedilla, tot

+    DeadKey := "a3"

+  }

+  else if (Ebene = 4)

+  {

+    deadUni(0x02D9)       ; Punkt obendrüber

+    DeadKey := "a4"

+  }

+  else if (Ebene = 5)

+  {

+    deadUni(0x02DB)       ; Ogonek

+    DeadKey := "a5"

+  }

+  else if (Ebene = 6)

+  {

+    deadUni(0x02DA)       ; Ring obendrauf

+    DeadKey := "a6"

+  }

+  CompKey := PriorCompKey

 return

 

 

 /*

-   ------------------------------------------------------

-   Reihe 2

-   ------------------------------------------------------

+

+  Reihe 2

+

 */

 

 neo_x:

-   EbeneAktualisieren()

-   if (Ebene12)

-      OutputChar("x","X")

-   else if (Ebene = 3)

-      SendUnicodeChar(0x2026) ;Ellipse

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03BE) ;xi

-   else if (Ebene = 6)

-      SendUnicodeChar(0x039E)  ; Xi

+  EbeneAktualisieren()

+  if (Ebene12)

+    OutputChar("x","X")

+  else if (Ebene = 3)

+    SendUnicodeChar(0x2026) ;Ellipse

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03BE) ;xi

+  else if (Ebene = 6)

+    SendUnicodeChar(0x039E)  ; Xi

 return

 

 

 neo_v:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("c6",0x1E7F,0x1E7E)))

-      OutputChar("v","V")

-   else if (Ebene = 3)

-      send {blind}_

-   else if (Ebene = 4)

-      if (not(lernModus) or lernModus_neo_Backspace)

-         Send {blind}{Backspace}

-      else

-      {

-          CompKey := PriorCompKey

-          DeadKey := PriorDeadKey

-      } ; leer

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2259) ; estimates

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("c6",0x1E7F,0x1E7E)))

+    OutputChar("v","V")

+  else if (Ebene = 3)

+    send {blind}_

+  else if (Ebene = 4)

+    if (not(lernModus) or lernModus_neo_Backspace)

+      Send {blind}{Backspace}

+    else

+    {

+       CompKey := PriorCompKey

+       DeadKey := PriorDeadKey

+    } ; leer

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2259) ; estimates

 return

 

 

 

 neo_l:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x013A,0x0139)

-                  or CheckDeadUni12("a3",0x013C,0x013B)

-                  or CheckDeadUni12("c2",0x013E,0x013D)

-                  or CheckDeadUni12("c4",0x0140,0x013F)

-                  or CheckDeadUni12("c6",0x1E37,0x1E36)

-                  or CheckDeadUni12("t4",0x0142,0x0141)))

-      OutputChar("l","L")

-   else if (Ebene = 3)

-      send {blind}[

-   else if (Ebene = 4)

-      Send {Blind}{Up}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03BB) ; lambda

-   else if (Ebene = 6)

-      SendUnicodeChar(0x039B) ; Lambda

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x013A,0x0139)

+            or CheckDeadUni12("a3",0x013C,0x013B)

+            or CheckDeadUni12("c2",0x013E,0x013D)

+            or CheckDeadUni12("c4",0x0140,0x013F)

+            or CheckDeadUni12("c6",0x1E37,0x1E36)

+            or CheckDeadUni12("t4",0x0142,0x0141)))

+    OutputChar("l","L")

+  else if (Ebene = 3)

+    send {blind}[

+  else if (Ebene = 4)

+    Send {Blind}{Up}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03BB) ; lambda

+  else if (Ebene = 6)

+    SendUnicodeChar(0x039B) ; Lambda

 return

 

 

 neo_c:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x0107,0x0106)

-                  or CheckDeadUni12("a3",0x00E7,0x00E6)

-                  or CheckDeadUni12("a4",0x010B,0x010A)

-                  or CheckDeadUni12("c1",0x0109,0x0108)

-                  or CheckDeadUni12("c2",0x010D,0x010C)

-                  or CheckCompAsc12("o","©","©")

-                  or CheckCompAsc12("O","©","©")))

-      OutputChar("c","C")

-   else if (Ebene = 3)

-      send {blind}]

-   else if (Ebene = 4)

-      if (not(lernModus) or lernModus_neo_Entf)

-        Send {blind}{Del}

-      else

-      {

-          CompKey := PriorCompKey

-          DeadKey := PriorDeadKey

-      } ; leer

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03C7) ;chi

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2102)  ; C (Komplexe Zahlen)

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x0107,0x0106)

+            or CheckDeadUni12("a3",0x00E7,0x00E6)

+            or CheckDeadUni12("a4",0x010B,0x010A)

+            or CheckDeadUni12("c1",0x0109,0x0108)

+            or CheckDeadUni12("c2",0x010D,0x010C)

+            or CheckCompAsc12("o","©","©")

+            or CheckCompAsc12("O","©","©")))

+    OutputChar("c","C")

+  else if (Ebene = 3)

+    send {blind}]

+  else if (Ebene = 4)

+    if (not(lernModus) or lernModus_neo_Entf)

+      Send {blind}{Del}

+    else

+    {

+       CompKey := PriorCompKey

+       DeadKey := PriorDeadKey

+    } ; leer

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03C7) ;chi

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2102)  ; C (Komplexe Zahlen)

 return

 

 neo_w:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("c1",0x0175,0x0174)))

-      OutputChar("w","W")

-   else if (Ebene = 3)

-      SendUnicodeChar(0x005E) ; untotes ^ - Unicode-Name: CIRCUMFLEX ACCENT

-      ;send {^}{space} ; Funktioniert nicht unter Java-Programmen 

-   else if (Ebene = 4)

-      Send {blind}{Insert}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03C9) ; omega

-   else if (Ebene = 6)

-      SendUnicodeChar(0x03A9) ; Omega

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("c1",0x0175,0x0174)))

+    OutputChar("w","W")

+  else if (Ebene = 3)

+    SendUnicodeChar(0x005E) ; untotes ^ - Unicode-Name: CIRCUMFLEX ACCENT

+      ;send {^}{space}      ; Funktioniert nicht unter Java-Programmen

+  else if (Ebene = 4)

+    Send {blind}{Insert}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03C9) ; omega

+  else if (Ebene = 6)

+    SendUnicodeChar(0x03A9) ; Omega

 return

 

 neo_k:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a3",0x0137,0x0136)

-                  or CheckDeadUni12("c6",0x1E33,0x1E32)))

-      OutputChar("k","K")

-   else if (Ebene = 3)

-      send {blind}{!}

-   else if (Ebene = 4)

-      Send ¡

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03F0) ;kappa symbol (varkappa)

-   else if (Ebene = 6)

-      SendUnicodeChar(0x221A) ; Wurzel

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a3",0x0137,0x0136)

+            or CheckDeadUni12("c6",0x1E33,0x1E32)))

+    OutputChar("k","K")

+  else if (Ebene = 3)

+    send {blind}{!}

+  else if (Ebene = 4)

+    Send ¡

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03F0) ;kappa symbol (varkappa)

+  else if (Ebene = 6)

+    SendUnicodeChar(0x221A) ; Wurzel

 return

 

 neo_h:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a4",0x1E23,0x1E22)

-                  or CheckDeadUni12("c1",0x0125,0x0124)

-                  or CheckDeadUni12("c5",0x0127,0x0126)

-                  or CheckDeadUni12("c6",0x1E25,0x1E24)))

-      OutputChar("h","H")

-   else if ((Ebene = 3) and !(CheckDeadUni("c5",0x2264))) ; kleiner gleich

-      send {blind}<

-   else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2077)

-                           or CheckDeadUni("c5",0x2087)))

-      Send {blind}{NumPad7}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03C8) ;psi

-   else if (Ebene = 6)

-      SendUnicodeChar(0x03A8)  ; Psi

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a4",0x1E23,0x1E22)

+            or CheckDeadUni12("c1",0x0125,0x0124)

+            or CheckDeadUni12("c5",0x0127,0x0126)

+            or CheckDeadUni12("c6",0x1E25,0x1E24)))

+    OutputChar("h","H")

+  else if ((Ebene = 3) and !(CheckDeadUni("c5",0x2264))) ; kleiner gleich

+    send {blind}<

+  else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2077)

+                  or CheckDeadUni("c5",0x2087)))

+    Send {blind}{NumPad7}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03C8) ;psi

+  else if (Ebene = 6)

+    SendUnicodeChar(0x03A8)  ; Psi

 return

 

 neo_g:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a3",0x0123,0x0122)

-                  or CheckDeadUni12("a4",0x0121,0x0120)

-                  or CheckDeadUni12("c1",0x011D,0x011C)

-                  or CheckDeadUni12("c3",0x011F,0x011E)))

-      OutputChar("g","G")

-   else if ((Ebene = 3) and !(CheckDeadUni("c5",0x2265))) ; größer gleich

-      send {blind}>

-   else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2078)

-                           or CheckDeadUni("c5",0x2088)))

-      Send {blind}{NumPad8}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03B3) ;gamma

-   else if (Ebene = 6)

-      SendUnicodeChar(0x0393)  ; Gamma

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a3",0x0123,0x0122)

+            or CheckDeadUni12("a4",0x0121,0x0120)

+            or CheckDeadUni12("c1",0x011D,0x011C)

+            or CheckDeadUni12("c3",0x011F,0x011E)))

+    OutputChar("g","G")

+  else if ((Ebene = 3) and !(CheckDeadUni("c5",0x2265))) ; größer gleich

+    send {blind}>

+  else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2078)

+                  or CheckDeadUni("c5",0x2088)))

+    Send {blind}{NumPad8}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03B3) ;gamma

+  else if (Ebene = 6)

+    SendUnicodeChar(0x0393)  ; Gamma

 return

 

 neo_f:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a4",0x1E1F,0x1E1E)

-                  or CheckDeadUni12("t4",0x0192,0x0191)))

-      OutputChar("f","F")

-   else if ((Ebene = 3) and !(CheckDeadUni("a6",0x2257)    ; ring equal to

-                      or CheckDeadUni("c1",0x2259)    ; entspricht

-                      or CheckDeadUni("c2",0x225A)    ; EQUIANGULAR TO

-                      or CheckDeadUni("c5",0x2261)    ; identisch

-                      or CheckDeadUni("t1",0x2245)    ; ungefähr gleich

-                      or CheckDeadUni("t4",0x2260)))  ; ungleich

-      send {blind}`=

-   else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2079)

-                           or CheckDeadUni("c5",0x2089)))

-      Send {blind}{NumPad9}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03C6) ; phi

-   else if (Ebene = 6)

-      SendUnicodeChar(0x03A6)  ; Phi

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a4",0x1E1F,0x1E1E)

+            or CheckDeadUni12("t4",0x0192,0x0191)))

+    OutputChar("f","F")

+  else if ((Ebene = 3) and !(CheckDeadUni("a6",0x2257)   ; ring equal to

+               or CheckDeadUni("c1",0x2259)   ; entspricht

+               or CheckDeadUni("c2",0x225A)   ; EQUIANGULAR TO

+               or CheckDeadUni("c5",0x2261)   ; identisch

+               or CheckDeadUni("t1",0x2245)   ; ungefähr gleich

+               or CheckDeadUni("t4",0x2260)))  ; ungleich

+    send {blind}`=

+  else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2079)

+                  or CheckDeadUni("c5",0x2089)))

+    Send {blind}{NumPad9}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03C6) ; phi

+  else if (Ebene = 6)

+    SendUnicodeChar(0x03A6)  ; Phi

 return

 

 neo_q:

@@ -608,281 +605,298 @@ neo_q:
 return

 

 neo_sz:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-      if (GetKeyState("CapsLock","T"))

-         SendUnicodeChar(0x1E9E) ; verssal-ß

-      else if (LangSTastatur = 1)

-         send {blind}s

-      else

-         send ß

-   else if (Ebene = 2)

-      if (GetKeyState("CapsLock","T"))

-         if (LangSTastatur = 1)

-            send {blind}s

-         else

-            send ß

-      else

-         SendUnicodeChar(0x1E9E) ; versal-ß

-   else if (Ebene = 3)

+  EbeneAktualisieren()

+  if (Ebene = 1)

+    if (GetKeyState("CapsLock","T"))

+      SendUnicodeChar(0x1E9E) ; versal-ß

+    else if (LangSTastatur = 1)

+      send {blind}s

+    else

+      send ß

+  else if (Ebene = 2)

+    if (GetKeyState("CapsLock","T"))

       if (LangSTastatur = 1)

-         send ß

+        send {blind}s

       else

-         SendUnicodeChar(0x017F) ; langes s

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03C2) ; varsigma

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2218) ; Verknüpfungsoperator

+        send ß

+    else

+      SendUnicodeChar(0x1E9E) ; versal-ß

+  else if (Ebene = 3)

+    if (LangSTastatur = 1)

+      send ß

+    else

+      SendUnicodeChar(0x017F) ; langes s

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03C2) ; varsigma

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2218) ; Verknüpfungsoperator

 return

 

 

 neo_tot3:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-   {

-      deadUni(0x02DC)  ; tilde, tot 

-      DeadKey := "t1"

-   }

-   else if (Ebene = 2)

-   {

-      deadUni(0x00AF)  ; macron, tot

-      DeadKey := "t2"

-   }

-   else if (Ebene = 3)

-   {

-      deadUni(0x00A8)  ; diaerese

-      DeadKey := "t3"

-   }

-   else if (Ebene = 4)

-   {

-      deadUni(0x002F)  ; Schrägstrich, tot

-      DeadKey := "t4"

-   }

-   else if (Ebene = 5)

-   {

-      deadUni(0x02DD)  ;doppelakut

-      DeadKey := "t5"

-   }

-   else if (Ebene = 6)

-   {

-      deadUni(0x02CF)  ; komma drunter, tot

-      DeadKey := "t6"

-   }

-   

+  EbeneAktualisieren()

+  if (Ebene = 1)

+  {

+    deadUni(0x02DC)  ;Tilde, tot

+    DeadKey := "t1"

+  }

+  else if (Ebene = 2)

+  {

+    deadUni(0x00AF)  ; Macron, tot

+    DeadKey := "t2"

+  }

+  else if (Ebene = 3)

+  {

+    deadUni(0x00A8)  ; Diärese

+    DeadKey := "t3"

+  }

+  else if (Ebene = 4)

+  {

+    deadUni(0x002F)  ; Schrägstrich, tot

+    DeadKey := "t4"

+  }

+  else if (Ebene = 5)

+  {

+    deadUni(0x02DD)  ;Doppelakut

+    DeadKey := "t5"

+  }

+  else if (Ebene = 6)

+  {

+    deadUni(0x02CF)  ; Komma drunter, tot

+    DeadKey := "t6"

+  }

+

 return

 

 

 /*

-   ------------------------------------------------------

-   Reihe 3

-   ------------------------------------------------------

+

+  Reihe 3

+

 */

 

 neo_u:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x00FA,0x00DA)

-                  or CheckDeadUni12("a2",0x00F9,0x00D9)

-                  or CheckDeadUni12("a5",0x0173,0x0172)

-                  or CheckDeadUni12("a6",0x016F,0x016E)

-                  or CheckDeadUni12("c1",0x00FB,0x00DB)

-                  or CheckDeadUni12("c2",0x01D4,0x01D3)

-                  or CheckDeadUni12("c3",0x016D,0x016C)

-                  or CheckDeadUni12("t1",0x0169,0x0168)

-                  or CheckDeadUni12("t2",0x016B,0x016A)

-                  or CheckDeadAsc12("t3","ü","Ü")

-                  or CheckDeadUni12("t5",0x0171,0x0170)))

-      OutputChar("u","U")

-   else if (Ebene = 3)

-      send {blind}\

-   else if (Ebene = 4)

-      Send {blind}{Home}

-   else if (Ebene = 5)

-   {

-       CompKey := PriorCompKey

-       DeadKey := PriorDeadKey

-   } ; leer

-   else if (Ebene = 6)

-      SendUnicodeChar(0x222E) ; contour integral

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x00FA,0x00DA)

+            or CheckDeadUni12("a2",0x00F9,0x00D9)

+            or CheckDeadUni12("a5",0x0173,0x0172)

+            or CheckDeadUni12("a6",0x016F,0x016E)

+            or CheckDeadUni12("c1",0x00FB,0x00DB)

+            or CheckDeadUni12("c2",0x01D4,0x01D3)

+            or CheckDeadUni12("c3",0x016D,0x016C)

+            or CheckDeadUni12("t1",0x0169,0x0168)

+            or CheckDeadUni12("t2",0x016B,0x016A)

+            or CheckDeadAsc12("t3","ü","Ü")

+            or CheckDeadUni12("t5",0x0171,0x0170)))

+    OutputChar("u","U")

+  else if (Ebene = 3)

+    send {blind}\

+  else if (Ebene = 4)

+    Send {blind}{Home}

+  else if (Ebene = 5)

+  {

+     CompKey := PriorCompKey

+     DeadKey := PriorDeadKey

+  } ; leer

+  else if (Ebene = 6)

+    SendUnicodeChar(0x222E) ; contour integral

 return

 

 neo_i:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x00ED,0x00CD)

-                  or CheckDeadUni12("a2",0x00EC,0x00CC)

-                  or CheckDeadUni12("a4",0x012F,0x012E)

-                  or CheckDeadUni12("a5",0x0131,0x0130)

-                  or CheckDeadUni12("c1",0x00EE,0x00CE)

-                  or CheckDeadUni12("c2",0x01D0,0x01CF)

-                  or CheckDeadUni12("c3",0x012D,0x012C)

-                  or CheckDeadUni12("t1",0x0129,0x0128)

-                  or CheckDeadUni12("t2",0x012B,0x012A)

-                  or CheckDeadAsc12("t3","ï","Ï")))

-      OutputChar("i","I")

-   else if (Ebene = 3)

-      send {blind}`/

-   else if (Ebene = 4)

-      Send {Blind}{Left}

-   else if (Ebene = 5    )

-      SendUnicodeChar(0x03B9) ; iota

-   else if (Ebene = 6)

-      SendUnicodeChar(0x222B) ; integral

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x00ED,0x00CD)

+            or CheckDeadUni12("a2",0x00EC,0x00CC)

+            or CheckDeadUni12("a4",0x012F,0x012E)

+            or CheckDeadUni12("a5",0x0131,0x0130)

+            or CheckDeadUni12("c1",0x00EE,0x00CE)

+            or CheckDeadUni12("c2",0x01D0,0x01CF)

+            or CheckDeadUni12("c3",0x012D,0x012C)

+            or CheckDeadUni12("t1",0x0129,0x0128)

+            or CheckDeadUni12("t2",0x012B,0x012A)

+            or CheckDeadAsc12("t3","ï","Ï")))

+    OutputChar("i","I")

+  else if (Ebene = 3)

+    send {blind}`/

+  else if (Ebene = 4)

+    Send {Blind}{Left}

+  else if (Ebene = 5   )

+    SendUnicodeChar(0x03B9) ; iota

+  else if (Ebene = 6)

+    SendUnicodeChar(0x222B) ; integral

 return

 

 neo_a:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x00E1,0x00C1)

-                  or CheckDeadUni12("a2",0x00E0,0x00C0)

-                  or CheckDeadUni12("a5",0x0105,0x0104)

-                  or CheckDeadAsc12("a6","å","Å")

-                  or CheckDeadUni12("c1",0x00E2,0x00C2)

-                  or CheckDeadUni12("c2",0x01CE,0x01CD)

-                  or CheckDeadUni12("c3",0x0103,0x0102)

-                  or CheckDeadUni12("t1",0x00E3,0x00C3)

-                  or CheckDeadUni12("t2",0x0101,0x0100)

-                  or CheckDeadAsc12("t3","ä","Ä")))

-      OutputChar("a","A")

-   else if (Ebene = 3)

-      send {blind}{{}   ; }

-   else if (Ebene = 4)

-      Send {Blind}{Down}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03B1) ;alpha

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2200) ;fuer alle   

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x00E1,0x00C1)

+            or CheckDeadUni12("a2",0x00E0,0x00C0)

+            or CheckDeadUni12("a5",0x0105,0x0104)

+            or CheckDeadAsc12("a6","å","Å")

+            or CheckDeadUni12("c1",0x00E2,0x00C2)

+            or CheckDeadUni12("c2",0x01CE,0x01CD)

+            or CheckDeadUni12("c3",0x0103,0x0102)

+            or CheckDeadUni12("t1",0x00E3,0x00C3)

+            or CheckDeadUni12("t2",0x0101,0x0100)

+            or CheckDeadAsc12("t3","ä","Ä")))

+    OutputChar("a","A")

+  else if (Ebene = 3)

+    send {blind}{{}

+  else if (Ebene = 4)

+    Send {Blind}{Down}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03B1) ;alpha

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2200) ;für alle

 return

 

 neo_e:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x00E9,0x00C9)

-                  or CheckDeadUni12("a2",0x00E8,0x00C8)

-                  or CheckDeadUni12("a4",0x0117,0x0116)

-                  or CheckDeadUni12("a5",0x0119,0x0118)

-                  or CheckDeadUni12("c1",0x00EA,0x00CA)

-                  or CheckDeadUni12("c2",0x011B,0x011A)

-                  or CheckDeadUni12("c3",0x0115,0x0114)

-                  or CheckDeadUni12("t2",0x0113,0x0112)

-                  or CheckDeadAsc12("t3","ë","Ë")

-                  or CheckCompAsc12("a","æ","Æ")

-                  or CheckCompAsc12("A","Æ","Æ")

-                  or CheckCompAsc12("o","œ","Œ")

-                  or CheckCompAsc12("O","Œ","Œ")))

-      OutputChar("e","E")

-   else if (Ebene = 3)      ; {

-      send {blind}{}}

-   else if (Ebene = 4)

-      Send {Blind}{Right}

-   else if (Ebene = 5)

-        SendUnicodeChar(0x03B5) ;epsilon

-   else if (Ebene = 6)

-        SendUnicodeChar(0x2203) ;es existiert   

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x00E9,0x00C9)

+            or CheckDeadUni12("a2",0x00E8,0x00C8)

+            or CheckDeadUni12("a4",0x0117,0x0116)

+            or CheckDeadUni12("a5",0x0119,0x0118)

+            or CheckDeadUni12("c1",0x00EA,0x00CA)

+            or CheckDeadUni12("c2",0x011B,0x011A)

+            or CheckDeadUni12("c3",0x0115,0x0114)

+            or CheckDeadUni12("t2",0x0113,0x0112)

+            or CheckDeadAsc12("t3","ë","Ë")

+            or CheckCompAsc12("a","æ","Æ")

+            or CheckCompAsc12("A","Æ","Æ")

+            or CheckCompAsc12("o","œ","Œ")

+            or CheckCompAsc12("O","Œ","Œ")))

+    OutputChar("e","E")

+  else if (Ebene = 3)    ; {

+    send {blind}{}}

+  else if (Ebene = 4)

+    Send {Blind}{Right}

+  else if (Ebene = 5)

+      SendUnicodeChar(0x03B5) ;epsilon

+  else if (Ebene = 6)

+      SendUnicodeChar(0x2203) ;es existiert

 return

 

 neo_o:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x00F3,0x00D3)

-                  or CheckDeadUni12("a2",0x00F2,0x00D2)

-                  or CheckDeadUni12("a5",0x01EB,0x01EA)

-                  or CheckDeadUni12("c1",0x00F4,0x00D4)

-                  or CheckDeadUni12("c2",0x01D2,0x01D1)

-                  or CheckDeadUni12("c3",0x014F,0x014E)

-                  or CheckDeadUni12("t1",0x00F5,0x00D5)

-                  or CheckDeadUni12("t2",0x014D,0x014C)

-                  or CheckDeadAsc12("t3","ö","Ö")

-                  or CheckDeadUni12("t4",0x00F8,0x00D8)

-                  or CheckDeadUni12("t5",0x0151,0x0150)))

-      OutputChar("o","O")

-   else if (Ebene = 3)

-      send {blind}*

-   else if (Ebene = 4)

-      Send {blind}{End}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03BF) ; omicron

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2208) ; element of

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x00F3,0x00D3)

+            or CheckDeadUni12("a2",0x00F2,0x00D2)

+            or CheckDeadUni12("a5",0x01EB,0x01EA)

+            or CheckDeadUni12("c1",0x00F4,0x00D4)

+            or CheckDeadUni12("c2",0x01D2,0x01D1)

+            or CheckDeadUni12("c3",0x014F,0x014E)

+            or CheckDeadUni12("t1",0x00F5,0x00D5)

+            or CheckDeadUni12("t2",0x014D,0x014C)

+            or CheckDeadAsc12("t3","ö","Ö")

+            or CheckDeadUni12("t4",0x00F8,0x00D8)

+            or CheckDeadUni12("t5",0x0151,0x0150)))

+    OutputChar("o","O")

+  else if (Ebene = 3)

+    send {blind}*

+  else if (Ebene = 4)

+    Send {blind}{End}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03BF) ; omicron

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2208) ; element of

 return

 

 neo_s:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x015B,0x015A)

-                  or CheckDeadUni12("a3",0x015F,0x015E)

-                  or CheckDeadUni12("a4",0x1E61,0x1E60)

-                  or CheckDeadUni12("c1",0x015D,0x015C)

-                  or CheckDeadUni12("c2",0x0161,0x0160)

-                  or CheckDeadUni12("c6",0x1E63,0x1A62)))

-      if (LangSTastatur = 1)

-         if (GetKeyState("CapsLock","T") xor (Ebene = 1))

-            SendUnicodeChar(0x017F) ; langes s

-         else

-            OutputChar("s","S")

-      else

-         OutputChar("s","S")

-   else if (Ebene = 3)

-      send {blind}?

-   else if (Ebene = 4)

-      Send ¿

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03C3) ;sigma

-   else if (Ebene = 6)

-      SendUnicodeChar(0x03A3)  ; Sigma

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x015B,0x015A)

+              or CheckDeadUni12("a3",0x015F,0x015E)

+              or CheckDeadUni12("a4",0x1E61,0x1E60)

+              or CheckDeadUni12("c1",0x015D,0x015C)

+              or CheckDeadUni12("c2",0x0161,0x0160)

+              or CheckDeadUni12("c6",0x1E63,0x1A62)))

+      if (Ebene = 1)

+      {

+        if LangSTastatur

+          if (GetKeyState("CapsLock","T"))

+            send {blind}s

+          else

+            SendUnicodeChar(0x017F) ;langes S

+        else

+          send {blind}s

+        if (PriorDeadKey = "comp")

+          CompKey := "s"

+      }

+      else if (Ebene = 2)

+      {

+        if LangSTastatur

+          if (GetKeyState("CapsLock","T"))

+            SendUnicodeChar(0x017F) ;langes S

+          else

+            send {blind}S

+        else

+          send {blind}S

+        if (PriorDeadKey = "comp")

+          CompKey := "S"

+      }

+  else if (Ebene = 3)

+    send {blind}?

+  else if (Ebene = 4)

+    Send ¿

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03C3) ;sigma

+  else if (Ebene = 6)

+    SendUnicodeChar(0x03A3)  ; Sigma

 return

 

 neo_n:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x0144,0x0143)

-                  or CheckDeadUni12("a3",0x0146,0x0145)

-                  or CheckDeadUni12("a4",0x1E45,0x1E44)

-                  or CheckDeadUni12("c2",0x0148,0x0147)

-                  or CheckDeadUni12("t1",0x00F1,0x00D1)))

-      OutputChar("n","N")

-   else if (Ebene = 3)

-      send {blind}(                 ; )

-   else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2074)

-                           or CheckDeadUni("c5",0x2084)))

-      Send {blind}{NumPad4}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03BD) ; nu

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2115) ; N (natürliche Zahlen)

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x0144,0x0143)

+            or CheckDeadUni12("a3",0x0146,0x0145)

+            or CheckDeadUni12("a4",0x1E45,0x1E44)

+            or CheckDeadUni12("c2",0x0148,0x0147)

+            or CheckDeadUni12("t1",0x00F1,0x00D1)))

+    OutputChar("n","N")

+  else if (Ebene = 3)

+    send {blind}(            ; )

+  else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2074)

+                  or CheckDeadUni("c5",0x2084)))

+    Send {blind}{NumPad4}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03BD) ; nu

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2115) ; N (natürliche Zahlen)

 return

 

 neo_r:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x0155,0x0154)

-                  or CheckDeadUni12("a3",0x0157,0x0156)

-                  or CheckDeadUni12("a4",0x0E59,0x0E58)

-                  or CheckDeadUni12("c2",0x0159,0x0158)

-                  or CheckDeadUni12("c6",0x1E5B,0x1E5A)

-                  or CheckCompAsc12("o","®","®")

-                  or CheckCompAsc12("O","®","®")))

-      OutputChar("r","R")

-   else if (Ebene = 3)                ;(

-      send {blind})

-   else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2075)

-                           or CheckDeadUni("c5",0x2085)))

-      Send {blind}{NumPad5}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03F1) ; rho symbol (varrho)

-   else if (Ebene = 6)

-      SendUnicodeChar(0x211D) ; R (reelle Zahlen)

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x0155,0x0154)

+            or CheckDeadUni12("a3",0x0157,0x0156)

+            or CheckDeadUni12("a4",0x0E59,0x0E58)

+            or CheckDeadUni12("c2",0x0159,0x0158)

+            or CheckDeadUni12("c6",0x1E5B,0x1E5A)

+            or CheckCompAsc12("o","®","®")

+            or CheckCompAsc12("O","®","®")))

+    OutputChar("r","R")

+  else if (Ebene = 3)           ;(

+    send {blind})

+  else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2075)

+                  or CheckDeadUni("c5",0x2085)))

+    Send {blind}{NumPad5}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03F1) ; rho symbol (varrho)

+  else if (Ebene = 6)

+    SendUnicodeChar(0x211D) ; R (reelle Zahlen)

 return

 

 neo_t:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a3",0x0163,0x0162)

-                  or CheckDeadUni12("a4",0x1E6B,0x1E6A)

-                  or CheckDeadUni12("c2",0x0165,0x0164)

-                  or CheckDeadUni12("c5",0x0167,0x0166)

-                  or CheckDeadUni12("c6",0x1E6D,0x1E6C)))

-      OutputChar("t","T")

-   else if (Ebene = 3)

-      send {blind}- ; Bis

-   else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2076)

-                           or CheckDeadUni("c5",0x2086)))

-      Send {blind}{NumPad6}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03C4) ; tau

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2202 ) ; partielle Ableitung

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a3",0x0163,0x0162)

+            or CheckDeadUni12("a4",0x1E6B,0x1E6A)

+            or CheckDeadUni12("c2",0x0165,0x0164)

+            or CheckDeadUni12("c5",0x0167,0x0166)

+            or CheckDeadUni12("c6",0x1E6D,0x1E6C)))

+    OutputChar("t","T")

+  else if (Ebene = 3)

+    send {blind}- ; Bis

+  else if ((Ebene = 4) and !(CheckDeadUni("c1",0x2076)

+                  or CheckDeadUni("c5",0x2086)))

+    Send {blind}{NumPad6}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03C4) ; tau

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2202 ) ; partielle Ableitung

 return

 

 neo_d:

@@ -904,719 +918,710 @@ neo_d:
 return

 

 neo_y:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x00FD,0x00DD)

-                  or CheckDeadUni12("c1",0x0177,0x0176)

-                  or CheckDeadAsc12("t3","ÿ",Ÿ)))

-      OutputChar("y","Y")

-   else if (Ebene = 3)

-      send {blind}@

-   else if (Ebene = 4)

-      Send {blind}.

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03C5) ; upsilon

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2207) ; nabla

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x00FD,0x00DD)

+            or CheckDeadUni12("c1",0x0177,0x0176)

+            or CheckDeadAsc12("t3","ÿ",Ÿ)))

+    OutputChar("y","Y")

+  else if (Ebene = 3)

+    send {blind}@

+  else if (Ebene = 4)

+    Send {blind}.

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03C5) ; upsilon

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2207) ; nabla

 return

 

 /*

-   ------------------------------------------------------

-   Reihe 4

-   ------------------------------------------------------

+

+  Reihe 4

+

 */

 

 neo_ü:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x01D8,0x01D7)

-                  or CheckDeadUni12("a2",0x01DC,0x01DB)

-                  or CheckDeadUni12("c2",0x01DA,0x01D9)

-                  or CheckDeadUni12("t2",0x01D6,0x01D5)))

-      OutputChar("ü","Ü")

-   else if (Ebene = 3)

-      send {blind}{#}

-   else if (Ebene = 4)

-      Send {blind}{Esc}

-   else if (Ebene = 5)

-   {

-      DeadKey := PriorDeadKey

-      CompKey := PriorCompKey

-   } ; leer

-   else if (Ebene = 6)

-      SendUnicodeChar(0x221D) ; proportional

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x01D8,0x01D7)

+            or CheckDeadUni12("a2",0x01DC,0x01DB)

+            or CheckDeadUni12("c2",0x01DA,0x01D9)

+            or CheckDeadUni12("t2",0x01D6,0x01D5)))

+    OutputChar("ü","Ü")

+  else if (Ebene = 3)

+    send {#}

+  else if (Ebene = 4)

+    Send {blind}{Esc}

+  else if (Ebene = 5)

+  {

+    DeadKey := PriorDeadKey

+    CompKey := PriorCompKey

+  } ; leer

+  else if (Ebene = 6)

+    SendUnicodeChar(0x221D) ; proportional

 return

 

 neo_ö:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("t2",0x022B,0x022A)))

-      OutputChar("ö","Ö")

-   else if (Ebene = 3)

-      send {blind}$

-   else if (Ebene = 4)

-      send {blind}{Tab}

-   else if (Ebene = 5)

-   {

-      DeadKey := PriorDeadKey

-      CompKey := PriorCompKey

-   } ; leer

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2111) ; Fraktur I

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("t2",0x022B,0x022A)))

+    OutputChar("ö","Ö")

+  else if (Ebene = 3)

+    send {blind}$

+  else if (Ebene = 4)

+    send {blind}{Tab}

+  else if (Ebene = 5)

+  {

+    DeadKey := PriorDeadKey

+    CompKey := PriorCompKey

+  } ; leer

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2111) ; Fraktur I

 return

 

 neo_ä:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("t2",0x01DF,0x01DE)))

-      OutputChar("ä","Ä")

-   else if (Ebene = 3)

-      send {blind}|

-   else if (Ebene = 4)

-      Send {blind}{PgDn}    ; Next

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03B7) ; eta

-   else if (Ebene = 6)

-      SendUnicodeChar(0x211C) ; altes R

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("t2",0x01DF,0x01DE)))

+    OutputChar("ä","Ä")

+  else if (Ebene = 3)

+    send {blind}|

+  else if (Ebene = 4)

+    Send {blind}{PgDn}   ; Next

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03B7) ; eta

+  else if (Ebene = 6)

+    SendUnicodeChar(0x211C) ; altes R

 return

 

 neo_p:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a4",0x1E57,0x1E56)))

-      OutputChar("p","P")

-   else if ((Ebene = 3) and !(CheckDeadUni("t1",0x2248)))

-      send {blind}~

-   else if (Ebene = 4)

-        Send {blind}{Enter}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03C0) ;pi

-   else if (Ebene = 6)

-      SendUnicodeChar(0x03A0)  ; Pi

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a4",0x1E57,0x1E56)))

+    OutputChar("p","P")

+  else if ((Ebene = 3) and !(CheckDeadUni("t1",0x2248)))

+    send {blind}~

+  else if (Ebene = 4)

+      Send {blind}{Enter}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03C0) ;pi

+  else if (Ebene = 6)

+    SendUnicodeChar(0x03A0)  ; Pi

 return

 

 neo_z:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a1",0x017A,0x0179)

-                  or CheckDeadUni12("a4",0x017C,0x017B)

-                  or CheckDeadUni12("c2",0x017E,0x017D)

-                  or CheckDeadUni12("c6",0x1E93,0x1E92)))

-      OutputChar("z","Z")

-   else if (Ebene = 3)

-      send ``{space} ; untot

-   else if (Ebene = 4)

-   {

-      DeadKey := PriorDeadKey

-      CompKey := PriorCompKey

-   } ; leer

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03B6) ;zeta 

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2124)  ; Z (ganze Zahlen)

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a1",0x017A,0x0179)

+            or CheckDeadUni12("a4",0x017C,0x017B)

+            or CheckDeadUni12("c2",0x017E,0x017D)

+            or CheckDeadUni12("c6",0x1E93,0x1E92)))

+    OutputChar("z","Z")

+  else if (Ebene = 3)

+    send ``{space} ; untot

+  else if (Ebene = 4)

+  {

+    DeadKey := PriorDeadKey

+    CompKey := PriorCompKey

+  } ; leer

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03B6) ;zeta

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2124)  ; Z (ganze Zahlen)

 return

 

 neo_b:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a4",0x1E03,0x1E02)))

-      OutputChar("b","B")

-   else if (Ebene = 3)

-      send {blind}{+}

-   else if (Ebene = 4)

-      send {blind}:

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03B2) ; beta

-   else if (Ebene = 6)

-      SendUnicodeChar(0x21D2) ; Doppel-Pfeil rechts

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a4",0x1E03,0x1E02)))

+    OutputChar("b","B")

+  else if (Ebene = 3)

+    send {blind}{+}

+  else if (Ebene = 4)

+    send {blind}:

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03B2) ; beta

+  else if (Ebene = 6)

+    SendUnicodeChar(0x21D2) ; Doppel-Pfeil rechts

 return

 

 neo_m:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("a4",0x1E41,0x1E40)

-                  or CheckDeadUni12("c6",0x1E43,0x1E42)

-                  or CheckCompUni12("t",0x2122,0x2122)        ; TM

-                  or CheckCompUni12("T",0x2122,0x2122)        ; TM

-                  or CheckCompUni12("s",0x2120,0x2120)        ; SM

-                  or CheckCompUni12("S",0x2120,0x2120)))      ; SM

-

-      OutputChar("m","M")

-   else if (Ebene = 3)

-      send {blind}`%

-   else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B9)

-                           or CheckDeadUni("c5",0x2081)))

-      Send {blind}{NumPad1}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03BC) ; griechisch mu, micro wäre 0x00B5

-   else if (Ebene = 6)

-      SendUnicodeChar(0x21D4) ; doppelter Doppelpfeil (genau dann wenn)

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("a4",0x1E41,0x1E40)

+            or CheckDeadUni12("c6",0x1E43,0x1E42)

+            or CheckCompUni12("t",0x2122,0x2122)      ; TM

+            or CheckCompUni12("T",0x2122,0x2122)      ; TM

+            or CheckCompUni12("s",0x2120,0x2120)      ; SM

+            or CheckCompUni12("S",0x2120,0x2120)))    ; SM

+

+    OutputChar("m","M")

+  else if (Ebene = 3)

+    send {blind}`%

+  else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B9)

+                  or CheckDeadUni("c5",0x2081)))

+    Send {blind}{NumPad1}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03BC) ; griechisch mu, micro wäre 0x00B5

+  else if (Ebene = 6)

+    SendUnicodeChar(0x21D4) ; doppelter Doppelpfeil (genau dann wenn)

 return

 

 neo_komma:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-      if (GetKeyState("CapsLock","T")) 

-         send {blind}{Shift down},{Shift up}

-      else

-         send {blind},

-   else if (Ebene = 2)

-       SendUnicodeChar(0x22EE) ;  vertikale ellipse 

-   else if (Ebene = 3)

-      send {blind}"

-   else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B2)

-                           or CheckDeadUni("c5",0x2082)))

-      Send {blind}{NumPad2}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03C1) ; rho

-   else if (Ebene = 6)

-      SendUnicodeChar(0x21D0) ; Doppelpfeil links

+  EbeneAktualisieren()

+  if (Ebene = 1)

+    if (GetKeyState("CapsLock","T"))

+      send {blind}{Shift down},{Shift up}

+    else

+      send {blind},

+  else if (Ebene = 2)

+     SendUnicodeChar(0x22EE) ;  vertikale ellipse

+  else if (Ebene = 3)

+    send {blind}"

+  else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B2)

+                  or CheckDeadUni("c5",0x2082)))

+    Send {blind}{NumPad2}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03C1) ; rho

+  else if (Ebene = 6)

+    SendUnicodeChar(0x21D0) ; Doppelpfeil links

 return

 

 neo_punkt:

-   EbeneAktualisieren()

-   if (Ebene = 1)

-      if (GetKeyState("CapsLock","T")) 

-         send {blind}{Shift down}.{Shift up}

-      else

-         send {blind}.

-   else if (Ebene = 2)

-      SendUnicodeChar(0x2026)  ; ellipse

-   else if (Ebene = 3)

-      send {blind}'

-   else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B3)

-                           or CheckDeadUni("c5",0x2083)))

-      Send {blind}{NumPad3}

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03D1) ; theta symbol (vartheta)

-   else if (Ebene = 6)

-      SendUnicodeChar(0x0398)  ; Theta

+  EbeneAktualisieren()

+  if (Ebene = 1)

+    if (GetKeyState("CapsLock","T"))

+      send {blind}{Shift down}.{Shift up}

+    else

+      send {blind}.

+  else if (Ebene = 2)

+    SendUnicodeChar(0x2026)  ; ellipse

+  else if (Ebene = 3)

+    send {blind}'

+  else if ((Ebene = 4) and !(CheckDeadUni("c1",0x00B3)

+                  or CheckDeadUni("c5",0x2083)))

+    Send {blind}{NumPad3}

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03D1) ; theta symbol (vartheta)

+  else if (Ebene = 6)

+    SendUnicodeChar(0x0398)  ; Theta

 return

 

 

 neo_j:

-   EbeneAktualisieren()

-   if (Ebene12 and !(CheckDeadUni12("c1",0x0135,0x0134)

-                  or CheckDeadUni12("c2",0x01F0,"")

-                  or CheckCompUni12("i",0x0133,"")          ; ij

-                  or CheckCompUni12("I","",0x0132)          ; IJ

-                  or CheckCompUni12("l",0x01C9,"")          ; lj

-                  or CheckCompUni12("L",0x01C8,0x01C7)      ; Lj/LJ

-                  or CheckCompUni12("n",0x01CC,"")          ; nj

-                  or CheckCompUni12("N",0x01CB,0x01CA)))    ; Nj/NJ

-      OutputChar("j","J")

-   else if (Ebene = 3)

-      send {blind}`;

-   else if (Ebene = 4)

-      Send {blind}`;

-   else if (Ebene = 5)

-      SendUnicodeChar(0x03B8) ; theta

-   else if (Ebene = 6)

-      SendUnicodeChar(0x2261) ; identisch

+  EbeneAktualisieren()

+  if (Ebene12 and !(CheckDeadUni12("c1",0x0135,0x0134)

+            or CheckDeadUni12("c2",0x01F0,"")

+            or CheckCompUni12("i",0x0133,"")       ; ij

+            or CheckCompUni12("I","",0x0132)       ; IJ

+            or CheckCompUni12("l",0x01C9,"")       ; lj

+            or CheckCompUni12("L",0x01C8,0x01C7)    ; Lj/LJ

+            or CheckCompUni12("n",0x01CC,"")       ; nj

+            or CheckCompUni12("N",0x01CB,0x01CA)))   ; Nj/NJ

+    OutputChar("j","J")

+  else if (Ebene = 3)

+    send {blind}`;

+  else if (Ebene = 4)

+    Send {blind}`;

+  else if (Ebene = 5)

+    SendUnicodeChar(0x03B8) ; theta

+  else if (Ebene = 6)

+    SendUnicodeChar(0x2261) ; identisch

 return

 

 /*

-   ------------------------------------------------------

-   Numpad

-   ------------------------------------------------------

 

-   folgende Tasten verhalten sich bei ein- und ausgeschaltetem

-   NumLock gleich:

+  Numpad

+

+

+  folgende Tasten verhalten sich bei ein- und ausgeschaltetem

+  NumLock gleich:

 */

 

 neo_NumpadDiv:

-   EbeneAktualisieren()

-   if ((Ebene = 1) or (Ebene = 2))

-      send {blind}{NumpadDiv}

-   else if (Ebene = 3)

-      send {blind}÷

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x2215)   ; slash

+  EbeneAktualisieren()

+  if ((Ebene = 1) or (Ebene = 2))

+    send {blind}{NumpadDiv}

+  else if (Ebene = 3)

+    send {blind}÷

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x2215)  ; slash

 return

 

 neo_NumpadMult:

-   EbeneAktualisieren()

-   if ((Ebene = 1) or (Ebene = 2))

-      send {blind}{NumpadMult}

-   else if (Ebene = 3)

-      send {blind}×

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x22C5)  ; cdot

+  EbeneAktualisieren()

+  if ((Ebene = 1) or (Ebene = 2))

+    send {blind}{NumpadMult}

+  else if (Ebene = 3)

+    send {blind}×

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x22C5)  ; cdot

 return

 

 neo_NumpadSub:

-   EbeneAktualisieren()

-   if (((Ebene = 1) or (Ebene = 2)) and !(CheckDeadUni("c1",0x207B)

-                                       or CheckDeadUni("c5",0x208B)))

-      send {blind}{NumpadSub}

-   else if (Ebene = 3)

-      SendUnicodeChar(0x2212) ; echtes minus

+  EbeneAktualisieren()

+  if (((Ebene = 1) or (Ebene = 2)) and !(CheckDeadUni("c1",0x207B)

+                          or CheckDeadUni("c5",0x208B)))

+    send {blind}{NumpadSub}

+  else if (Ebene = 3)

+    SendUnicodeChar(0x2212) ; echtes minus

 return

 

 neo_NumpadAdd:

-   EbeneAktualisieren()

-   if (((Ebene = 1) or (Ebene = 2)) and !(CheckDeadUni("c1",0x207A)

-                                       or CheckDeadUni("c5",0x208A)))

-      send {blind}{NumpadAdd}

-   else if (Ebene = 3)

-      send {blind}±

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x2213)   ; -+

+  EbeneAktualisieren()

+  if (((Ebene = 1) or (Ebene = 2)) and !(CheckDeadUni("c1",0x207A)

+                          or CheckDeadUni("c5",0x208A)))

+    send {blind}{NumpadAdd}

+  else if (Ebene = 3)

+    send {blind}±

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x2213)  ; -+

 return

 

 neo_NumpadEnter:

-   EbeneAktualisieren()

-   if ((Ebene = 1) or (Ebene = 2))

-      send {blind}{NumpadEnter}      

-   else if (Ebene = 3)

-      SendUnicodeChar(0x2260) ; neq

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x2248) ; approx

+  EbeneAktualisieren()

+  if ((Ebene = 1) or (Ebene = 2))

+    send {blind}{NumpadEnter}

+  else if (Ebene = 3)

+    SendUnicodeChar(0x2260) ; neq

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x2248) ; approx

 return

 

 /*

-   folgende Tasten verhalten sich bei ein- und ausgeschaltetem NumLock

-   unterschiedlich

+  folgende Tasten verhalten sich bei ein- und ausgeschaltetem NumLock

+  unterschiedlich

 */

 

 

 

 neo_Numpad7:

-   EbeneAktualisieren()

-   if      ((Ebene = 1) and (NumLock = 0))

-      send {blind}{NumpadHome}

-   else if ((Ebene = 2) and (NumLock = 1))

-      send {blind}{Shift up}{NumpadHome}{Shift down}

-   else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

-   {

-      if (Ebene = 1)

-         send {blind}{Numpad7}

-      else

-         send {blind){Shift up}{Numpad7}{Shift down}

-

-      if (PriorDeadKey = "comp")

-         CompKey := "Num_7"

-   }

-   else if (Ebene = 3)

-      SendUnicodeChar(0x2195)   ; Hoch-Runter-Pfeil

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x226A)  ; ll

+  EbeneAktualisieren()

+  if    ((Ebene = 1) and (NumLock = 0))

+    send {blind}{NumpadHome}

+  else if ((Ebene = 2) and (NumLock = 1))

+    send {blind}{Shift up}{NumpadHome}{Shift down}

+  else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

+  {

+    if (Ebene = 1)

+      send {blind}{Numpad7}

+    else

+      send {blind){Shift up}{Numpad7}{Shift down}

+

+    if (PriorDeadKey = "comp")

+      CompKey := "Num_7"

+  }

+  else if (Ebene = 3)

+    SendUnicodeChar(0x2195)  ; Hoch-Runter-Pfeil

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x226A)  ; ll

 return

 

 neo_Numpad8:

-   EbeneAktualisieren()

-   if      ((Ebene = 1) and (NumLock = 0))

-      send {blind}{NumpadUp}

-   else if ((Ebene = 2) and (NumLock = 1))

-      send {blind}{Shift up}{NumpadUp}{Shift down}

-   else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

-   {

-      if !(CheckCompUni("Num_1",0x215B) ; 1/8

-        or CheckCompUni("1",0x215B)     ; 1/8

-        or CheckCompUni("Num_3",0x215C) ; 3/8

-        or CheckCompUni("3",0x215C)     ; 3/8

-        or CheckCompUni("Num_5",0x215D) ; 3/8

-        or CheckCompUni("5",0x215D)     ; 5/8

-        or CheckCompUni("Num_7",0x215E) ; 7/8

-        or CheckCompUni("7",0x215E))    ; 7/8

-         if (Ebene = 1)

-            send {blind}{Numpad8}

-         else

-            send {blind){Shift up}{Numpad8}{Shift down}

+  EbeneAktualisieren()

+  if    ((Ebene = 1) and (NumLock = 0))

+    send {blind}{NumpadUp}

+  else if ((Ebene = 2) and (NumLock = 1))

+    send {blind}{Shift up}{NumpadUp}{Shift down}

+  else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

+  {

+    if !(CheckCompUni("Num_1",0x215B) ; 1/8

+      or CheckCompUni("1",0x215B)    ; 1/8

+      or CheckCompUni("Num_3",0x215C) ; 3/8

+      or CheckCompUni("3",0x215C)    ; 3/8

+      or CheckCompUni("Num_5",0x215D) ; 3/8

+      or CheckCompUni("5",0x215D)    ; 5/8

+      or CheckCompUni("Num_7",0x215E) ; 7/8

+      or CheckCompUni("7",0x215E))   ; 7/8

+      if (Ebene = 1)

+        send {blind}{Numpad8}

+      else

+        send {blind){Shift up}{Numpad8}{Shift down}

 

-      if (PriorDeadKey = "comp")

-         CompKey := "Num_8"

-   }

-   else if (Ebene = 3)

-      SendUnicodeChar(0x2191)     ; uparrow

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x2229)    ; intersection

+    if (PriorDeadKey = "comp")

+      CompKey := "Num_8"

+  }

+  else if (Ebene = 3)

+    SendUnicodeChar(0x2191)    ; uparrow

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x2229)   ; intersection

 return

 

 neo_Numpad9:

-   EbeneAktualisieren()

-   if      ((Ebene = 1) and (NumLock = 0))

-      send {blind}{NumpadPgUp}

-   else if ((Ebene = 2) and (NumLock = 1))

-      send {blind}{Shift up}{NumpadPgUp}{Shift down}

-   else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

-   {

-      if (Ebene = 1)

-         send {blind}{Numpad9}

-      else

-         send {blind){Shift up}{Numpad9}{Shift down}

+  EbeneAktualisieren()

+  if    ((Ebene = 1) and (NumLock = 0))

+    send {blind}{NumpadPgUp}

+  else if ((Ebene = 2) and (NumLock = 1))

+    send {blind}{Shift up}{NumpadPgUp}{Shift down}

+  else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

+  {

+    if (Ebene = 1)

+      send {blind}{Numpad9}

+    else

+      send {blind){Shift up}{Numpad9}{Shift down}

 

-      if (PriorDeadKey = "comp")

-         CompKey := "Num_9"

-   }

-   else if (Ebene = 3)

-      SendUnicodeChar(0x2297) ; Tensorprodukt ; Vektor in die Ebene zeigend 

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x226B)  ; gg

+    if (PriorDeadKey = "comp")

+      CompKey := "Num_9"

+  }

+  else if (Ebene = 3)

+    SendUnicodeChar(0x2297) ; Tensorprodukt ; Vektor in die Ebene zeigend

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x226B)  ; gg

 return

 

 

 

 neo_Numpad4:

-   EbeneAktualisieren()

-   if      ((Ebene = 1) and (NumLock = 0))

-      send {blind}{NumpadLeft}

-   else if ((Ebene = 2) and (NumLock = 1))

-      send {blind}{Shift up}{NumpadLeft}{Shift down}

-   else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

-   {

-      if !(CheckCompUni("Num_1",0x00BC) ; 1/4

-        or CheckCompUni("1",0x00BE)     ; 1/4

-        or CheckCompUni("Num_3",0x00BE) ; 3/4

-        or CheckCompUni("3",0x00BE))    ; 3/4

-         if (Ebene = 1)

-            send {blind}{Numpad4}

-         else

-            send {blind){Shift up}{Numpad4}{Shift down}

+  EbeneAktualisieren()

+  if    ((Ebene = 1) and (NumLock = 0))

+    send {blind}{NumpadLeft}

+  else if ((Ebene = 2) and (NumLock = 1))

+    send {blind}{Shift up}{NumpadLeft}{Shift down}

+  else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

+  {

+    if !(CheckCompUni("Num_1",0x00BC) ; 1/4

+      or CheckCompUni("1",0x00BE)    ; 1/4

+      or CheckCompUni("Num_3",0x00BE) ; 3/4

+      or CheckCompUni("3",0x00BE))   ; 3/4

+      if (Ebene = 1)

+        send {blind}{Numpad4}

+      else

+        send {blind){Shift up}{Numpad4}{Shift down}

 

-      if (PriorDeadKey = "comp")

-         CompKey := "Num_4"

-   }

-   else if (Ebene = 3)

-      SendUnicodeChar(0x2190)     ; leftarrow

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x2282)  ; subset of

+    if (PriorDeadKey = "comp")

+      CompKey := "Num_4"

+  }

+  else if (Ebene = 3)

+    SendUnicodeChar(0x2190)    ; leftarrow

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x2282)  ; subset of

 return

 

 neo_Numpad5:

-   EbeneAktualisieren()

-   if      ((Ebene = 1) and (NumLock = 0))

-      send {blind}{NumpadClear}

-   else if ((Ebene = 2) and (NumLock = 1))

-      send {blind}{Shift up}{NumpadClear}{Shift down}

-   else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

-   {

-      if !(CheckCompUni("Num_1",0x2155) ; 1/5

-        or CheckCompUni("1",0x2155)     ; 1/5

-        or CheckCompUni("Num_2",0x2156) ; 2/5

-        or CheckCompUni("2",0x2156)     ; 2/5

-        or CheckCompUni("Num_3",0x2157) ; 3/5

-        or CheckCompUni("3",0x2157)     ; 3/5

-        or CheckCompUni("Num_4",0x2158) ; 4/5

-        or CheckCompUni("4",0x2158))    ; 4/5

-         if (Ebene = 1)

-            send {blind}{Numpad5}

-         else

-            send {blind){Shift up}{Numpad5}{Shift down}

+  EbeneAktualisieren()

+  if    ((Ebene = 1) and (NumLock = 0))

+    send {blind}{NumpadClear}

+  else if ((Ebene = 2) and (NumLock = 1))

+    send {blind}{Shift up}{NumpadClear}{Shift down}

+  else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

+  {

+    if !(CheckCompUni("Num_1",0x2155) ; 1/5

+      or CheckCompUni("1",0x2155)    ; 1/5

+      or CheckCompUni("Num_2",0x2156) ; 2/5

+      or CheckCompUni("2",0x2156)    ; 2/5

+      or CheckCompUni("Num_3",0x2157) ; 3/5

+      or CheckCompUni("3",0x2157)    ; 3/5

+      or CheckCompUni("Num_4",0x2158) ; 4/5

+      or CheckCompUni("4",0x2158))   ; 4/5

+      if (Ebene = 1)

+        send {blind}{Numpad5}

+      else

+        send {blind){Shift up}{Numpad5}{Shift down}

 

-      if (PriorDeadKey = "comp")

-         CompKey := "Num_5"

-   }

-   else if (Ebene = 3)

-      SendUnicodeChar(0x221E) ; INFINITY

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x220B) ; enthält das Element

+    if (PriorDeadKey = "comp")

+      CompKey := "Num_5"

+  }

+  else if (Ebene = 3)

+    SendUnicodeChar(0x221E) ; INFINITY

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x220B) ; enthält das Element

 return

 

 neo_Numpad6:

-   EbeneAktualisieren()

-   if      ((Ebene = 1) and (NumLock = 0))

-      send {blind}{NumpadRight}

-   else if ((Ebene = 2) and (NumLock = 1))

-      send {blind}{Shift up}{NumpadRight}{Shift down}

-   else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

-   {

-      if !(CheckCompUni("Num_1",0x2159) ; 1/6

-        or CheckCompUni("1",0x2159)     ; 1/6

-        or CheckCompUni("Num_5",0x215A) ; 5/6

-        or CheckCompUni("5",0x215A))    ; 5/6

-         if (Ebene = 1)

-            send {blind}{Numpad6}

-         else

-            send {blind){Shift up}{Numpad6}{Shift down}

+  EbeneAktualisieren()

+  if    ((Ebene = 1) and (NumLock = 0))

+    send {blind}{NumpadRight}

+  else if ((Ebene = 2) and (NumLock = 1))

+    send {blind}{Shift up}{NumpadRight}{Shift down}

+  else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

+  {

+    if !(CheckCompUni("Num_1",0x2159) ; 1/6

+      or CheckCompUni("1",0x2159)    ; 1/6

+      or CheckCompUni("Num_5",0x215A) ; 5/6

+      or CheckCompUni("5",0x215A))   ; 5/6

+      if (Ebene = 1)

+        send {blind}{Numpad6}

+      else

+        send {blind){Shift up}{Numpad6}{Shift down}

 

-      if (PriorDeadKey = "comp")

-         CompKey := "Num_6"

-   }

-   else if (Ebene = 3)

-      SendUnicodeChar(0x2192)     ; rightarrow

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x2283) ; superset of

+    if (PriorDeadKey = "comp")

+      CompKey := "Num_6"

+  }

+  else if (Ebene = 3)

+    SendUnicodeChar(0x2192)    ; rightarrow

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x2283) ; superset of

 return

 

 neo_Numpad1:

-   EbeneAktualisieren()

-   if      ((Ebene = 1) and (NumLock = 0))

-      send {blind}{NumpadEnd}

-   else if ((Ebene = 2) and (NumLock = 1))

-      send {blind}{Shift up}{NumpadEnd}{Shift down}

-   else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

-   {

-      if (Ebene = 1)

-         send {blind}{Numpad1}

-      else

-         send {blind){Shift up}{Numpad1}{Shift down}

-

-      if (PriorDeadKey = "comp")

-         CompKey := "Num_1"

-   }

-   else if (Ebene = 3)

-      SendUnicodeChar(0x2194) ; Links-Rechts-Pfeil

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x2264)   ; leq

+  EbeneAktualisieren()

+  if    ((Ebene = 1) and (NumLock = 0))

+    send {blind}{NumpadEnd}

+  else if ((Ebene = 2) and (NumLock = 1))

+    send {blind}{Shift up}{NumpadEnd}{Shift down}

+  else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

+  {

+    if (Ebene = 1)

+      send {blind}{Numpad1}

+    else

+      send {blind){Shift up}{Numpad1}{Shift down}

+

+    if (PriorDeadKey = "comp")

+      CompKey := "Num_1"

+  }

+  else if (Ebene = 3)

+    SendUnicodeChar(0x2194) ; Links-Rechts-Pfeil

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x2264)  ; leq

 return

 

 neo_Numpad2:

-   EbeneAktualisieren()

-   if      ((Ebene = 1) and (NumLock = 0))

-      send {blind}{NumpadDown}

-   else if ((Ebene = 2) and (NumLock = 1))

-      send {blind}{Shift up}{NumpadDown}{Shift down}

-   else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

-   {

-      if !(CheckCompUni("Num_1",0x00BD) ; 1/2

-        or CheckCompUni("1",0x00BD))    ; 1/2

-         if (Ebene = 1)

-            send {blind}{Numpad2}

-         else

-            send {blind){Shift up}{Numpad2}{Shift down}

+  EbeneAktualisieren()

+  if    ((Ebene = 1) and (NumLock = 0))

+    send {blind}{NumpadDown}

+  else if ((Ebene = 2) and (NumLock = 1))

+    send {blind}{Shift up}{NumpadDown}{Shift down}

+  else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

+  {

+    if !(CheckCompUni("Num_1",0x00BD) ; 1/2

+      or CheckCompUni("1",0x00BD))   ; 1/2

+      if (Ebene = 1)

+        send {blind}{Numpad2}

+      else

+        send {blind){Shift up}{Numpad2}{Shift down}

 

-      if (PriorDeadKey = "comp")

-         CompKey := "Num_2"

-   }

-   else if (Ebene = 3)

-      SendUnicodeChar(0x2193)     ; downarrow

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x222A)  ; vereinigt

+    if (PriorDeadKey = "comp")

+      CompKey := "Num_2"

+  }

+  else if (Ebene = 3)

+    SendUnicodeChar(0x2193)    ; downarrow

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x222A)  ; vereinigt

 return

 

 neo_Numpad3:

-   EbeneAktualisieren()

-   if      ((Ebene = 1) and (NumLock = 0))

-      send {blind}{NumpadPgDn}

-   else if ((Ebene = 2) and (NumLock = 1))

-      send {blind}{Shift up}{NumpadPgDn}{Shift down}

-   else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

-   {

-      if !(CheckCompUni("Num_1",0x2153) ; 1/3

-        or CheckCompUni("1",0x2154)     ; 1/3

-        or CheckCompUni("Num_2",0x2154) ; 2/3

-        or CheckCompUni("2",0x2154))    ; 2/3

-         if (Ebene = 1)

-            send {blind}{Numpad3}

-         else

-            send {blind){Shift up}{Numpad3}{Shift down}

+  EbeneAktualisieren()

+  if    ((Ebene = 1) and (NumLock = 0))

+    send {blind}{NumpadPgDn}

+  else if ((Ebene = 2) and (NumLock = 1))

+    send {blind}{Shift up}{NumpadPgDn}{Shift down}

+  else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

+  {

+    if !(CheckCompUni("Num_1",0x2153) ; 1/3

+      or CheckCompUni("1",0x2154)    ; 1/3

+      or CheckCompUni("Num_2",0x2154) ; 2/3

+      or CheckCompUni("2",0x2154))   ; 2/3

+      if (Ebene = 1)

+        send {blind}{Numpad3}

+      else

+        send {blind){Shift up}{Numpad3}{Shift down}

 

-      if (PriorDeadKey = "comp")

-         CompKey := "Num_3"

-   }

-   else if (Ebene = 3)

-      SendUnicodeChar(0x21CC) ; RIGHTWARDS HARPOON OVER LEFTWARDS HARPOON

-   else if ((Ebene = 4) or (Ebene = 5))

-      SendUnicodeChar(0x2265)  ; geq

+    if (PriorDeadKey = "comp")

+      CompKey := "Num_3"

+  }

+  else if (Ebene = 3)

+    SendUnicodeChar(0x21CC) ; RIGHTWARDS HARPOON OVER LEFTWARDS HARPOON

+  else if ((Ebene = 4) or (Ebene = 5))

+    SendUnicodeChar(0x2265)  ; geq

 return

 

 neo_Numpad0:

-   EbeneAktualisieren()

-   if      ((Ebene = 1) and (NumLock = 0))

-      send {blind}{NumpadIns}

-   else if ((Ebene = 2) and (NumLock = 1))

-      send {blind}{Shift up}{NumpadIns}{Shift down}

-   else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

-   {

-      if (Ebene = 1)

-         send {blind}{Numpad0}

-      else

-         send {blind){Shift up}{Numpad0}{Shift down}

-

-      if (PriorDeadKey = "comp")

-         CompKey := "Num_0"

-   }

-   else if (Ebene = 3)

-      send {blind}`%

-   else if ((Ebene = 4) or (Ebene = 5))

-      send ‰ 

+  EbeneAktualisieren()

+  if    ((Ebene = 1) and (NumLock = 0))

+    send {blind}{NumpadIns}

+  else if ((Ebene = 2) and (NumLock = 1))

+    send {blind}{Shift up}{NumpadIns}{Shift down}

+  else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

+  {

+    if (Ebene = 1)

+      send {blind}{Numpad0}

+    else

+      send {blind){Shift up}{Numpad0}{Shift down}

+

+    if (PriorDeadKey = "comp")

+      CompKey := "Num_0"

+  }

+  else if (Ebene = 3)

+    send {blind}`%

+  else if ((Ebene = 4) or (Ebene = 5))

+    send ‰

 return

 

 neo_NumpadDot:

-   EbeneAktualisieren()

-   if      ((Ebene = 1) and (NumLock = 0))

-      send {blind}{NumpadDel}

-   else if ((Ebene = 2) and (NumLock = 1))

-      send {blind}{Shift up}{NumpadDel}{Shift down}

-   else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

-      if (Ebene = 1)

-         send {blind}{NumpadDot}

-      else

-         send {blind){Shift up}{NumpadDot}{Shift down}

-   else if (Ebene = 3)

-      send {blind}.

-   else if ((Ebene = 4) or (Ebene = 5))

-      send `,

+  EbeneAktualisieren()

+  if    ((Ebene = 1) and (NumLock = 0))

+    send {blind}{NumpadDel}

+  else if ((Ebene = 2) and (NumLock = 1))

+    send {blind}{Shift up}{NumpadDel}{Shift down}

+  else if (((Ebene = 1) and (NumLock = 1)) or ((Ebene = 2) and (NumLock = 0)))

+    if (Ebene = 1)

+      send {blind}{NumpadDot}

+    else

+      send {blind){Shift up}{NumpadDot}{Shift down}

+  else if (Ebene = 3)

+    send {blind}.

+  else if ((Ebene = 4) or (Ebene = 5))

+    send `,

 return

 

 

 /*

-   ------------------------------------------------------

-   Sondertasten

-   ------------------------------------------------------

+

+  Sondertasten

+

 */

 *space::

-   if ((einHandNeo))

-    spacepressed := 1

-   else

-    goto neo_SpaceUp

+  if ((einHandNeo))

+   spacepressed := 1

+  else

+   goto neo_SpaceUp

 return

 

 *space up::

-   if ((einHandNeo))

-   {

-     if ((keypressed))

-     {

-       keypressed := 0

-       spacepressed := 0    

-     }

-     else

-     {

-        goto neo_SpaceUp

-     }

-   }

-   else

-     { } ;do nothing

-return 

+  if ((einHandNeo))

+  {

+    if ((keypressed))

+    {

+     keypressed := 0

+     spacepressed := 0

+    }

+    else

+    {

+      goto neo_SpaceUp

+    }

+  }

+  else

+    { } ;do nothing

+return

 

 neo_SpaceUp:

-     EbeneAktualisieren()

-     if      ((Ebene = 1) and !(CheckComp3Uni("r_1",0x2170)          ; römisch i

-                             or CheckComp3Uni("R_1",0x2160)))      ; römisch I 

-        Send {blind}{Space}

-     else if  ((Ebene = 2) or (Ebene = 3))

-        Send {blind}{Space}

-     else if (Ebene = 4)

-        if (PriorDeadKey = "c1")            ; circumflex

-           BSSendUnicodeChar(0x2070)

-        else if (PriorDeadKey = "c5")       ; toter -

-           BSSendUnicodeChar(0x2080)

-        else

-           Send {blind}{NumPad0}

-     else if (Ebene = 5)

-        SendUnicodeChar(0x00A0)   ; geschütztes Leerzeichen

-     else if (Ebene = 6)

-        SendUnicodeChar(0x202F) ; schmales Leerzeichen

-     DeadKey := ""   CompKey := ""

-  spacepressed := 0     

-  keypressed := 0       

+    EbeneAktualisieren()

+    if ((Ebene = 1) and !(CheckComp3Uni("r_1",0x2170)       ; römisch i

+                    or CheckComp3Uni("R_1",0x2160)))    ; römisch I

+      Send {blind}{Space}

+    else if  ((Ebene = 2) or (Ebene = 3))

+      Send {blind}{Space}

+    else if (Ebene = 4 and !(CheckDeadUni("c1",0x2070)

+                       or CheckDeadUni("c5",0x2080)))

+      Send {blind}{NumPad0}

+    else if (Ebene = 5)

+      SendUnicodeChar(0x00A0)  ; geschütztes Leerzeichen

+    else if (Ebene = 6)

+      SendUnicodeChar(0x202F) ; schmales Leerzeichen

+    DeadKey := ""  CompKey := ""

+  spacepressed := 0

+  keypressed := 0

 return

 

 /*

-   Folgende Tasten sind nur aufgeführt, um PriorDeadKey zu leeren.

-   Irgendwie sieht das noch nicht schön aus. Vielleicht lässt sich dieses

-   Problem irgendwie eleganter lösen...

-   

-   Nachtrag:

-   Weil es mit Alt+Tab Probleme gab, wird hier jetzt erstmal rumgeflickschustert,

-   bis eine allgemeinere Lösung gefunden wurde.

+  Folgende Tasten sind nur aufgeführt, um PriorDeadKey zu leeren.

+  Irgendwie sieht das noch nicht schön aus. Vielleicht lässt sich dieses

+  Problem irgendwie eleganter lösen...

+

+  Nachtrag:

+  Weil es mit Alt+Tab Probleme gab, wird hier jetzt erstmal rumgeflickschustert,

+  bis eine allgemeinere Lösung gefunden wurde.

 */

 

 *Enter::

-   if (not(lernModus) or lernModus_std_Return)

-   {

-     send {Blind}{Enter}

-     DeadKey := ""   CompKey := ""

-   }

+  if (not(lernModus) or lernModus_std_Return)

+  {

+    send {Blind}{Enter}

+    DeadKey := ""  CompKey := ""

+  }

 return

 

 *Backspace::

-   if (not(lernModus) or lernModus_std_Backspace)

-   {

-     send {Blind}{Backspace}

-     DeadKey := ""   CompKey := ""

-   }

+  if (not(lernModus) or lernModus_std_Backspace)

+  {

+    send {Blind}{Backspace}

+    DeadKey := ""  CompKey := ""

+  }

 return

 

 *Del::

-   if (not(lernModus) or lernModus_std_Entf)

-     send {Blind}{Del}

+  if (not(lernModus) or lernModus_std_Entf)

+    send {Blind}{Del}

 return

 

 *Ins::

-   if (not(lernModus) or lernModus_std_Einf)

-     send {Blind}{Ins}

+  if (not(lernModus) or lernModus_std_Einf)

+    send {Blind}{Ins}

 return

 

 

-

-

-

 /*

 Auf Mod3+Tab liegt Compose.

 */

 

 neo_tab:

-   if (IsMod3Pressed()) ;#

-   {

-      #Include *i %a_scriptdir%\ComposeLaunch.ahk

-      #Include *i %a_scriptdir%\Source\ComposeLaunch.ahk

-      DeadKey := "comp"

-      CompKey := ""

-   }

-   else

-   {

-      send {blind}{Tab}

-      DeadKey := ""

-      CompKey := ""

-   }

+  if (IsMod3Pressed()) ;#

+  {

+    DeadKey := "comp"

+    CompKey := ""

+  }

+  else

+  {

+    send {blind}{Tab}

+    DeadKey := ""

+    CompKey := ""

+  }

 return

 

 *Home::

-   if (not(lernModus) or lernModus_std_Pos1)

-   {

-     send {Blind}{Home}

-     DeadKey := ""   CompKey := ""

-   }

+  if (not(lernModus) or lernModus_std_Pos1)

+  {

+    send {Blind}{Home}

+    DeadKey := ""  CompKey := ""

+  }

 return

 

 *End::

-   if (not(lernModus) or lernModus_std_Ende)

-   {

-     send {Blind}{End}

-     DeadKey := ""   CompKey := ""

-   }

+  if (not(lernModus) or lernModus_std_Ende)

+  {

+    send {Blind}{End}

+    DeadKey := ""  CompKey := ""

+  }

 return

 

 *PgUp::

-   if (not(lernModus) or lernModus_std_PgUp)

-   {

-     send {Blind}{PgUp}

-     DeadKey := ""   CompKey := ""

-   }

+  if (not(lernModus) or lernModus_std_PgUp)

+  {

+    send {Blind}{PgUp}

+    DeadKey := ""  CompKey := ""

+  }

 return

 

 *PgDn::

-   if (not(lernModus) or lernModus_std_PgDn)

-   {

-     send {Blind}{PgDn}

-     DeadKey := ""   CompKey := ""

-   }

+  if (not(lernModus) or lernModus_std_PgDn)

+  {

+    send {Blind}{PgDn}

+    DeadKey := ""  CompKey := ""

+  }

 return

 

 *Up::

-   if (not(lernModus) or lernModus_std_Hoch)

-   {

-     send {Blind}{Up}

-     DeadKey := ""   CompKey := ""

-   }

+  if (not(lernModus) or lernModus_std_Hoch)

+  {

+    send {Blind}{Up}

+    DeadKey := ""  CompKey := ""

+  }

 return

 

 *Down::

-   if (not(lernModus) or lernModus_std_Runter)

-   {

-     send {Blind}{Down}

-     DeadKey := ""   CompKey := ""

-   }

+  if (not(lernModus) or lernModus_std_Runter)

+  {

+    send {Blind}{Down}

+    DeadKey := ""  CompKey := ""

+  }

 return

 

 *Left::

-   if (not(lernModus) or lernModus_std_Links)

-   {

-     send {Blind}{Left}

-     DeadKey := ""   CompKey := ""

-   }

+  if (not(lernModus) or lernModus_std_Links)

+  {

+    send {Blind}{Left}

+    DeadKey := ""  CompKey := ""

+  }

 return

 

 *Right::

-   if (not(lernModus) or lernModus_std_Rechts)

-   {

-     send {Blind}{Right}

-     DeadKey := ""   CompKey := ""

-   }

+  if (not(lernModus) or lernModus_std_Rechts)

+  {

+    send {Blind}{Right}

+    DeadKey := ""  CompKey := ""

+  }

 return

 

 

diff --git a/windows/autohotkey/Source/Methods-Layers.ahk b/windows/autohotkey/Source/Methods-Layers.ahk
index 40a0bbc..4c4de7f 100644
--- a/windows/autohotkey/Source/Methods-Layers.ahk
+++ b/windows/autohotkey/Source/Methods-Layers.ahk
@@ -22,7 +22,7 @@ VKA0SC02A & VKA1SC136:: ; LShift, dann RShift
 ; *VKA1SC136::

 ; *VKA0SC02A::

    if (GetKeyState("VKA1SC136", "P") and GetKeyState("VKA0SC02A", "P"))

-      send {blind}{capslock}

+      send {blind}{CapsLock}

 return

 

 

diff --git a/windows/autohotkey/Source/Methods-Other.ahk b/windows/autohotkey/Source/Methods-Other.ahk
index 86983c6..e80d2e4 100644
--- a/windows/autohotkey/Source/Methods-Other.ahk
+++ b/windows/autohotkey/Source/Methods-Other.ahk
@@ -1,7 +1,5 @@
 /*

-   ------------------------------------------------------

-   Funktionen

-   ------------------------------------------------------

+  Funktionen

 */

 

 /*

@@ -19,6 +17,8 @@ EbeneAktualisieren()
    DeadKey := ""

    CompKey := ""

    Ebene12 := 0

+   Ebene7 := 0

+   Ebene8 := 0

    Modstate := IsShiftPressed() . IsMod3Pressed() . IsMod4Pressed()

 

    if (ahkTreiberKombi)

@@ -40,9 +40,15 @@ EbeneAktualisieren()
      else if (Modstate = "011")

          Ebene = 6                 ; Ebene 6: Mod3+Mod4

      else if (Modstate = "101")

+     {

          Ebene = 4                 ; Ebene 7: Shift+Mod4 impliziert Ebene 4

+         Ebene7 = 1

+     }

      else if (Modstate = "111")

+     {

          Ebene = 6                 ; Ebene 8: Shift+Mod3+Mod4 impliziert Ebene 6

+         Ebene8 = 1

+     }

 

    Ebene12 := ((Ebene = 1) or (Ebene = 2))

 

@@ -53,7 +59,6 @@ EbeneAktualisieren()
 }

 

 

-

 IsShiftPressed()

 {

   return GetKeyState("Shift","P")

@@ -149,8 +154,6 @@ EncodeInteger(ref, val)
    DllCall("ntdll\RtlFillMemoryUlong", "Uint", ref, "Uint", 4, "Uint", val)

 }

 

-DeadSilence = 0

-

 deadAsc(val)

 {

   global

@@ -256,8 +259,6 @@ CheckDeadUni12(d,val1,val2)
     return 0

 }

 

-DeadCompose = 0

-

 compAsc(val)

 {

   global

@@ -417,28 +418,4 @@ outputChar(val1,val2)
     CompKey := c

 }

 

-;Tote/Untote Tasten

-*F9::

-  if (isMod4pressed())

-    DeadSilence :=  not(DeadSilence)

-  else

-    send {blind}{F9}

-return

-

-;Tote/Untote Compose

-*F10::

-  if (isMod4pressed())

-    DeadCompose :=  not(DeadCompose)

-  else

-    send {blind}{F10}

-return

-

-;Lang-s-Tastatur:

-*F11::

-  if (isMod4pressed())

-    LangSTastatur := not(LangSTastatur) ; schaltet die Lang-s-Tastatur ein und aus

-  else

-    send {blind}{F11}

-return

-

 

diff --git a/windows/autohotkey/Source/Warning.ahk b/windows/autohotkey/Source/Warning.ahk
index 6401006..6148298 100644
--- a/windows/autohotkey/Source/Warning.ahk
+++ b/windows/autohotkey/Source/Warning.ahk
@@ -31,7 +31,7 @@ in der Datei README.txt!
 /*

 *******************************************

 Das war die letzte WARNUNG, ich hoffe nur dass

-sie wirklich wissen was sie hier tun wollen ...

+Sie wirklich wissen was Sie hier tun wollen ...

 *******************************************

 */