From 8af9a203a7393662c0c1a211626fde5ba21508b8 Mon Sep 17 00:00:00 2001
From: ben <ben@b9310e46-f624-0410-8ea1-cfbb3a30dc96>
Date: Thu, 10 Jan 2008 20:35:13 +0000
Subject: patch von Stefan Mayer zum ahk

git-svn-id: https://svn.neo-layout.org@322 b9310e46-f624-0410-8ea1-cfbb3a30dc96
---
 windows/XP/autohotkey/neo20-all-in-one.ahk | 4218 ++++++++++++++--------------
 windows/XP/autohotkey/neo20-all-in-one.exe |  Bin 0 -> 220493 bytes
 windows/XP/autohotkey/neo20-all-in-one.zip |  Bin 214826 -> 0 bytes
 3 files changed, 2135 insertions(+), 2083 deletions(-)
 create mode 100644 windows/XP/autohotkey/neo20-all-in-one.exe
 delete mode 100644 windows/XP/autohotkey/neo20-all-in-one.zip

(limited to 'windows')

diff --git a/windows/XP/autohotkey/neo20-all-in-one.ahk b/windows/XP/autohotkey/neo20-all-in-one.ahk
index 4155e4a..783c35b 100644
--- a/windows/XP/autohotkey/neo20-all-in-one.ahk
+++ b/windows/XP/autohotkey/neo20-all-in-one.ahk
@@ -1,2083 +1,2135 @@
-/*
-    Titel:        NEO 2.0 beta Autohotkey-Treiber
-    Version:      0.08 beta
-    Datum:        29.06.2007
-    Basiert auf:  neo20.ahk und neo20-remap.ahk vom 25.05.2007
-    
-    TODO:         - ausgiebig testen...
-                  - Men� des Tasksymbols
-                  - Bessere L�sung f�r das leeren von PriorDeadKey finden, damit die Sondertasten
-                    nicht mehr abgefangen werden m�ssen.
-                  - CapsLock auf 1. und 2. Ebene einbauen:
-                    Die Buchstaben reagieren richtig auf CapsLock, da hier "sendinput {blind}"
-                    verwendet wird. Bei anderen Tasten muss CapsLock in der ersten und zweiten Ebene
-                    explizit abgefragt werden.
-                    (L�sst sich das elegant in eine Funktion auslagern?)
-    Ideen:        - DeadKeys tot machen
-                  - Symbol �ndern (Neo-Logo abwarten)
-                  - bei Ebene 5 rechte Hand (Numpad) z.B. Numpad5 statt 5 senden
-*/
-
-; aus Nora's script kopiert:
-#usehook on
-#singleinstance force
-#LTrim 
-  ; Quelltext kann einger�ckt werden, 
-  ; msgbox ist trotzdem linksb�ndig
-
-SendMode Input
-SetTitleMatchMode 2
-
-;name    = NEO 2.0
-;enable  = Aktiviere %name%
-;disable = Deaktiviere %name%
-
-; �berpr�fung auf deutsches Tastaturlayout 
-; ----------------------------------------
-
-regread, inputlocale, HKEY_CURRENT_USER, Keyboard Layout\Preload, 1
-regread, inputlocalealias, HKEY_CURRENT_USER
-     , Keyboard Layout\Substitutes, %inputlocale%
-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
-}
-
-/*
-   Variablen initialisieren
-*/
-
-Ebene = 1
-PriorDeadKey := ""
-
-
-/*
-   ------------------------------------------------------
-   Modifier
-   ------------------------------------------------------
-*/
-
-; CapsLock durch Mod3+Mod3
-*#::
-*CapsLock::
-   if GetKeyState("#","P") and GetKeyState("CapsLock","P")
-   {
-      if GetKeyState("CapsLock","T")
-      {
-         setcapslockstate, off
-      }
-      else
-      {
-         setcapslockstate, on
-      }
-   }
-return
-
-; KP_Decimal durch Mod5+Mod5
-*<::
-*SC138::
-   if GetKeyState("<","P") and GetKeyState("SC138","P")
-   {
-      send {numpaddot}
-   }
-   return
-
-
-/*
-   Ablauf bei toten Tasten:
-   1. Ebene Aktualisieren
-   2. Abh�ngig von der Variablen "Ebene" Zeichen ausgeben und die Variable "PriorDeadKey" setzen
-   
-   Ablauf bei "lebenden" (sagt man das?) Tasten:
-   1. Ebene Aktualisieren
-   2. Abh�ngig von den Variablen "Ebene" und "PriorDeadKey" Zeichen ausgeben
-   3. "PriorDeadKey" mit leerem String �berschreiben
-
-   ------------------------------------------------------
-   Reihe 1
-   ------------------------------------------------------
-*/
-
-*^::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      Unicode("ˆ") ; circumflex, tot
-      PriorDeadKey := "c1"
-   }
-   else if Ebene = 2
-   {
-      Unicode("ˇ")  ; caron, tot
-      PriorDeadKey := "c2"
-   }
-   else if Ebene = 3
-   {
-      Unicode("˘")   ; brevis
-      PriorDeadKey := "c3"
-   }
-   else if Ebene = 4
-   {
-      send - ; querstrich, tot
-      PriorDeadKey := "c4"
-   }
-   else if Ebene = 5
-   {
-      Unicode("·")  ; Mittenpunkt, tot
-      PriorDeadKey := "c5"
-   }
-   else if Ebene = 6
-   {
-      Send .         ; punkt darunter
-      PriorDeadKey := "c6"
-   }
-return
-
-*1::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")          ; circumflex 1
-         BSUnicode("¹")
-      Else
-         send {blind}1
-   }
-   else if Ebene = 2
-      send �
-   else if Ebene = 4
-      send �
-   else if Ebene = 5
-      Unicode("•") ; bullet
-   PriorDeadKey := ""
-return
-
-*2::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")          ; circumflex 
-         BSUnicode("²")
-      Else
-         send {blind}2      
-   }
-   else if Ebene = 2
-      send �
-   else if Ebene = 4
-      send �
-   PriorDeadKey := ""
-return
-
-*3::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")          ; circumflex
-         BSUnicode("³")
-      Else
-         send {blind}3
-   }
-   else if Ebene = 2
-      send �
-   else if Ebene = 4
-      send �
-   else if Ebene = 5
-      Unicode("⅜") ; 3/8
-   PriorDeadKey := ""
-return
-
-*4::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}4
-   else if Ebene = 2
-      send �
-   else if Ebene = 3
-      send �
-   else if Ebene = 5
-      Send {PgUp}    ; Prev
-   else if Ebene = 6
-      Send +{Prev}
-   PriorDeadKey := ""
-return
-
-*5::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}5
-   else if Ebene = 2
-      send �
-   else if Ebene = 3
-      send �
-   else if Ebene = 5
-      Unicode("⅝") ; 5/8
-   else if Ebene = 6
-      Unicode("⇒") ; Implikation
-   PriorDeadKey := ""
-return
-
-*6::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}6
-   else if Ebene = 2
-      send $
-   else if Ebene = 3
-      send �
-   else if Ebene = 4
-      send �
-   else if Ebene = 6
-      Unicode("⇔") ; �quivalenz
-   PriorDeadKey := ""
-return
-
-*7::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}7
-   else if Ebene = 2
-      send �
-   else if Ebene = 3
-      send �
-   else if Ebene = 4
-      send �
-   else if Ebene = 5
-      Unicode("⅞") ; 7/8
-   else if Ebene = 6
-      Send �
-   PriorDeadKey := ""
-return
-
-*8::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}8
-   else if Ebene = 2
-      send �
-   else if Ebene = 3
-      send �
-   else if Ebene = 5
-      Send /
-   else if Ebene = 6
-      Unicode("∃") ; Existenzquantor
-   PriorDeadKey := ""
-return
-
-*9::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}9
-   else if Ebene = 2
-      send �
-   else if Ebene = 3
-      send �
-   else if Ebene = 5
-      Send *
-   else if Ebene = 6
-      Unicode("∀") ; Allquantor
-   PriorDeadKey := ""
-return
-
-*0::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}0
-   else if Ebene = 2
-      send �
-   else if Ebene = 3
-      send �
-   else if Ebene = 5
-      Send -
-   else if Ebene = 6
-      Unicode("∨") ; logisch oder
-   PriorDeadKey := ""
-return
-
-*�::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}- ; Bind
-   else if Ebene = 2
-      Unicode("–") ; Ged
-   else if Ebene = 3
-      Unicode("—")
-   else if Ebene = 6
-      Unicode("∧") ; logisch und
-   PriorDeadKey := ""
-return
-
-*�::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      send {�}{space} ; akut, tot
-      PriorDeadKey := "a1"
-   }
-   else if Ebene = 2
-   {
-      send ``{space}
-      PriorDeadKey := "a2"
-   }
-   else if Ebene = 3
-   {
-      send � ; cedilla
-      PriorDeadKey := "a3"
-   }
-   else if Ebene = 4
-   {
-      Unicode("˛") ; ogonek
-      PriorDeadKey := "a4"
-   }
-   else if Ebene = 5
-   {
-      Unicode("˙") ; punkt oben dr�ber
-      PriorDeadKey := "a5"
-   }
-   else if Ebene = 6
-   {
-      Unicode("˚")  ; ring obendrauf
-      PriorDeadKey := "a6"
-   }
-return
-
-
-/*
-   ------------------------------------------------------
-   Reihe 2
-   ------------------------------------------------------
-*/
-
-*q::
-   EbeneAktualisieren()
-   if Ebene = 1
-      sendinput {blind}x
-   else if Ebene = 2
-      sendinput {blind}X
-   else if Ebene = 3
-      send @
-   else if Ebene = 4
-      Unicode("ξ") ;xi
-   else if Ebene = 6
-      Unicode("Ξ")  ; Xi
-   PriorDeadKey := ""
-return
-
-
-*w::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c6")      ; punkt darunter 
-         BSUnicode("ṿ")
-      Else
-         sendinput {blind}v
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c6")      ; punkt darunter
-         BSUnicode("Ṿ")
-      Else 
-         sendinput {blind}V
-   }
-   else if Ebene = 3
-      send _
-   else if Ebene = 5
-      Send {Backspace}
-   else if Ebene = 6
-      Unicode("Λ")  ; Lambda
-   PriorDeadKey := ""
-return
-
-
-
-*e::
-   EbeneAktualisieren()
-   if Ebene = 1
-   { 
-      If (PriorDeadKey = "t5")       ; Schr�gstrich
-         BSUnicode("ł")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("ĺ")
-      Else If (PriorDeadKey = "c2")     ; caron 
-         BSUnicode("ľ")
-      Else If (PriorDeadKey = "a3")    ; cedilla
-         BSUnicode("ļ")
-      Else If (PriorDeadKey = "c5")  ; Mittenpunkt
-         BSUnicode("ŀ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("ḷ")
-      Else 
-         sendinput {blind}l
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "a1")           ; akut 
-         BSUnicode("Ĺ")
-      Else If (PriorDeadKey = "c2")     ; caron 
-         BSUnicode("Ľ")
-      Else If (PriorDeadKey = "a3")    ; cedilla
-         BSUnicode("Ļ")
-      Else If (PriorDeadKey = "t5")  ; Schr�gstrich 
-         BSUnicode("Ł")
-      Else If (PriorDeadKey = "c5")  ; Mittenpunkt 
-         BSUnicode("Ŀ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("Ḷ")
-      Else 
-         sendinput {blind}L
-   }      
-   else if Ebene = 3
-      send [
-   else if Ebene = 4
-      Unicode("λ") ;lambda
-   else if Ebene = 5
-      Sendinput {Blind}{Up}
-   else if Ebene = 6
-      Sendinput {Blind}+{Up}
-   PriorDeadKey := ""
-return
-
-
-*r::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("ĉ")
-      Else If (PriorDeadKey = "c2")     ; caron
-         BSUnicode("č")
-      Else If (PriorDeadKey = "a1")      ; akut
-         BSUnicode("ć")
-      Else If (PriorDeadKey = "a3")    ; cedilla
-         BSUnicode("ç")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("ċ")
-      Else 
-         sendinput {blind}c
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c1")          ; circumflex 
-         BSUnicode("Ĉ")
-      Else If (PriorDeadKey = "c2")    ; caron 
-         BSUnicode("Č")
-      Else If (PriorDeadKey = "a1")     ; akut 
-         BSUnicode("Ć")
-      Else If (PriorDeadKey = "a3")   ; cedilla 
-         BSUnicode("Ç")
-      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
-         BSUnicode("Ċ")
-      Else 
-         sendinput {blind}C
-   }
-   else if Ebene = 3
-      send ]
-   else if Ebene = 4
-      Unicode("χ") ;chi
-   else if Ebene = 5
-      Send {Tab}
-   else if Ebene = 6
-      Send +{Tab}
-   PriorDeadKey := ""
-return
-
-*t::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("ŵ")
-      Else
-         sendinput {blind}w
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("ŵ")
-      Else
-         sendinput {blind}W
-   }
-   else if Ebene = 3
-      send {^}{space} ; untot
-   else if Ebene = 5
-      Send {Insert}
-   else if Ebene = 6
-      Send +{Insert}
-   PriorDeadKey := ""
-return
-
-*z::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "a3")         ; cedilla
-         BSUnicode("ķ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("ḳ")
-      Else
-         sendinput {blind}k
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "a3")         ; cedilla 
-         BSUnicode("Ķ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("Ḳ")
-      Else
-         sendinput {blind}K
-   }
-   else if Ebene = 3
-      sendraw !
-   else if Ebene = 4
-      Unicode("κ") ;kappa
-   else if Ebene = 5
-      Send �
-   else if Ebene = 6
-      Send �
-   PriorDeadKey := ""
-return
-
-*u::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("ĥ")
-      Else If (PriorDeadKey = "c4")   ; Querstrich 
-         BSUnicode("ħ")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("ḣ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("ḥ")
-      Else sendinput {blind}h
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("Ĥ")
-      Else If (PriorDeadKey = "c4")   ; Querstrich
-         BSUnicode("Ħ")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("Ḣ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("Ḥ")
-      Else sendinput {blind}H
-   }
-   else if Ebene = 3
-   {
-      If (PriorDeadKey = "c4")    ; Querstrich
-         BSUnicode("≤")
-      Else
-         send {blind}<
-   }
-   else if Ebene = 4
-      Unicode("ψ") ;psi
-   else if Ebene = 5
-      Send 7
-   else if Ebene = 6
-      Unicode("Ψ")  ; Phi
-   PriorDeadKey := ""
-return
-
-*i::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")          ; circumflex
-         BSUnicode("ĝ")
-      Else If (PriorDeadKey = "c3")   ; brevis
-         BSUnicode("ğ")
-      Else If (PriorDeadKey = "a3")   ; cedilla
-         BSUnicode("ģ")
-      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
-         BSUnicode("ġ")
-      Else sendinput {blind}g
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("Ĝ") 
-      Else If (PriorDeadKey = "c3")    ; brevis 
-         BSUnicode("Ğ")
-      Else If (PriorDeadKey = "a3")    ; cedilla 
-         BSUnicode("Ģ")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("Ġ")
-      Else sendinput {blind}G
-   }
-   else if Ebene = 3
-   {
-      If (PriorDeadKey = "c4")    ; Querstrich
-         BSUnicode("≥")
-      Else
-         send >
-   }
-   else if Ebene = 4
-      Unicode("γ") ;gamma
-   else if Ebene = 5
-      Send 8
-   else if Ebene = 6
-      Unicode("Γ")  ; Gamma
-   PriorDeadKey := ""
-return
-
-*o::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "t5")      ; durchgestrichen
-         BSUnicode("ƒ")
-      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
-         BSUnicode("ḟ")
-      Else sendinput {blind}f
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "t5")       ; durchgestrichen
-         BSUnicode("₣")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("Ḟ")
-      Else sendinput {blind}F
-   } 
-   else if Ebene = 3
-   {
-      If (PriorDeadKey = "c1")            ; circumflex 
-         BSUnicode("≙")
-      Else If (PriorDeadKey = "t1")       ; tilde 
-         BSUnicode("≅")
-      Else If (PriorDeadKey = "t5")   ; Schr�gstrich 
-         BSUnicode("≠")
-      Else If (PriorDeadKey = "c4")    ; Querstrich
-         BSUnicode("≡")
-      Else If (PriorDeadKey = "c2")      ; caron 
-         BSUnicode("≚")
-      Else If (PriorDeadKey = "a6")  ; ring dr�ber 
-         BSUnicode("≗")
-         
-
-
-/*
-        was bedeutet dieser PriorHotkey?
-*/
-
-      Else If A_PriorHotkey = +1      ; Grad
-         BSUnicode("≗")
-      Else
-         send `=
-   }
-   else if Ebene = 4
-      Unicode("φ") ;phi
-   else if Ebene = 5
-      Send 9
-   else if Ebene = 6
-      Unicode("Φ")  ; Psi
-   PriorDeadKey := ""
-return
-
-*p::
-   EbeneAktualisieren()
-   if Ebene = 1
-      sendinput {blind}q
-   else if Ebene = 2
-      sendinput {blind}Q
-   else if Ebene = 3
-      send {&}
-   else if Ebene = 5
-      Send {+}
-   else if Ebene = 6
-      Unicode("∧") ; logisches Und
-   PriorDeadKey := ""
-return
-
-*�::
-   EbeneAktualisieren()
-   if Ebene = 1
-      if GetKeyState("CapsLock","T")
-      {
-         Unicode("ẞ") ; versal-�
-      }
-      else
-      {
-         send �
-      }      
-   else if Ebene = 2
-      if GetKeyState("CapsLock","T")
-      {
-         send �
-      }
-      else
-      {
-         Unicode("ẞ") ; versal-�
-      }
-   else if Ebene = 3
-      Unicode("ij")   ; ij
-   else if Ebene = 4
-      Unicode("IJ") ;IJ
-   else if Ebene = 5
-      Unicode("ə") ; schwa
-   else if Ebene = 6
-      Unicode("Ə")  ; Schwa
-   PriorDeadKey := ""
-return
-
-
-*+::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      Unicode("˜")    ; tilde, tot 
-      PriorDeadKey := "t1"
-   }
-   else if Ebene = 2
-   {
-      Unicode("ˉ")  ; macron, tot
-      PriorDeadKey := "t2"
-   }
-   else if Ebene = 3
-   {
-      Unicode("¨")   ; Diaerese
-      PriorDeadKey := "t3"
-   }
-   else if Ebene = 4
-   {
-      send "        ;doppelakut
-      PriorDeadKey := "t4"
-   }
-   else if Ebene = 5
-   {
-      Unicode("/")  ; Schr�gstrich, tot
-      PriorDeadKey := "t5"
-   }
-   else if Ebene = 6
-   {
-      Unicode("ˏ")  ; komma drunter, tot
-      PriorDeadKey := "t6"
-   }
-return
-
-
-/*
-   ------------------------------------------------------
-   Reihe 3
-   ------------------------------------------------------
-*/
-
-*a::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("û")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("ú")
-      Else If (PriorDeadKey = "a2")     ; grave
-         BSUnicode("ù")
-      Else If (PriorDeadKey = "t3")    ; Diaerese
-         Send, {bs}�
-      Else If (PriorDeadKey = "t4")   ; doppelakut 
-         BSUnicode("ű")
-      Else If (PriorDeadKey = "c3")    ; brevis
-         BSUnicode("ŭ")
-      Else If (PriorDeadKey = "t2")     ; macron
-         BSUnicode("ū")
-      Else If (PriorDeadKey = "a4")   ; ogonek
-         BSUnicode("ų")
-      Else If (PriorDeadKey = "a6") ; Ring
-         BSUnicode("ů")
-      Else If (PriorDeadKey = "t1")      ; tilde
-         BSUnicode("ũ")
-      Else
-         sendinput {blind}u
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("Û")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("Ú")
-      Else If (PriorDeadKey = "a2")     ; grave
-         BSUnicode("Ù")
-      Else If (PriorDeadKey = "t3")    ; Diaerese
-         Send, {bs}�
-      Else If (PriorDeadKey = "a6") ; Ring
-         BSUnicode("Ů")
-      Else If (PriorDeadKey = "c3")    ; brevis
-         BSUnicode("Ŭ")
-      Else If (PriorDeadKey = "t4")   ; doppelakut
-         BSUnicode("Ű")
-      Else If (PriorDeadKey = "c2")     ; caron 
-         BSUnicode("Ů")
-      Else If (PriorDeadKey = "t2")     ; macron
-         BSUnicode("Ū")
-      Else If (PriorDeadKey = "c3")    ; brevis 
-         BSUnicode("Ŭ")
-      Else If (PriorDeadKey = "a4")   ; ogonek
-         BSUnicode("Ų")
-      Else If (PriorDeadKey = "t1")      ; tilde
-         BSUnicode("Ũ")
-      Else
-         sendinput {blind}U
-   }
-   else if Ebene = 3
-      send \
-   else if Ebene = 5
-      Send {blind}{Home}
-   else if Ebene = 6
-      Send {blind}+{Home}
-   PriorDeadKey := ""
-return
-
-*s::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")          ; circumflex
-         BSUnicode("î")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("í")
-      Else If (PriorDeadKey = "a2")     ; grave
-         BSUnicode("ì")
-      Else If (PriorDeadKey = "t3")   ; Diaerese
-         Send, {bs}�
-      Else If (PriorDeadKey = "t2")    ; macron
-         BSUnicode("ī")
-      Else If (PriorDeadKey = "c3")   ; brevis
-         BSUnicode("ĭ")
-      Else If (PriorDeadKey = "a4")  ; ogonek
-         BSUnicode("į")
-      Else If (PriorDeadKey = "t1")     ; tilde
-         BSUnicode("ĩ")
-      Else If (PriorDeadKey = "a5") ; (ohne) punkt dar�ber 
-         BSUnicode("ı")
-      Else 
-         sendinput {blind}i
-   }
-   else if Ebene = 2
-   {   
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("Î")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("Í")
-      Else If (PriorDeadKey = "a2")     ; grave
-         BSUnicode("Ì")
-      Else If (PriorDeadKey = "t3")    ; Diaerese
-         Send, {bs}�
-      Else If (PriorDeadKey = "t2")     ; macron
-         BSUnicode("Ī")
-      Else If (PriorDeadKey = "c3")    ; brevis 
-         BSUnicode("Ĭ")
-      Else If (PriorDeadKey = "a4")   ; ogonek
-         BSUnicode("Į")
-      Else If (PriorDeadKey = "t1")      ; tilde
-         BSUnicode("Ĩ")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("İ")
-      Else 
-         sendinput {blind}I
-   }
-   else if Ebene = 3
-      send `/
-   else if Ebene = 4
-      Unicode("ι") ;iota
-   else if Ebene = 5
-      Sendinput {Blind}{Left}
-   else if Ebene = 6
-      Sendinput {Blind}+{Left}
-   PriorDeadKey := ""
-return
-
-*d::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("â")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("á")
-      Else If (PriorDeadKey = "a2")     ; grave
-         BSUnicode("à")
-      Else If (PriorDeadKey = "t3")    ; Diaerese
-         send {bs}�
-      Else If (PriorDeadKey = "a6") ; Ring 
-         Send {bs}�
-      Else If (PriorDeadKey = "t1")      ; tilde
-         BSUnicode("ã")
-      Else If (PriorDeadKey = "a4")   ; ogonek
-         BSUnicode("ą")
-      Else If (PriorDeadKey = "t2")     ; macron
-         BSUnicode("ā")
-      Else If (PriorDeadKey = "c3")    ; brevis
-         BSUnicode("ă")
-      Else 
-         sendinput {blind}a
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c1")            ; circumflex
-         BSUnicode("Â")
-      Else If (PriorDeadKey = "a1")       ; akut 
-         BSUnicode("Á")
-      Else If (PriorDeadKey = "a2")      ; grave
-         BSUnicode("À")
-      Else If (PriorDeadKey = "t3")     ; Diaerese
-         send {bs}�
-      Else If (PriorDeadKey = "t1")       ; tilde
-         BSUnicode("Ã")
-      Else If (PriorDeadKey = "a6")  ; Ring 
-         Send {bs}�
-      Else If (PriorDeadKey = "t2")      ; macron
-         BSUnicode("Ā")
-      Else If (PriorDeadKey = "c3")     ; brevis 
-         BSUnicode("Ă")
-      Else If (PriorDeadKey = "a4")    ; ogonek
-         BSUnicode("Ą")
-      Else 
-         sendinput {blind}A
-   }
-   else if Ebene = 3
-      sendraw {
-   else if Ebene = 4
-      Unicode("α") ;alpha
-   else if Ebene = 5
-      Sendinput {Blind}{Down}
-   else if Ebene = 6
-      Sendinput {Blind}+{Down}
-   PriorDeadKey := ""
-return
-
-*f::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")          ; circumflex
-         BSUnicode("ê")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("é")
-      Else If (PriorDeadKey = "a2")     ; grave
-         BSUnicode("è")
-      Else If (PriorDeadKey = "t3")   ; Diaerese
-         Send, {bs}�
-      Else If (PriorDeadKey = "a4")  ; ogonek
-         BSUnicode("ę")
-      Else If (PriorDeadKey = "t2")    ; macron
-         BSUnicode("ē")
-      Else If (PriorDeadKey = "c3")   ; brevis
-         BSUnicode("ĕ")
-      Else If (PriorDeadKey = "c2")    ; caron
-         BSUnicode("ě")
-      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
-         BSUnicode("ė")
-      Else 
-         sendinput {blind}e
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("Ê")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("É")
-      Else If (PriorDeadKey = "a2")     ; grave
-         BSUnicode("È")
-      Else If (PriorDeadKey = "t3")    ; Diaerese
-         Send, {bs}�
-      Else If (PriorDeadKey = "c2")     ; caron
-         BSUnicode("Ě")
-      Else If (PriorDeadKey = "t2")     ; macron
-         BSUnicode("Ē")
-      Else If (PriorDeadKey = "c3")    ; brevis 
-         BSUnicode("Ĕ")
-      Else If (PriorDeadKey = "a4")   ; ogonek 
-         BSUnicode("Ę")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("Ė")
-      Else 
-         sendinput {blind}E
-   }
-   else if Ebene = 3
-      sendraw }
-   else if Ebene = 4
-      Unicode("ε") ;epsilon
-   else if Ebene = 5
-      Sendinput {Blind}{Right}
-   else if Ebene = 6
-      Sendinput {Blind}+{Right}
-   PriorDeadKey := ""
-return
-
-*g::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("ô")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("ó")
-      Else If (PriorDeadKey = "a2")     ; grave
-         BSUnicode("ò")
-      Else If (PriorDeadKey = "t3")    ; Diaerese
-         Send, {bs}�
-      Else If (PriorDeadKey = "t1")      ; tilde
-         BSUnicode("õ")
-      Else If (PriorDeadKey = "t4")   ; doppelakut
-         BSUnicode("ő")
-      Else If (PriorDeadKey = "t5")  ; Schr�gstrich
-         BSUnicode("ø")
-      Else If (PriorDeadKey = "t2")     ; macron
-         BSUnicode("ō")
-      Else If (PriorDeadKey = "c3")    ; brevis 
-         BSUnicode("ŏ")
-      Else 
-         sendinput {blind}o
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("Ô")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("Ó")
-      Else If (PriorDeadKey = "a2")     ; grave
-         BSUnicode("Ò")
-      Else If (PriorDeadKey = "t5")  ; Schr�gstrich
-         BSUnicode("Ø")
-      Else If (PriorDeadKey = "t1")      ; tilde
-         BSUnicode("Õ")
-      Else If (PriorDeadKey = "t4")   ; doppelakut
-         BSUnicode("Ő")
-      Else If (PriorDeadKey = "t3")    ; Diaerese
-         send {bs}�
-      Else If (PriorDeadKey = "t2")     ; macron 
-         BSUnicode("Ō")
-      Else If (PriorDeadKey = "c3")    ; brevis 
-         BSUnicode("Ŏ")
-      Else
-         sendinput {blind}O
-   }
-   else if Ebene = 3
-      send *
-   else if Ebene = 4
-      Unicode("ω") ;omega
-   else if Ebene = 5
-      Send {blind}{End}
-   else if Ebene = 6
-      Send {blind}+{End}
-   PriorDeadKey := ""
-return
-
-*h::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("ŝ")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("ś")
-      Else If (PriorDeadKey = "c2")     ; caron
-         BSUnicode("š")
-      Else If (PriorDeadKey = "a3")    ; cedilla
-         BSUnicode("ş")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("ṡ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("ṣ")
-      Else   
-         sendinput {blind}s
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("Ŝ")
-      Else If (PriorDeadKey = "c2")     ; caron
-         BSUnicode("Š")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("Ś")
-      Else If (PriorDeadKey = "a3")    ; cedilla 
-         BSUnicode("Ş")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("�")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("Ṣ")
-      Else
-         sendinput {blind}S
-   }
-   else if Ebene = 3
-      send ?
-   else if Ebene = 4
-      Unicode("σ") ;sigma
-   else if Ebene = 5
-      Send �
-   else if Ebene = 6
-      Unicode("Σ")  ; Sigma
-   PriorDeadKey := ""
-return
-
-*j::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "a1")          ; akut
-         BSUnicode("ń")
-      Else If (PriorDeadKey = "t1")     ; tilde
-         BSUnicode("ñ")
-      Else If (PriorDeadKey = "c2")    ; caron
-         BSUnicode("ň")
-      Else If (PriorDeadKey = "a3")   ; cedilla
-         BSUnicode("ņ")
-      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
-         BSUnicode("ṅ")
-      Else
-         sendinput {blind}n
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c2")         ; caron
-         BSUnicode("Ň")
-      Else If (PriorDeadKey = "t1")     ; tilde
-         BSUnicode("Ñ")
-      Else If (PriorDeadKey = "a1")     ; akut 
-         BSUnicode("Ń")
-      Else If (PriorDeadKey = "a3")   ; cedilla 
-         BSUnicode("Ņ")
-      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
-         BSUnicode("Ṅ")
-      Else
-         sendinput {blind}N
-   }
-   else if Ebene = 3
-      send (
-   else if Ebene = 4
-      Unicode("ν") ;nu
-   else if Ebene = 5
-      Send 4
-   else if Ebene = 6
-      Unicode("№") ; No
-   PriorDeadKey := ""
-return
-
-*k::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "a1")           ; akut 
-         BSUnicode("ŕ")
-      Else If (PriorDeadKey = "c2")     ; caron
-         BSUnicode("ř")
-      Else If (PriorDeadKey = "a3")    ; cedilla
-         BSUnicode("ŗ")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("ṙ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("ṛ")
-      Else 
-         sendinput {blind}r
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c2")          ; caron
-         BSUnicode("Ř")
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("Ŕ")
-      Else If (PriorDeadKey = "a3")    ; cedilla 
-         BSUnicode("Ŗ")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("Ṙ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("Ṛ")
-      Else 
-         sendinput {blind}R
-   }
-   else if Ebene = 3
-      send )
-   else if Ebene = 4
-      Unicode("ρ") ;rho
-   else if Ebene = 5
-      Send 5
-   else if Ebene = 6
-      Unicode("®")  ; (R)
-   PriorDeadKey := ""
-return
-
-*l::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c2")          ; caron 
-         BSUnicode("ť")
-      Else If (PriorDeadKey = "a3")    ; cedilla
-         BSUnicode("ţ")
-      Else If (PriorDeadKey = "c4")   ; Querstrich
-         BSUnicode("ŧ")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("ṫ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("ṭ")
-      Else 
-         sendinput {blind}t
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c2")          ; caron
-         BSUnicode("Ť")
-      Else If (PriorDeadKey = "a3")    ; cedilla 
-         BSUnicode("Ţ")
-      Else If (PriorDeadKey = "c4")   ; Querstrich
-         BSUnicode("Ŧ")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("Ṫ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("Ṭ")
-      Else 
-         sendinput {blind}T
-   }
-   else if Ebene = 3
-      send {blind}- ; Bind
-   else if Ebene = 4
-      Unicode("τ") ;tau
-   else if Ebene = 5
-      Send 6
-   else if Ebene = 6
-      Unicode("™") ; TM
-   PriorDeadKey := ""
-return
-
-*�::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c4")        ; Querstrich
-         BSUnicode("đ")
-      Else If (PriorDeadKey = "t5")  ; Schr�gstrich
-         BSUnicode("ð")
-      Else If (PriorDeadKey = "c2")     ; caron
-         BSUnicode("ď")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("ḋ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("ḍ")
-      Else 
-         sendinput {blind}d
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c4")        ; Querstrich
-         BSUnicode("Đ")
-      Else If (PriorDeadKey = "t5")  ; Schr�gstrich
-         BSUnicode("Ð")
-      Else If (PriorDeadKey = "c2")     ; caron 
-         BSUnicode("Ď")
-      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
-         BSUnicode("Ḋ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("Ḍ")
-      Else sendinput {blind}D
-   }
-   else if Ebene = 3
-      send :
-   else if Ebene = 4
-      Unicode("δ") ;delta
-   else if Ebene = 5
-      Send `,
-   else if Ebene = 6
-      Unicode("Δ")  ; Delta
-   PriorDeadKey := ""
-return
-
-*�::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "t3")       ; Diaerese
-         Send {bs}�
-      Else If (PriorDeadKey = "a1")      ; akut 
-         BSUnicode("ý")
-      Else If (PriorDeadKey = "c1")    ; circumflex
-         BSUnicode("ŷ")
-      Else
-         sendinput {blind}y
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "a1")           ; akut 
-         BSUnicode("Ý")
-      Else If (PriorDeadKey = "t3")    ; Diaerese
-         Send {bs}�
-      Else If (PriorDeadKey = "c1")      ; circumflex
-         BSUnicode("Ŷ")
-      Else
-         sendinput {blind}Y
-   }
-   else if Ebene = 3
-      Unicode("„")  ; �
-   else if Ebene = 4
-      Unicode("υ") ;upsilon
-   else if Ebene = 5
-      Send �         ; thorn
-   else if Ebene = 6
-      Send �         ; Thorn
-   PriorDeadKey := ""
-return
-
-;SC02B (#) wird zu Mod3
-
-
-/*
-   ------------------------------------------------------
-   Reihe 4
-   ------------------------------------------------------
-*/
-
-;SC056 (<) wird zu Mod5
-
-*y::
-   EbeneAktualisieren()
-   if Ebene = 1
-      sendinput {blind}�
-   else if Ebene = 2
-      sendinput {blind}�
-   else if Ebene = 3
-      send {blind}{#}
-   else if Ebene = 5
-      Send {Esc}
-   PriorDeadKey := ""
-return
-
-*x::
-   EbeneAktualisieren()
-   if Ebene = 1
-      sendinput {blind}�
-   else if Ebene = 2
-      sendinput {blind}�
-   else if Ebene = 3
-      send $
-   else if Ebene = 5
-      Send {Del}
-   else if Ebene = 6
-      Send +{Del}
-   PriorDeadKey := ""
-return
-
-*c::
-   EbeneAktualisieren()
-   if Ebene = 1
-      sendinput {blind}�
-   else if Ebene = 2
-      sendinput {blind}�
-   else if Ebene = 3
-      send |
-   else if Ebene = 4
-      Unicode("η") ;eta
-   else if Ebene = 5
-      Send {PgDn}    ; Next
-   else if Ebene = 6
-      Send +{PgDn}
-   PriorDeadKey := ""
-return
-
-*v::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "a5")      ; punkt dar�ber 
-         BSUnicode("ṗ")
-      Else
-         sendinput {blind}p
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "a5")      ; punkt dar�ber 
-         BSUnicode("Ṗ")
-      Else 
-         sendinput {blind}P
-   }
-   else if Ebene = 3
-   {
-      If (PriorDeadKey = "t1")    ; tilde
-         BSUnicode("≈")
-      Else
-         sendraw ~
-   }      
-   else if Ebene = 4
-      Unicode("π") ;pi
-   else if Ebene = 5
-      Send {Enter}
-   else if Ebene = 6
-      Unicode("Π")  ; Pi
-   PriorDeadKey := ""
-return
-
-*b::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c2")         ; caron
-         BSUnicode("ž")
-      Else If (PriorDeadKey = "a1")     ; akut
-         BSUnicode("ź")
-      Else If (PriorDeadKey = "a5") ; punkt dr�ber
-         BSUnicode("ż")
-      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
-         BSUnicode("ż")
-      Else 
-         sendinput {blind}z
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c2")         ; caron  
-         BSUnicode("Ž")
-      Else If (PriorDeadKey = "a1")     ; akut 
-         BSUnicode("Ź")
-      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
-         BSUnicode("Ż")
-      Else
-         sendinput {blind}Z
-   }
-   else if Ebene = 3
-      send ``{space} ; untot
-   else if Ebene = 4
-      Unicode("ζ") ;zeta
-   else if Ebene = 6
-      Unicode("Ω")  ; Omega
-   PriorDeadKey := ""
-return
-
-*n::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "a5")      ; punkt dar�ber 
-         BSUnicode("ḃ")
-      Else 
-         sendinput {blind}b
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "a5")       ; punkt dar�ber 
-         BSUnicode("Ḃ")
-      Else 
-         sendinput {blind}B
-   }
-   else if Ebene = 3
-      send {blind}{+}
-   else if Ebene = 4
-      Unicode("β") ;beta
-   else if Ebene = 6
-      Unicode("∞") ;infty
-   PriorDeadKey := ""
-return
-
-*m::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "a5")       ; punkt dar�ber 
-         BSUnicode("ṁ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("ṃ")
-      Else 
-         sendinput {blind}m
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "a5")       ; punkt dar�ber 
-         BSUnicode("Ṁ")
-      Else If (PriorDeadKey = "c6") ; punkt darunter 
-         BSUnicode("Ṃ")
-      Else 
-         sendinput {blind}M
-   }
-   else if Ebene = 3
-      send `%
-   else if Ebene = 4
-      Unicode("µ") ;micro, mu w�re μ
-   else if Ebene = 5
-      Send 1
-   else if Ebene = 6
-      Unicode("∫") ; Int
-   PriorDeadKey := ""
-return
-
-*,::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind},
-   else if Ebene = 3
-      send '
-   else if Ebene = 4
-      Unicode("ϑ") ;vartheta?
-   else if Ebene = 5
-      Send 2
-   else if Ebene = 6
-      Unicode("√") ; sqrt
-   PriorDeadKey := ""
-return
-
-*.::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}.
-   else if Ebene = 2
-      Unicode("…")  ; ellipse
-   else if Ebene = 3
-      send "
-   else if Ebene = 4
-      Unicode("θ") ;theta
-   else if Ebene = 5
-      Send 3
-   else if Ebene = 6
-      Unicode("Θ")  ; Theta
-   PriorDeadKey := ""
-return
-
-
-*-::
-   EbeneAktualisieren()
-   if Ebene = 1
-   {
-      If (PriorDeadKey = "c1")           ; circumflex
-         BSUnicode("ĵ")
-      Else
-         sendinput {blind}j
-   }
-   else if Ebene = 2
-   {
-      If (PriorDeadKey = "c1")            ; circumflex
-         BSUnicode("Ĵ")
-      Else
-         sendinput {blind}J
-   }
-   else if Ebene = 3
-      send `;
-   else if Ebene = 5
-      Send .
-   else if Ebene = 6
-      Unicode("∇") ; Nabla
-   PriorDeadKey := ""
-return
-
-/*
-   ------------------------------------------------------
-   Numpad
-   ------------------------------------------------------
-
-   folgende Tasten verhalten sich bei ein- und ausgeschaltetem
-   NumLock gleich:
-*/
-
-*NumpadDiv::
-   EbeneAktualisieren()
-   if ( (Ebene = 1) or (Ebene = 2) )
-      send {NumpadDiv}
-   else if Ebene = 3
-      send �
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("∕")   ; slash
-   PriorDeadKey := ""
-return
-
-*NumpadMult::
-   EbeneAktualisieren()
-   if ( (Ebene = 1) or (Ebene = 2) )
-      send {NumpadMult}
-   else if Ebene = 3
-      send �
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("⋅")  ; cdot
-   PriorDeadKey := ""
-return
-
-*NumpadSub::
-   EbeneAktualisieren()
-   if ( (Ebene = 1) or (Ebene = 2) )
-      send {blind}{NumpadSub}
-   else if Ebene = 3
-      send -
-   PriorDeadKey := ""
-return
-
-*NumpadAdd::
-   EbeneAktualisieren()
-   if ( (Ebene = 1) or (Ebene = 2) )
-      send {blind}{NumpadAdd}
-   else if Ebene = 3
-      send �
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("∓")   ; -+
-   PriorDeadKey := ""
-return
-
-*NumpadEnter::
-   EbeneAktualisieren()
-   if ( (Ebene = 1) or (Ebene = 2) )
-      send {NumpadEnter}      
-   else if Ebene = 3
-      Unicode("≠") ; neq
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("≈") ; approx
-   PriorDeadKey := ""
-return
-
-/*
-   folgende Tasten verhalten sich bei ein- und ausgeschaltetem NumLock
-   unterschiedlich:
-
-   bei NumLock ein
-*/
-
-*Numpad7::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}{Numpad7}
-   else if Ebene = 2
-      send {NumpadHome}
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("≪")  ; ll
-   PriorDeadKey := ""
-return
-
-*Numpad8::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}{Numpad8}
-   else if Ebene = 2
-      send {NumpadUp}
-   else if Ebene = 3
-      Unicode("↑")     ; uparrow
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("∩")    ;
-   PriorDeadKey := ""
-return
-
-*Numpad9::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}{Numpad9}
-   else if Ebene = 2
-      send {NumpadPgUp}
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("≫")  ; gg
-   PriorDeadKey := ""
-return
-
-*Numpad4::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}{Numpad4}
-   else if Ebene = 2
-      send {NumpadLeft}
-   else if Ebene = 3
-      Unicode("←")     ; leftarrow
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("⊂")  ;
-   PriorDeadKey := ""
-return
-
-*Numpad5::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}{Numpad5}
-   else if Ebene = 2
-      send {NumpadClear}
-   else if Ebene = 3
-      send �
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("∊") ;
-   PriorDeadKey := ""
-return
-
-*Numpad6::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}{Numpad6}
-   else if Ebene = 2
-      send {NumpadRight}
-   else if Ebene = 3
-      Unicode("→")     ; rightarrow
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("⊃") ;
-   PriorDeadKey := ""
-return
-
-*Numpad1::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}{Numpad1}
-   else if Ebene = 2
-      send {NumpadEnd}
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("≤")   ; leq
-   PriorDeadKey := ""
-return
-
-*Numpad2::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}{Numpad2}
-   else if Ebene = 2
-      send {NumpadDown}
-   else if Ebene = 3
-      Unicode("↓")     ; downarrow
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("∪")  ;
-   PriorDeadKey := ""
-return
-
-*Numpad3::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}{Numpad3}
-   else if Ebene = 2
-      send {NumpadPgDn}
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("≥")  ; geq
-   PriorDeadKey := ""
-return
-
-*Numpad0::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {blind}{Numpad0}
-   else if Ebene = 2
-      send {NumpadIns}
-   else if Ebene = 3
-      send `%
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      send � 
-   PriorDeadKey := ""
-return
-
-*NumpadDot::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {NumpadDot}
-   else if Ebene = 2
-      send {NumpadDel}
-   else if Ebene = 3
-      send .
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      send `,
-   PriorDeadKey := ""
-return
-
-/*
-   bei NumLock aus
-*/
-
-*NumpadHome::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {NumpadHome}
-   else if Ebene = 2
-      send {Numpad7}
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("≪")  ; ll
-   PriorDeadKey := ""
-return
-
-*NumpadUp::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {NumpadUp}
-   else if Ebene = 2
-      send {Numpad8}
-   else if Ebene = 3
-      Unicode("↑")     ; uparrow
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("∩")    ;
-   PriorDeadKey := ""
-return
-
-*NumpadPgUp::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {NumpadPgUp}
-   else if Ebene = 2
-      send {Numpad9}
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("≫")  ; gg
-   PriorDeadKey := ""
-return
-
-*NumpadLeft::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {NumpadLeft}
-   else if Ebene = 2
-      send {Numpad4}
-   else if Ebene = 3
-      Unicode("←")     ; leftarrow
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("⊂")  ;
-   PriorDeadKey := ""
-return
-
-*NumpadClear::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {NumpadClear}
-   else if Ebene = 2
-      send {Numpad5}
-   else if Ebene = 3
-      send �
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("∊") ;
-   PriorDeadKey := ""
-return
-
-*NumpadRight::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {NumpadRight}
-   else if Ebene = 2
-      send {Numpad6}
-   else if Ebene = 3
-      Unicode("→")     ; rightarrow
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("⊃") ;
-   PriorDeadKey := ""
-return
-
-*NumpadEnd::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {NumpadEnd}
-   else if Ebene = 2
-      send {Numpad1}
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("≤")   ; leq
-   PriorDeadKey := ""
-return
-
-*NumpadDown::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {NumpadDown}
-   else if Ebene = 2
-      send {Numpad2}
-   else if Ebene = 3
-      Unicode("↓")     ; downarrow
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("∪")  ;
-   PriorDeadKey := ""
-return
-
-*NumpadPgDn::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {NumpadPgDn}
-   else if Ebene = 2
-      send {Numpad3}
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      Unicode("≥")  ; geq
-   PriorDeadKey := ""
-return
-
-*NumpadIns::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {NumpadIns}
-   else if Ebene = 2
-      send {Numpad0}
-   else if Ebene = 3
-      send `%
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      send � 
-   PriorDeadKey := ""
-return
-
-*NumpadDel::
-   EbeneAktualisieren()
-   if Ebene = 1
-      send {NumpadDel}
-   else if Ebene = 2
-      send {NumpadDot}
-   else if Ebene = 3
-      send .
-   else if ( (Ebene = 4) or (Ebene = 5) )
-      send `,
-   PriorDeadKey := ""
-return
-
-
-
-/*
-   ------------------------------------------------------
-   Sondertasten
-   ------------------------------------------------------
-*/
-
-*Space::
-   EbeneAktualisieren()
-   if Ebene = 4
-      SendUnicodeChar(0x00A0)   ; gesch�tztes Leerzeichen
-   else if Ebene = 5
-      Send 0
-   else if Ebene = 6
-      SendUnicodeChar(0x202F) ; schmales Leerzeichen
-   else
-      Send {blind}{Space}
-   PriorDeadKey := ""
-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.
-*/
-
-*Enter::
-   sendinput {Blind}{Enter}
-   PriorDeadKey := ""
-return
-
-*Backspace::
-   sendinput {Blind}{Backspace}
-   PriorDeadKey := ""
-return
-
-
-
-/*
-Tab wurde rausgenommen, weil es Probleme mit AltTab und ShiftAltTab gab.
-Allerdings kommt es jetzt zu komischen Ergebnissen, wenn man Tab nach
-einem DeadKey dr�ckt...
-
-*Tab::
-   send {Blind}{Tab}
-   PriorDeadKey := ""
-return
-
-*/
-
-*Home::
-   sendinput {Blind}{Home}
-   PriorDeadKey := ""      
-return
-
-*End::
-   sendinput {Blind}{End}
-   PriorDeadKey := ""
-return
-
-*PgUp::
-   sendinput {Blind}{PgUp}
-   PriorDeadKey := ""
-return
-
-*PgDn::
-   sendinput {Blind}{PgDn}
-   PriorDeadKey := ""
-return
-
-*Up::
-   sendinput {Blind}{Up}
-   PriorDeadKey := ""
-return
-
-*Down::
-   sendinput {Blind}{Down}
-   PriorDeadKey := ""
-return
-
-*Left::
-   sendinput {Blind}{Left}
-   PriorDeadKey := ""
-return
-
-*Right::
-   sendinput {Blind}{Right}
-   PriorDeadKey := ""
-return
-
-
-/*
-   ------------------------------------------------------
-   Funktionen
-   ------------------------------------------------------
-*/
-
-EbeneAktualisieren()
-{
-   global
-   Ebene = 1
-
-   ; ist Shift down?
-   if ( GetKeyState("Shift","P") )
-   {
-      Ebene += 1
-   }
-   ; ist Mod3 down?
-   if ( GetKeyState("CapsLock","P") or GetKeyState("#","P") )
-   {
-      Ebene += 2
-   }
-   ; ist Mod5 down? Mod3 hat Vorrang!
-   else if ( GetKeyState("<","P") or GetKeyState("SC138","P") )
-   {
-      Ebene += 4
-   }
-   
-   return
-}
-
-Unicode(code)
-{
-   saved_clipboard := ClipboardAll
-   Transform, Clipboard, Unicode, %code%
-   sendplay ^v
-   Clipboard := saved_clipboard
-}
-
-BSUnicode(code)
-{
-   saved_clipboard := ClipboardAll
-   Transform, Clipboard, Unicode, %code%
-   sendplay {bs}^v
-   Clipboard := saved_clipboard
-}
-
-SendUnicodeChar(charCode)
-{
-   VarSetCapacity(ki, 28 * 2, 0)
-
-   EncodeInteger(&ki + 0, 1)
-   EncodeInteger(&ki + 6, charCode)
-   EncodeInteger(&ki + 8, 4)
-   EncodeInteger(&ki +28, 1)
-   EncodeInteger(&ki +34, charCode)
-   EncodeInteger(&ki +36, 4|2)
-
-   DllCall("SendInput", "UInt", 2, "UInt", &ki, "Int", 28)
-}
-
-EncodeInteger(ref, val)
-{
-   DllCall("ntdll\RtlFillMemoryUlong", "Uint", ref, "Uint", 4, "Uint", val)
-}
-
-
-/*
-   ------------------------------------------------------
-   Shift+Pause "pausiert" das Script.
-   ------------------------------------------------------
-*/
-
-+pause::suspend
+/*
+    Titel:        NEO 2.0 beta Autohotkey-Treiber
+    Version:      0.09 beta
+    Datum:        10.01.2008
+    Autor:        Stefan Mayer <stm@neo-layout.org>
+    Basiert auf:  neo20-all-in-one.ahk vom 29.06.2007
+        
+    TODO:         - ausgiebig testen...
+                  - Men� des Tasksymbols
+                  - Bessere L�sung f�r das leeren von PriorDeadKey finden, damit die Sondertasten
+                    nicht mehr abgefangen werden m�ssen.
+                  - CapsLock auf 1. und 2. Ebene einbauen:
+                    Die Buchstaben reagieren richtig auf CapsLock, da hier "sendinput {blind}"
+                    verwendet wird. Bei anderen Tasten muss CapsLock in der ersten und zweiten Ebene
+                    explizit abgefragt werden.
+                    (L�sst sich das elegant in eine Funktion auslagern?)
+                |------------------|
+				    | - Compose-Taste  |
+                |------------------|
+    Ideen:        - DeadKeys tot machen
+                  - Symbol �ndern (Neo-Logo abwarten)
+                  - bei Ebene 5 rechte Hand (Numpad) z.B. Numpad5 statt 5 senden
+	 CHANGES:      - SUPERSCRIPT von 0 bis 9 sowie (auf Nummernblock) + und -
+                  - Zahlenreihe: Entfernt: Br�che
+                                 Hinzugef�gt: Geschlechts-Piktogramme, Listings-Zeichen
+*/
+
+; aus Noras script kopiert:
+#usehook on
+#singleinstance force
+#LTrim 
+  ; Quelltext kann einger�ckt werden, 
+  ; msgbox ist trotzdem linksb�ndig
+
+SendMode Input
+SetTitleMatchMode 2
+
+;name    = NEO 2.0
+;enable  = Aktiviere %name%
+;disable = Deaktiviere %name%
+
+; �berpr�fung auf deutsches Tastaturlayout 
+; ----------------------------------------
+
+regread, inputlocale, HKEY_CURRENT_USER, Keyboard Layout\Preload, 1
+regread, inputlocalealias, HKEY_CURRENT_USER
+     , Keyboard Layout\Substitutes, %inputlocale%
+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
+}
+
+/*
+   Variablen initialisieren
+*/
+
+Ebene = 1
+PriorDeadKey := ""
+
+
+/*
+   ------------------------------------------------------
+   Modifier
+   ------------------------------------------------------
+*/
+
+; CapsLock durch Mod3+Mod3
+*#::
+*CapsLock::
+   if GetKeyState("#","P") and GetKeyState("CapsLock","P")
+   {
+      if GetKeyState("CapsLock","T")
+      {
+         setcapslockstate, off
+      }
+      else
+      {
+         setcapslockstate, on
+      }
+   }
+return
+
+; KP_Decimal durch Mod5+Mod5
+*<::
+*SC138::
+   if GetKeyState("<","P") and GetKeyState("SC138","P")
+   {
+      send {numpaddot}
+   }
+   return
+
+
+/*
+   Ablauf bei toten Tasten:
+   1. Ebene Aktualisieren
+   2. Abh�ngig von der Variablen "Ebene" Zeichen ausgeben und die Variable "PriorDeadKey" setzen
+   
+   Ablauf bei "lebenden" (sagt man das?) Tasten:
+   1. Ebene Aktualisieren
+   2. Abh�ngig von den Variablen "Ebene" und "PriorDeadKey" Zeichen ausgeben
+   3. "PriorDeadKey" mit leerem String �berschreiben
+
+   ------------------------------------------------------
+   Reihe 1
+   ------------------------------------------------------
+*/
+
+*^::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      Unicode("ˆ") ; circumflex, tot
+      PriorDeadKey := "c1"
+   }
+   else if Ebene = 2
+   {
+      Unicode("ˇ")  ; caron, tot
+      PriorDeadKey := "c2"
+   }
+   else if Ebene = 3
+   {
+      Unicode("˘")   ; brevis
+      PriorDeadKey := "c3"
+   }
+   else if Ebene = 4
+   {
+      send - ; querstrich, tot
+      PriorDeadKey := "c4"
+   }
+   else if Ebene = 5
+   {
+      Unicode("·")  ; Mittenpunkt, tot
+      PriorDeadKey := "c5"
+   }
+   else if Ebene = 6
+   {
+      Send .         ; punkt darunter
+      PriorDeadKey := "c6"
+   }
+return
+
+*1::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex 1
+         BSUnicode("¹")
+      Else
+         send {blind}1
+   }
+   else if Ebene = 2
+      send �
+   else if Ebene = 4
+      Unicode("♀") ; Piktogramm weiblich
+   else if Ebene = 5
+      Unicode("•") ; bullet
+   PriorDeadKey := ""
+return
+
+*2::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex 
+         BSUnicode("²")
+      Else
+         send {blind}2      
+   }
+   else if Ebene = 2
+      Unicode("№") ; numero
+   else if Ebene = 4
+      Unicode("⚥") ; Piktogramm Zwitter
+   else if Ebene = 5
+      Unicode("‣") ; aufzaehlungspfeil
+   PriorDeadKey := ""
+return
+
+*3::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("³")
+      Else
+         send {blind}3
+   }
+   else if Ebene = 2
+      send �
+   else if Ebene = 4
+      Unicode("♂") ; Piktogramm m�nnlich
+   PriorDeadKey := ""
+return
+
+*4::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("⁴")
+      Else
+         send {blind}4
+	}
+   else if Ebene = 2
+      send �
+   else if Ebene = 3
+      send �
+   else if Ebene = 5
+      Send {PgUp}    ; Prev
+   else if Ebene = 6
+      Send +{Prev}
+   PriorDeadKey := ""
+return
+
+*5::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("⁵")
+      Else
+         send {blind}5
+	}
+   else if Ebene = 2
+      send �
+   else if Ebene = 3
+      send �
+   else if Ebene = 6
+      Unicode("⇒") ; Implikation
+   PriorDeadKey := ""
+return
+
+*6::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("⁶")
+      Else
+         send {blind}6
+	}
+   else if Ebene = 2
+      send $
+   else if Ebene = 3
+      send �
+   else if Ebene = 4
+      send �
+   else if Ebene = 6
+      Unicode("⇔") ; �quivalenz
+   PriorDeadKey := ""
+return
+
+*7::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("⁷")
+      Else
+         send {blind}7
+	}
+   else if Ebene = 2
+      send �
+   else if Ebene = 3
+      send �
+   else if Ebene = 4
+      send �
+   else if Ebene = 6
+      Send �
+   PriorDeadKey := ""
+return
+
+*8::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("⁸")
+      Else
+         send {blind}8
+	}
+   else if Ebene = 2
+      send �
+   else if Ebene = 3
+      send �
+   else if Ebene = 5
+      Send /
+   else if Ebene = 6
+      Unicode("∃") ; Existenzquantor
+   PriorDeadKey := ""
+return
+
+*9::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("⁹")
+      Else
+         send {blind}9
+	}
+   else if Ebene = 2
+      send �
+   else if Ebene = 3
+      send �
+   else if Ebene = 5
+      Send *
+   else if Ebene = 6
+      Unicode("∀") ; Allquantor
+   PriorDeadKey := ""
+return
+
+*0::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("⁰")
+      Else
+         send {blind}0
+	}
+   else if Ebene = 2
+      send �
+   else if Ebene = 3
+      send �
+   else if Ebene = 5
+      Send -
+   else if Ebene = 6
+      Unicode("∨") ; logisch oder
+   PriorDeadKey := ""
+return
+
+*�::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind}- ; Bind
+   else if Ebene = 2
+      Unicode("–") ; Ged
+   else if Ebene = 3
+      Unicode("—")
+   else if Ebene = 4
+      Unicode("╌")
+   else if Ebene = 5
+      Unicode("‑")
+   else if Ebene = 6
+      Unicode("∧") ; logisch und
+   PriorDeadKey := ""
+return
+
+*�::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      send {�}{space} ; akut, tot
+      PriorDeadKey := "a1"
+   }
+   else if Ebene = 2
+   {
+      send ``{space}
+      PriorDeadKey := "a2"
+   }
+   else if Ebene = 3
+   {
+      send � ; cedilla
+      PriorDeadKey := "a3"
+   }
+   else if Ebene = 4
+   {
+      Unicode("˛") ; ogonek
+      PriorDeadKey := "a4"
+   }
+   else if Ebene = 5
+   {
+      Unicode("˙") ; punkt oben dr�ber
+      PriorDeadKey := "a5"
+   }
+   else if Ebene = 6
+   {
+      Unicode("˚")  ; ring obendrauf
+      PriorDeadKey := "a6"
+   }
+return
+
+
+/*
+   ------------------------------------------------------
+   Reihe 2
+   ------------------------------------------------------
+*/
+
+*q::
+   EbeneAktualisieren()
+   if Ebene = 1
+      sendinput {blind}x
+   else if Ebene = 2
+      sendinput {blind}X
+   else if Ebene = 3
+      send @
+   else if Ebene = 4
+      Unicode("ξ") ;xi
+   else if Ebene = 5
+      send @         ; Redundanz
+   else if Ebene = 6
+      Unicode("Ξ")  ; Xi
+   PriorDeadKey := ""
+return
+
+
+*w::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c6")      ; punkt darunter 
+         BSUnicode("ṿ")
+      Else
+         sendinput {blind}v
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c6")      ; punkt darunter
+         BSUnicode("Ṿ")
+      Else 
+         sendinput {blind}V
+   }
+   else if Ebene = 3
+      send _
+   else if Ebene = 5
+      Send {Backspace}
+   else if Ebene = 6
+      Unicode("Λ")  ; Lambda
+   PriorDeadKey := ""
+return
+
+
+
+*e::
+   EbeneAktualisieren()
+   if Ebene = 1
+   { 
+      If (PriorDeadKey = "t5")       ; Schr�gstrich
+         BSUnicode("ł")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("ĺ")
+      Else If (PriorDeadKey = "c2")     ; caron 
+         BSUnicode("ľ")
+      Else If (PriorDeadKey = "a3")    ; cedilla
+         BSUnicode("ļ")
+      Else If (PriorDeadKey = "c5")  ; Mittenpunkt
+         BSUnicode("ŀ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("ḷ")
+      Else 
+         sendinput {blind}l
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "a1")           ; akut 
+         BSUnicode("Ĺ")
+      Else If (PriorDeadKey = "c2")     ; caron 
+         BSUnicode("Ľ")
+      Else If (PriorDeadKey = "a3")    ; cedilla
+         BSUnicode("Ļ")
+      Else If (PriorDeadKey = "t5")  ; Schr�gstrich 
+         BSUnicode("Ł")
+      Else If (PriorDeadKey = "c5")  ; Mittenpunkt 
+         BSUnicode("Ŀ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("Ḷ")
+      Else 
+         sendinput {blind}L
+   }      
+   else if Ebene = 3
+      send [
+   else if Ebene = 4
+      Unicode("λ") ;lambda
+   else if Ebene = 5
+      Sendinput {Blind}{Up}
+   else if Ebene = 6
+      Sendinput {Blind}+{Up}
+   PriorDeadKey := ""
+return
+
+
+*r::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("ĉ")
+      Else If (PriorDeadKey = "c2")     ; caron
+         BSUnicode("č")
+      Else If (PriorDeadKey = "a1")      ; akut
+         BSUnicode("ć")
+      Else If (PriorDeadKey = "a3")    ; cedilla
+         BSUnicode("ç")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("ċ")
+      Else 
+         sendinput {blind}c
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c1")          ; circumflex 
+         BSUnicode("Ĉ")
+      Else If (PriorDeadKey = "c2")    ; caron 
+         BSUnicode("Č")
+      Else If (PriorDeadKey = "a1")     ; akut 
+         BSUnicode("Ć")
+      Else If (PriorDeadKey = "a3")   ; cedilla 
+         BSUnicode("Ç")
+      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
+         BSUnicode("Ċ")
+      Else 
+         sendinput {blind}C
+   }
+   else if Ebene = 3
+      send ]
+   else if Ebene = 4
+      Unicode("χ") ;chi
+   else if Ebene = 5
+      Send {Tab}
+   else if Ebene = 6
+      Send +{Tab}
+   PriorDeadKey := ""
+return
+
+*t::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("ŵ")
+      Else
+         sendinput {blind}w
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("ŵ")
+      Else
+         sendinput {blind}W
+   }
+   else if Ebene = 3
+      send {^}{space} ; untot
+   else if Ebene = 5
+      Send {Insert}
+   else if Ebene = 6
+      Send +{Insert}
+   PriorDeadKey := ""
+return
+
+*z::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "a3")         ; cedilla
+         BSUnicode("ķ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("ḳ")
+      Else
+         sendinput {blind}k
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "a3")         ; cedilla 
+         BSUnicode("Ķ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("Ḳ")
+      Else
+         sendinput {blind}K
+   }
+   else if Ebene = 3
+      sendraw !
+   else if Ebene = 4
+      Unicode("κ") ;kappa
+   else if Ebene = 5
+      Send �
+   PriorDeadKey := ""
+return
+
+*u::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("ĥ")
+      Else If (PriorDeadKey = "c4")   ; Querstrich 
+         BSUnicode("ħ")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("ḣ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("ḥ")
+      Else sendinput {blind}h
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("Ĥ")
+      Else If (PriorDeadKey = "c4")   ; Querstrich
+         BSUnicode("Ħ")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("Ḣ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("Ḥ")
+      Else sendinput {blind}H
+   }
+   else if Ebene = 3
+   {
+      If (PriorDeadKey = "c4")    ; Querstrich
+         BSUnicode("≤")
+      Else
+         send {blind}<
+   }
+   else if Ebene = 4
+      Unicode("ψ") ;psi
+   else if Ebene = 5
+      Send 7
+   else if Ebene = 6
+      Unicode("Ψ")  ; Psi
+   PriorDeadKey := ""
+return
+
+*i::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("ĝ")
+      Else If (PriorDeadKey = "c3")   ; brevis
+         BSUnicode("ğ")
+      Else If (PriorDeadKey = "a3")   ; cedilla
+         BSUnicode("ģ")
+      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
+         BSUnicode("ġ")
+      Else sendinput {blind}g
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("Ĝ") 
+      Else If (PriorDeadKey = "c3")    ; brevis 
+         BSUnicode("Ğ")
+      Else If (PriorDeadKey = "a3")    ; cedilla 
+         BSUnicode("Ģ")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("Ġ")
+      Else sendinput {blind}G
+   }
+   else if Ebene = 3
+   {
+      If (PriorDeadKey = "c4")    ; Querstrich
+         BSUnicode("≥")
+      Else
+         send >
+   }
+   else if Ebene = 4
+      Unicode("γ") ;gamma
+   else if Ebene = 5
+      Send 8
+   else if Ebene = 6
+      Unicode("Γ")  ; Gamma
+   PriorDeadKey := ""
+return
+
+*o::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "t5")      ; durchgestrichen
+         BSUnicode("ƒ")
+      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
+         BSUnicode("ḟ")
+      Else sendinput {blind}f
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "t5")       ; durchgestrichen
+         BSUnicode("₣")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("Ḟ")
+      Else sendinput {blind}F
+   } 
+   else if Ebene = 3
+   {
+      If (PriorDeadKey = "c1")            ; circumflex 
+         BSUnicode("≙")
+      Else If (PriorDeadKey = "t1")       ; tilde 
+         BSUnicode("≅")
+      Else If (PriorDeadKey = "t5")   ; Schr�gstrich 
+         BSUnicode("≠")
+      Else If (PriorDeadKey = "c4")    ; Querstrich
+         BSUnicode("≡")
+      Else If (PriorDeadKey = "c2")      ; caron 
+         BSUnicode("≚")
+      Else If (PriorDeadKey = "a6")  ; ring dr�ber 
+         BSUnicode("≗")
+         
+
+
+/*
+        was bedeutet dieser PriorHotkey?
+*/
+
+      Else If A_PriorHotkey = +1      ; Grad
+         BSUnicode("≗")
+      Else
+         send `=
+   }
+   else if Ebene = 4
+      Unicode("φ") ;phi
+   else if Ebene = 5
+      Send 9
+   else if Ebene = 6
+      Unicode("Φ")  ; Phi
+   PriorDeadKey := ""
+return
+
+*p::
+   EbeneAktualisieren()
+   if Ebene = 1
+      sendinput {blind}q
+   else if Ebene = 2
+      sendinput {blind}Q
+   else if Ebene = 3
+      send {&}
+   else if Ebene = 4
+      Unicode("ɸ")  ; Varphi?
+   else if Ebene = 5
+      Send {+}
+   else if Ebene = 6
+      Unicode("∂") ; "verdrehtes e"
+   PriorDeadKey := ""
+return
+
+*�::
+   EbeneAktualisieren()
+   if Ebene = 1
+      if GetKeyState("CapsLock","T")
+      {
+         Unicode("ẞ") ; versal-�
+      }
+      else
+      {
+         send �
+      }      
+   else if Ebene = 2
+      if GetKeyState("CapsLock","T")
+      {
+         send �
+      }
+      else
+      {
+         Unicode("ẞ") ; versal-�
+      }
+   else if Ebene = 3
+      Unicode("ſ")   ; langes s
+   else if Ebene = 4
+      Unicode("ς") 
+   else if Ebene = 5
+      Unicode("ə") ; schwa
+   else if Ebene = 6
+      Unicode("Ə")  ; Schwa
+   PriorDeadKey := ""
+return
+
+
+*+::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      Unicode("˜")    ; tilde, tot 
+      PriorDeadKey := "t1"
+   }
+   else if Ebene = 2
+   {
+      Unicode("ˉ")  ; macron, tot
+      PriorDeadKey := "t2"
+   }
+   else if Ebene = 3
+   {
+      Unicode("¨")   ; Diaerese
+      PriorDeadKey := "t3"
+   }
+   else if Ebene = 4
+   {
+      send "        ;doppelakut
+      PriorDeadKey := "t4"
+   }
+   else if Ebene = 5
+   {
+      Unicode("/")  ; Schr�gstrich, tot
+      PriorDeadKey := "t5"
+   }
+   else if Ebene = 6
+   {
+      Unicode("ˏ")  ; komma drunter, tot
+      PriorDeadKey := "t6"
+   }
+return
+
+
+/*
+   ------------------------------------------------------
+   Reihe 3
+   ------------------------------------------------------
+*/
+
+*a::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("û")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("ú")
+      Else If (PriorDeadKey = "a2")     ; grave
+         BSUnicode("ù")
+      Else If (PriorDeadKey = "t3")    ; Diaerese
+         Send, {bs}�
+      Else If (PriorDeadKey = "t4")   ; doppelakut 
+         BSUnicode("ű")
+      Else If (PriorDeadKey = "c3")    ; brevis
+         BSUnicode("ŭ")
+      Else If (PriorDeadKey = "t2")     ; macron
+         BSUnicode("ū")
+      Else If (PriorDeadKey = "a4")   ; ogonek
+         BSUnicode("ų")
+      Else If (PriorDeadKey = "a6") ; Ring
+         BSUnicode("ů")
+      Else If (PriorDeadKey = "t1")      ; tilde
+         BSUnicode("ũ")
+      Else
+         sendinput {blind}u
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("Û")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("Ú")
+      Else If (PriorDeadKey = "a2")     ; grave
+         BSUnicode("Ù")
+      Else If (PriorDeadKey = "t3")    ; Diaerese
+         Send, {bs}�
+      Else If (PriorDeadKey = "a6") ; Ring
+         BSUnicode("Ů")
+      Else If (PriorDeadKey = "c3")    ; brevis
+         BSUnicode("Ŭ")
+      Else If (PriorDeadKey = "t4")   ; doppelakut
+         BSUnicode("Ű")
+      Else If (PriorDeadKey = "c2")     ; caron 
+         BSUnicode("Ů")
+      Else If (PriorDeadKey = "t2")     ; macron
+         BSUnicode("Ū")
+      Else If (PriorDeadKey = "c3")    ; brevis 
+         BSUnicode("Ŭ")
+      Else If (PriorDeadKey = "a4")   ; ogonek
+         BSUnicode("Ų")
+      Else If (PriorDeadKey = "t1")      ; tilde
+         BSUnicode("Ũ")
+      Else
+         sendinput {blind}U
+   }
+   else if Ebene = 3
+      send \
+   else if Ebene = 5
+      Send {blind}{Home}
+   else if Ebene = 6
+      Send {blind}+{Home}
+   PriorDeadKey := ""
+return
+
+*s::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("î")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("í")
+      Else If (PriorDeadKey = "a2")     ; grave
+         BSUnicode("ì")
+      Else If (PriorDeadKey = "t3")   ; Diaerese
+         Send, {bs}�
+      Else If (PriorDeadKey = "t2")    ; macron
+         BSUnicode("ī")
+      Else If (PriorDeadKey = "c3")   ; brevis
+         BSUnicode("ĭ")
+      Else If (PriorDeadKey = "a4")  ; ogonek
+         BSUnicode("į")
+      Else If (PriorDeadKey = "t1")     ; tilde
+         BSUnicode("ĩ")
+      Else If (PriorDeadKey = "a5") ; (ohne) punkt dar�ber 
+         BSUnicode("ı")
+      Else 
+         sendinput {blind}i
+   }
+   else if Ebene = 2
+   {   
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("Î")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("Í")
+      Else If (PriorDeadKey = "a2")     ; grave
+         BSUnicode("Ì")
+      Else If (PriorDeadKey = "t3")    ; Diaerese
+         Send, {bs}�
+      Else If (PriorDeadKey = "t2")     ; macron
+         BSUnicode("Ī")
+      Else If (PriorDeadKey = "c3")    ; brevis 
+         BSUnicode("Ĭ")
+      Else If (PriorDeadKey = "a4")   ; ogonek
+         BSUnicode("Į")
+      Else If (PriorDeadKey = "t1")      ; tilde
+         BSUnicode("Ĩ")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("İ")
+      Else 
+         sendinput {blind}I
+   }
+   else if Ebene = 3
+      send `/
+   else if Ebene = 4
+      Unicode("ι") ;iota
+   else if Ebene = 5
+      Sendinput {Blind}{Left}
+   else if Ebene = 6
+      Sendinput {Blind}+{Left}
+   PriorDeadKey := ""
+return
+
+*d::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("â")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("á")
+      Else If (PriorDeadKey = "a2")     ; grave
+         BSUnicode("à")
+      Else If (PriorDeadKey = "t3")    ; Diaerese
+         send {bs}�
+      Else If (PriorDeadKey = "a6") ; Ring 
+         Send {bs}�
+      Else If (PriorDeadKey = "t1")      ; tilde
+         BSUnicode("ã")
+      Else If (PriorDeadKey = "a4")   ; ogonek
+         BSUnicode("ą")
+      Else If (PriorDeadKey = "t2")     ; macron
+         BSUnicode("ā")
+      Else If (PriorDeadKey = "c3")    ; brevis
+         BSUnicode("ă")
+      Else 
+         sendinput {blind}a
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c1")            ; circumflex
+         BSUnicode("Â")
+      Else If (PriorDeadKey = "a1")       ; akut 
+         BSUnicode("Á")
+      Else If (PriorDeadKey = "a2")      ; grave
+         BSUnicode("À")
+      Else If (PriorDeadKey = "t3")     ; Diaerese
+         send {bs}�
+      Else If (PriorDeadKey = "t1")       ; tilde
+         BSUnicode("Ã")
+      Else If (PriorDeadKey = "a6")  ; Ring 
+         Send {bs}�
+      Else If (PriorDeadKey = "t2")      ; macron
+         BSUnicode("Ā")
+      Else If (PriorDeadKey = "c3")     ; brevis 
+         BSUnicode("Ă")
+      Else If (PriorDeadKey = "a4")    ; ogonek
+         BSUnicode("Ą")
+      Else 
+         sendinput {blind}A
+   }
+   else if Ebene = 3
+      sendraw {
+   else if Ebene = 4
+      Unicode("α") ;alpha
+   else if Ebene = 5
+      Sendinput {Blind}{Down}
+   else if Ebene = 6
+      Sendinput {Blind}+{Down}
+   PriorDeadKey := ""
+return
+
+*f::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("ê")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("é")
+      Else If (PriorDeadKey = "a2")     ; grave
+         BSUnicode("è")
+      Else If (PriorDeadKey = "t3")   ; Diaerese
+         Send, {bs}�
+      Else If (PriorDeadKey = "a4")  ; ogonek
+         BSUnicode("ę")
+      Else If (PriorDeadKey = "t2")    ; macron
+         BSUnicode("ē")
+      Else If (PriorDeadKey = "c3")   ; brevis
+         BSUnicode("ĕ")
+      Else If (PriorDeadKey = "c2")    ; caron
+         BSUnicode("ě")
+      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
+         BSUnicode("ė")
+      Else 
+         sendinput {blind}e
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("Ê")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("É")
+      Else If (PriorDeadKey = "a2")     ; grave
+         BSUnicode("È")
+      Else If (PriorDeadKey = "t3")    ; Diaerese
+         Send, {bs}�
+      Else If (PriorDeadKey = "c2")     ; caron
+         BSUnicode("Ě")
+      Else If (PriorDeadKey = "t2")     ; macron
+         BSUnicode("Ē")
+      Else If (PriorDeadKey = "c3")    ; brevis 
+         BSUnicode("Ĕ")
+      Else If (PriorDeadKey = "a4")   ; ogonek 
+         BSUnicode("Ę")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("Ė")
+      Else 
+         sendinput {blind}E
+   }
+   else if Ebene = 3
+      sendraw }
+   else if Ebene = 4
+      Unicode("ε") ;epsilon
+   else if Ebene = 5
+      Sendinput {Blind}{Right}
+   else if Ebene = 6
+      Sendinput {Blind}+{Right}
+   PriorDeadKey := ""
+return
+
+*g::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("ô")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("ó")
+      Else If (PriorDeadKey = "a2")     ; grave
+         BSUnicode("ò")
+      Else If (PriorDeadKey = "t3")    ; Diaerese
+         Send, {bs}�
+      Else If (PriorDeadKey = "t1")      ; tilde
+         BSUnicode("õ")
+      Else If (PriorDeadKey = "t4")   ; doppelakut
+         BSUnicode("ő")
+      Else If (PriorDeadKey = "t5")  ; Schr�gstrich
+         BSUnicode("ø")
+      Else If (PriorDeadKey = "t2")     ; macron
+         BSUnicode("ō")
+      Else If (PriorDeadKey = "c3")    ; brevis 
+         BSUnicode("ŏ")
+      Else 
+         sendinput {blind}o
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("Ô")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("Ó")
+      Else If (PriorDeadKey = "a2")     ; grave
+         BSUnicode("Ò")
+      Else If (PriorDeadKey = "t5")  ; Schr�gstrich
+         BSUnicode("Ø")
+      Else If (PriorDeadKey = "t1")      ; tilde
+         BSUnicode("Õ")
+      Else If (PriorDeadKey = "t4")   ; doppelakut
+         BSUnicode("Ő")
+      Else If (PriorDeadKey = "t3")    ; Diaerese
+         send {bs}�
+      Else If (PriorDeadKey = "t2")     ; macron 
+         BSUnicode("Ō")
+      Else If (PriorDeadKey = "c3")    ; brevis 
+         BSUnicode("Ŏ")
+      Else
+         sendinput {blind}O
+   }
+   else if Ebene = 3
+      send *
+   else if Ebene = 4
+      Unicode("ω") ;omega
+   else if Ebene = 5
+      Send {blind}{End}
+   else if Ebene = 6
+      Send {blind}+{End}
+   PriorDeadKey := ""
+return
+
+*h::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("ŝ")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("ś")
+      Else If (PriorDeadKey = "c2")     ; caron
+         BSUnicode("š")
+      Else If (PriorDeadKey = "a3")    ; cedilla
+         BSUnicode("ş")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("ṡ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("ṣ")
+      Else   
+         sendinput {blind}s
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("Ŝ")
+      Else If (PriorDeadKey = "c2")     ; caron
+         BSUnicode("Š")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("Ś")
+      Else If (PriorDeadKey = "a3")    ; cedilla 
+         BSUnicode("Ş")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("�")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("Ṣ")
+      Else
+         sendinput {blind}S
+   }
+   else if Ebene = 3
+      send ?
+   else if Ebene = 4
+      Unicode("σ") ;sigma
+   else if Ebene = 5
+      Send �
+   else if Ebene = 6
+      Unicode("Σ")  ; Sigma
+   PriorDeadKey := ""
+return
+
+*j::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "a1")          ; akut
+         BSUnicode("ń")
+      Else If (PriorDeadKey = "t1")     ; tilde
+         BSUnicode("ñ")
+      Else If (PriorDeadKey = "c2")    ; caron
+         BSUnicode("ň")
+      Else If (PriorDeadKey = "a3")   ; cedilla
+         BSUnicode("ņ")
+      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
+         BSUnicode("ṅ")
+      Else
+         sendinput {blind}n
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c2")         ; caron
+         BSUnicode("Ň")
+      Else If (PriorDeadKey = "t1")     ; tilde
+         BSUnicode("Ñ")
+      Else If (PriorDeadKey = "a1")     ; akut 
+         BSUnicode("Ń")
+      Else If (PriorDeadKey = "a3")   ; cedilla 
+         BSUnicode("Ņ")
+      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
+         BSUnicode("Ṅ")
+      Else
+         sendinput {blind}N
+   }
+   else if Ebene = 3
+      send (
+   else if Ebene = 4
+      Unicode("ν") ;nu
+   else if Ebene = 5
+      Send 4
+   PriorDeadKey := ""
+return
+
+*k::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "a1")           ; akut 
+         BSUnicode("ŕ")
+      Else If (PriorDeadKey = "c2")     ; caron
+         BSUnicode("ř")
+      Else If (PriorDeadKey = "a3")    ; cedilla
+         BSUnicode("ŗ")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("ṙ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("ṛ")
+      Else 
+         sendinput {blind}r
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c2")          ; caron
+         BSUnicode("Ř")
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("Ŕ")
+      Else If (PriorDeadKey = "a3")    ; cedilla 
+         BSUnicode("Ŗ")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("Ṙ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("Ṛ")
+      Else 
+         sendinput {blind}R
+   }
+   else if Ebene = 3
+      send )
+   else if Ebene = 4
+      Unicode("ρ") ;rho
+   else if Ebene = 5
+      Send 5
+   PriorDeadKey := ""
+return
+
+*l::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c2")          ; caron 
+         BSUnicode("ť")
+      Else If (PriorDeadKey = "a3")    ; cedilla
+         BSUnicode("ţ")
+      Else If (PriorDeadKey = "c4")   ; Querstrich
+         BSUnicode("ŧ")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("ṫ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("ṭ")
+      Else 
+         sendinput {blind}t
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c2")          ; caron
+         BSUnicode("Ť")
+      Else If (PriorDeadKey = "a3")    ; cedilla 
+         BSUnicode("Ţ")
+      Else If (PriorDeadKey = "c4")   ; Querstrich
+         BSUnicode("Ŧ")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("Ṫ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("Ṭ")
+      Else 
+         sendinput {blind}T
+   }
+   else if Ebene = 3
+      send {blind}- ; Bind
+   else if Ebene = 4
+      Unicode("τ") ;tau
+   else if Ebene = 5
+      Send 6
+   PriorDeadKey := ""
+return
+
+*�::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c4")        ; Querstrich
+         BSUnicode("đ")
+      Else If (PriorDeadKey = "t5")  ; Schr�gstrich
+         BSUnicode("ð")
+      Else If (PriorDeadKey = "c2")     ; caron
+         BSUnicode("ď")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("ḋ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("ḍ")
+      Else 
+         sendinput {blind}d
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c4")        ; Querstrich
+         BSUnicode("Đ")
+      Else If (PriorDeadKey = "t5")  ; Schr�gstrich
+         BSUnicode("Ð")
+      Else If (PriorDeadKey = "c2")     ; caron 
+         BSUnicode("Ď")
+      Else If (PriorDeadKey = "a5")  ; punkt dar�ber 
+         BSUnicode("Ḋ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("Ḍ")
+      Else sendinput {blind}D
+   }
+   else if Ebene = 3
+      send :
+   else if Ebene = 4
+      Unicode("δ") ;delta
+   else if Ebene = 5
+      Send `,
+   else if Ebene = 6
+      Unicode("Δ")  ; Delta
+   PriorDeadKey := ""
+return
+
+*�::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "t3")       ; Diaerese
+         Send {bs}�
+      Else If (PriorDeadKey = "a1")      ; akut 
+         BSUnicode("ý")
+      Else If (PriorDeadKey = "c1")    ; circumflex
+         BSUnicode("ŷ")
+      Else
+         sendinput {blind}y
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "a1")           ; akut 
+         BSUnicode("Ý")
+      Else If (PriorDeadKey = "t3")    ; Diaerese
+         Send {bs}�
+      Else If (PriorDeadKey = "c1")      ; circumflex
+         BSUnicode("Ŷ")
+      Else
+         sendinput {blind}Y
+   }
+   else if Ebene = 4
+      Unicode("υ") ;upsilon
+   else if Ebene = 5
+      Send �         ; thorn
+   else if Ebene = 6
+      Send �         ; Thorn
+   PriorDeadKey := ""
+return
+
+;SC02B (#) wird zu Mod3
+
+
+/*
+   ------------------------------------------------------
+   Reihe 4
+   ------------------------------------------------------
+*/
+
+;SC056 (<) wird zu Mod5
+
+*y::
+   EbeneAktualisieren()
+   if Ebene = 1
+      sendinput {blind}�
+   else if Ebene = 2
+      sendinput {blind}�
+   else if Ebene = 3
+      send {blind}{#}
+   else if Ebene = 5
+      Send {Esc}
+   PriorDeadKey := ""
+return
+
+*x::
+   EbeneAktualisieren()
+   if Ebene = 1
+      sendinput {blind}�
+   else if Ebene = 2
+      sendinput {blind}�
+   else if Ebene = 3
+      send $
+   else if Ebene = 5
+      Send {Del}
+   else if Ebene = 6
+      Send +{Del}
+   PriorDeadKey := ""
+return
+
+*c::
+   EbeneAktualisieren()
+   if Ebene = 1
+      sendinput {blind}�
+   else if Ebene = 2
+      sendinput {blind}�
+   else if Ebene = 3
+      send |
+   else if Ebene = 4
+      Unicode("η") ;eta
+   else if Ebene = 5
+      Send {PgDn}    ; Next
+   else if Ebene = 6
+      Send +{PgDn}
+   PriorDeadKey := ""
+return
+
+*v::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "a5")      ; punkt dar�ber 
+         BSUnicode("ṗ")
+      Else
+         sendinput {blind}p
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "a5")      ; punkt dar�ber 
+         BSUnicode("Ṗ")
+      Else 
+         sendinput {blind}P
+   }
+   else if Ebene = 3
+   {
+      If (PriorDeadKey = "t1")    ; tilde
+         BSUnicode("≈")
+      Else
+         sendraw ~
+   }      
+   else if Ebene = 4
+      Unicode("π") ;pi
+   else if Ebene = 5
+      Send {Enter}
+   else if Ebene = 6
+      Unicode("Π")  ; Pi
+   PriorDeadKey := ""
+return
+
+*b::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c2")         ; caron
+         BSUnicode("ž")
+      Else If (PriorDeadKey = "a1")     ; akut
+         BSUnicode("ź")
+      Else If (PriorDeadKey = "a5") ; punkt dr�ber
+         BSUnicode("ż")
+      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
+         BSUnicode("ż")
+      Else 
+         sendinput {blind}z
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c2")         ; caron  
+         BSUnicode("Ž")
+      Else If (PriorDeadKey = "a1")     ; akut 
+         BSUnicode("Ź")
+      Else If (PriorDeadKey = "a5") ; punkt dar�ber 
+         BSUnicode("Ż")
+      Else
+         sendinput {blind}Z
+   }
+   else if Ebene = 3
+      send ``{space} ; untot
+   else if Ebene = 4
+      Unicode("ζ") ;zeta
+   else if Ebene = 6
+      Unicode("Ω")  ; Omega
+   PriorDeadKey := ""
+return
+
+*n::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "a5")      ; punkt dar�ber 
+         BSUnicode("ḃ")
+      Else 
+         sendinput {blind}b
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "a5")       ; punkt dar�ber 
+         BSUnicode("Ḃ")
+      Else 
+         sendinput {blind}B
+   }
+   else if Ebene = 3
+      send {blind}{+}
+   else if Ebene = 4
+      Unicode("β") ;beta
+   else if Ebene = 6
+      Unicode("∞") ;infty
+   PriorDeadKey := ""
+return
+
+*m::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "a5")       ; punkt dar�ber 
+         BSUnicode("ṁ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("ṃ")
+      Else 
+         sendinput {blind}m
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "a5")       ; punkt dar�ber 
+         BSUnicode("Ṁ")
+      Else If (PriorDeadKey = "c6") ; punkt darunter 
+         BSUnicode("Ṃ")
+      Else 
+         sendinput {blind}M
+   }
+   else if Ebene = 3
+      send `%
+   else if Ebene = 4
+      Unicode("µ") ;micro, mu w�re μ
+   else if Ebene = 5
+      Send 1
+   else if Ebene = 6
+      Unicode("∫") ; Int
+   PriorDeadKey := ""
+return
+
+*,::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind},
+   else if Ebene = 3
+      send '
+   else if Ebene = 4
+      Unicode("ϱ") ; varsigma
+   else if Ebene = 5
+      Send 2
+   else if Ebene = 6
+      Unicode("√") ; sqrt
+   PriorDeadKey := ""
+return
+
+*.::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind}.
+   else if Ebene = 2
+      Unicode("…")  ; ellipse
+   else if Ebene = 3
+      send "
+   else if Ebene = 4
+      Unicode("θ") ;theta
+   else if Ebene = 5
+      Send 3
+   else if Ebene = 6
+      Unicode("Θ")  ; Theta
+   PriorDeadKey := ""
+return
+
+
+*-::
+   EbeneAktualisieren()
+   if Ebene = 1
+   {
+      If (PriorDeadKey = "c1")           ; circumflex
+         BSUnicode("ĵ")
+      Else
+         sendinput {blind}j
+   }
+   else if Ebene = 2
+   {
+      If (PriorDeadKey = "c1")            ; circumflex
+         BSUnicode("Ĵ")
+      Else
+         sendinput {blind}J
+   }
+   else if Ebene = 3
+      send `;
+   else if Ebene = 4
+      Unicode("ϑ") ; vartheta
+   else if Ebene = 5
+      Send .
+   else if Ebene = 6
+      Unicode("∇") ; Nabla
+   PriorDeadKey := ""
+return
+
+/*
+   ------------------------------------------------------
+   Numpad
+   ------------------------------------------------------
+
+   folgende Tasten verhalten sich bei ein- und ausgeschaltetem
+   NumLock gleich:
+*/
+
+*NumpadDiv::
+   EbeneAktualisieren()
+   if ( (Ebene = 1) or (Ebene = 2) )
+      send {NumpadDiv}
+   else if Ebene = 3
+      send �
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("∕")   ; slash
+   PriorDeadKey := ""
+return
+
+*NumpadMult::
+   EbeneAktualisieren()
+   if ( (Ebene = 1) or (Ebene = 2) )
+      send {NumpadMult}
+   else if Ebene = 3
+      send �
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("⋅")  ; cdot
+   PriorDeadKey := ""
+return
+
+*NumpadSub::
+   EbeneAktualisieren()
+   if ( (Ebene = 1) or (Ebene = 2) )
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("⁻")
+      Else
+         send {blind}{NumpadSub}
+   }
+   else if Ebene = 3
+      Unicode("−") ; echtes minus
+   PriorDeadKey := ""
+return
+
+*NumpadAdd::
+   EbeneAktualisieren()
+   if ( (Ebene = 1) or (Ebene = 2) )
+   {
+      If (PriorDeadKey = "c1")          ; circumflex
+         BSUnicode("⁺")
+      Else
+         send {blind}{NumpadAdd}
+   }
+   else if Ebene = 3
+      send �
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("∓")   ; -+
+   PriorDeadKey := ""
+return
+
+*NumpadEnter::
+   EbeneAktualisieren()
+   if ( (Ebene = 1) or (Ebene = 2) )
+      send {NumpadEnter}      
+   else if Ebene = 3
+      Unicode("≠") ; neq
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("≈") ; approx
+   PriorDeadKey := ""
+return
+
+/*
+   folgende Tasten verhalten sich bei ein- und ausgeschaltetem NumLock
+   unterschiedlich:
+
+   bei NumLock ein
+*/
+
+*Numpad7::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind}{Numpad7}
+   else if Ebene = 2
+      send {NumpadHome}
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("≪")  ; ll
+   PriorDeadKey := ""
+return
+
+*Numpad8::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind}{Numpad8}
+   else if Ebene = 2
+      send {NumpadUp}
+   else if Ebene = 3
+      Unicode("↑")     ; uparrow
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("∩")    ;
+   PriorDeadKey := ""
+return
+
+*Numpad9::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind}{Numpad9}
+   else if Ebene = 2
+      send {NumpadPgUp}
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("≫")  ; gg
+   PriorDeadKey := ""
+return
+
+*Numpad4::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind}{Numpad4}
+   else if Ebene = 2
+      send {NumpadLeft}
+   else if Ebene = 3
+      Unicode("←")     ; leftarrow
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("⊂")  ;
+   PriorDeadKey := ""
+return
+
+*Numpad5::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind}{Numpad5}
+   else if Ebene = 2
+      send {NumpadClear}
+   else if Ebene = 3
+      send �
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("∊") ;
+   PriorDeadKey := ""
+return
+
+*Numpad6::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind}{Numpad6}
+   else if Ebene = 2
+      send {NumpadRight}
+   else if Ebene = 3
+      Unicode("→")     ; rightarrow
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("⊃") ;
+   PriorDeadKey := ""
+return
+
+*Numpad1::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind}{Numpad1}
+   else if Ebene = 2
+      send {NumpadEnd}
+   else if Ebene = 3
+      Unicode("⇋")
+      else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("≤")   ; leq
+   PriorDeadKey := ""
+return
+
+*Numpad2::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind}{Numpad2}
+   else if Ebene = 2
+      send {NumpadDown}
+   else if Ebene = 3
+      Unicode("↓")     ; downarrow
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("∪")  ;
+   PriorDeadKey := ""
+return
+
+*Numpad3::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind}{Numpad3}
+   else if Ebene = 2
+      send {NumpadPgDn}
+   else if Ebene = 3
+      Unicode("⇌")
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("≥")  ; geq
+   PriorDeadKey := ""
+return
+
+*Numpad0::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {blind}{Numpad0}
+   else if Ebene = 2
+      send {NumpadIns}
+   else if Ebene = 3
+      send `%
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      send � 
+   PriorDeadKey := ""
+return
+
+*NumpadDot::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {NumpadDot}
+   else if Ebene = 2
+      send {NumpadDel}
+   else if Ebene = 3
+      send .
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      send `,
+   PriorDeadKey := ""
+return
+
+/*
+   bei NumLock aus
+*/
+
+*NumpadHome::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {NumpadHome}
+   else if Ebene = 2
+      send {Numpad7}
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("≪")  ; ll
+   PriorDeadKey := ""
+return
+
+*NumpadUp::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {NumpadUp}
+   else if Ebene = 2
+      send {Numpad8}
+   else if Ebene = 3
+      Unicode("↑")     ; uparrow
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("∩")    ;
+   PriorDeadKey := ""
+return
+
+*NumpadPgUp::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {NumpadPgUp}
+   else if Ebene = 2
+      send {Numpad9}
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("≫")  ; gg
+   PriorDeadKey := ""
+return
+
+*NumpadLeft::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {NumpadLeft}
+   else if Ebene = 2
+      send {Numpad4}
+   else if Ebene = 3
+      Unicode("←")     ; leftarrow
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("⊂")  ;
+   PriorDeadKey := ""
+return
+
+*NumpadClear::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {NumpadClear}
+   else if Ebene = 2
+      send {Numpad5}
+   else if Ebene = 3
+      send �
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("∊") ;
+   PriorDeadKey := ""
+return
+
+*NumpadRight::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {NumpadRight}
+   else if Ebene = 2
+      send {Numpad6}
+   else if Ebene = 3
+      Unicode("→")     ; rightarrow
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("⊃") ;
+   PriorDeadKey := ""
+return
+
+*NumpadEnd::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {NumpadEnd}
+   else if Ebene = 2
+      send {Numpad1}
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("≤")   ; leq
+   PriorDeadKey := ""
+return
+
+*NumpadDown::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {NumpadDown}
+   else if Ebene = 2
+      send {Numpad2}
+   else if Ebene = 3
+      Unicode("↓")     ; downarrow
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("∪")  ;
+   PriorDeadKey := ""
+return
+
+*NumpadPgDn::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {NumpadPgDn}
+   else if Ebene = 2
+      send {Numpad3}
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      Unicode("≥")  ; geq
+   PriorDeadKey := ""
+return
+
+*NumpadIns::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {NumpadIns}
+   else if Ebene = 2
+      send {Numpad0}
+   else if Ebene = 3
+      send `%
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      send � 
+   PriorDeadKey := ""
+return
+
+*NumpadDel::
+   EbeneAktualisieren()
+   if Ebene = 1
+      send {NumpadDel}
+   else if Ebene = 2
+      send {NumpadDot}
+   else if Ebene = 3
+      send .
+   else if ( (Ebene = 4) or (Ebene = 5) )
+      send `,
+   PriorDeadKey := ""
+return
+
+
+
+/*
+   ------------------------------------------------------
+   Sondertasten
+   ------------------------------------------------------
+*/
+
+*Space::
+   EbeneAktualisieren()
+   if Ebene = 4
+      SendUnicodeChar(0x00A0)   ; gesch�tztes Leerzeichen
+   else if Ebene = 5
+      Send 0
+   else if Ebene = 6
+      SendUnicodeChar(0x202F) ; schmales Leerzeichen
+   else
+      Send {blind}{Space}
+   PriorDeadKey := ""
+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.
+*/
+
+*Enter::
+   sendinput {Blind}{Enter}
+   PriorDeadKey := ""
+return
+
+*Backspace::
+   sendinput {Blind}{Backspace}
+   PriorDeadKey := ""
+return
+
+
+
+/*
+Tab wurde rausgenommen, weil es Probleme mit AltTab und ShiftAltTab gab.
+Allerdings kommt es jetzt zu komischen Ergebnissen, wenn man Tab nach
+einem DeadKey dr�ckt...
+
+*Tab::
+   send {Blind}{Tab}
+   PriorDeadKey := ""
+return
+
+*/
+
+*Home::
+   sendinput {Blind}{Home}
+   PriorDeadKey := ""      
+return
+
+*End::
+   sendinput {Blind}{End}
+   PriorDeadKey := ""
+return
+
+*PgUp::
+   sendinput {Blind}{PgUp}
+   PriorDeadKey := ""
+return
+
+*PgDn::
+   sendinput {Blind}{PgDn}
+   PriorDeadKey := ""
+return
+
+*Up::
+   sendinput {Blind}{Up}
+   PriorDeadKey := ""
+return
+
+*Down::
+   sendinput {Blind}{Down}
+   PriorDeadKey := ""
+return
+
+*Left::
+   sendinput {Blind}{Left}
+   PriorDeadKey := ""
+return
+
+*Right::
+   sendinput {Blind}{Right}
+   PriorDeadKey := ""
+return
+
+
+/*
+   ------------------------------------------------------
+   Funktionen
+   ------------------------------------------------------
+*/
+
+EbeneAktualisieren()
+{
+   global
+   Ebene = 1
+
+   ; ist Shift down?
+   if ( GetKeyState("Shift","P") )
+   {
+      Ebene += 1
+   }
+   ; ist Mod3 down?
+   if ( GetKeyState("CapsLock","P") or GetKeyState("#","P") )
+   {
+      Ebene += 2
+   }
+   ; ist Mod5 down? Mod3 hat Vorrang!
+   else if ( GetKeyState("<","P") or GetKeyState("SC138","P") )
+   {
+      Ebene += 4
+   }
+   
+   return
+}
+
+Unicode(code)
+{
+   saved_clipboard := ClipboardAll
+   Transform, Clipboard, Unicode, %code%
+   sendplay ^v
+   Clipboard := saved_clipboard
+}
+
+BSUnicode(code)
+{
+   saved_clipboard := ClipboardAll
+   Transform, Clipboard, Unicode, %code%
+   sendplay {bs}^v
+   Clipboard := saved_clipboard
+}
+
+SendUnicodeChar(charCode)
+{
+   VarSetCapacity(ki, 28 * 2, 0)
+
+   EncodeInteger(&ki + 0, 1)
+   EncodeInteger(&ki + 6, charCode)
+   EncodeInteger(&ki + 8, 4)
+   EncodeInteger(&ki +28, 1)
+   EncodeInteger(&ki +34, charCode)
+   EncodeInteger(&ki +36, 4|2)
+
+   DllCall("SendInput", "UInt", 2, "UInt", &ki, "Int", 28)
+}
+
+EncodeInteger(ref, val)
+{
+   DllCall("ntdll\RtlFillMemoryUlong", "Uint", ref, "Uint", 4, "Uint", val)
+}
+
+
+/*
+   ------------------------------------------------------
+   Shift+Pause "pausiert" das Script.
+   ------------------------------------------------------
+*/
+
++pause::suspend
diff --git a/windows/XP/autohotkey/neo20-all-in-one.exe b/windows/XP/autohotkey/neo20-all-in-one.exe
new file mode 100644
index 0000000..95f6c66
Binary files /dev/null and b/windows/XP/autohotkey/neo20-all-in-one.exe differ
diff --git a/windows/XP/autohotkey/neo20-all-in-one.zip b/windows/XP/autohotkey/neo20-all-in-one.zip
deleted file mode 100644
index 03e0509..0000000
Binary files a/windows/XP/autohotkey/neo20-all-in-one.zip and /dev/null differ
-- 
cgit v1.2.3