1 files changed, 250 insertions, 0 deletions
diff --git a/windows/ahk-auslaufend/Source/Keys-NumPad.ahk b/windows/ahk-auslaufend/Source/Keys-NumPad.ahk
new file mode 100644
index 0000000..5f85a27
--- /dev/null
+++ b/windows/ahk-auslaufend/Source/Keys-NumPad.ahk
@@ -0,0 +1,250 @@
+neo_Numpad0:
+  EbeneAktualisieren()
+  if (Ebene = 1)
+    OutputChar("{Numpad0}", "KP_0")
+  else if (Ebene = 2)
+    SendUnicodeChar(0x2423, "U2423") ; space sign
+  else if (Ebene = 3)
+    SendUnicodeChar(0x0025, "percent") ; Prozent
+  else if (Ebene = 4)
+    send {blind}{NumpadIns}
+  else if (Ebene = 5)
+    OutputChar("‰", "U2030") ; Promille
+  else if (Ebene = 6)
+    SendUnicodeChar(0x25A1, "U25A1") ; white square
+return
+
+neo_Numpad1:
+  EbeneAktualisieren()
+  if (Ebene = 1)
+    OutputChar("{Numpad1}", "KP_1")
+  else if (Ebene = 2)
+    SendUnicodeChar(0x2666, "diamond") ; Karo
+  else if (Ebene = 3)
+    SendUnicodeChar(0x2194, "U2194") ; Links-Rechts-Pfeil
+  else if (Ebene = 4)
+    send {blind}{NumpadEnd}
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2264, "lessthanequal")
+  else if (Ebene = 6)
+    SendUnicodeChar(0x230A, "downstile") ;linke Untergrenze
+return
+
+neo_Numpad2:
+  EbeneAktualisieren()
+  if (Ebene = 1)
+    OutputChar("{Numpad2}", "KP_2")
+  else if (Ebene = 2)
+    SendUnicodeChar(0x2265, "heart")
+  else if (Ebene = 3)
+    SendUnicodeChar(0x2192, "downarrow")
+  else if (Ebene = 4)
+    send {blind}{NumpadDown}
+  else if (Ebene = 5)
+    SendUnicodeChar(0x222A, "union") ; Vereinigung
+  else if (Ebene = 6)
+    SendUnicodeChar(0x22C3, "U22C3") ; n-ary union
+return
+
+neo_Numpad3:
+  EbeneAktualisieren()
+  if (Ebene = 1)
+    OutputChar("{Numpad3}", "KP_3")
+  else if (Ebene = 2)
+    SendUnicodeChar(0x2660, "U2660") ; Pik
+  else if (Ebene = 3)
+    SendUnicodeChar(0x21CC, "U21CC") ; Harpune
+  else if (Ebene = 4)
+    send {blind}{NumpadPgDn}
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2265, "greaterthanequal")
+  else if (Ebene = 6)
+    SendUnicodeChar(0x230B, "U230B") ; rechte Untergrenze
+return
+
+neo_Numpad4:
+  EbeneAktualisieren()
+  if (Ebene = 1)
+    OutputChar("{Numpad4}", "KP_4")
+  else if (Ebene = 2)
+    SendUnicodeChar(0x2663, "club") ; schwarzes Kreuz
+  else if (Ebene = 3)
+    SendUnicodeChar(0x2190, "leftarrow") ; Linkspfeil
+  else if (Ebene = 4)
+    send {blind}{NumpadLeft}
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2282, "includein") ; Teilmenge
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2286, "U2286") ; Teilmenge-gleich
+return
+
+neo_Numpad5:
+  EbeneAktualisieren()
+  if (Ebene = 1)
+    OutputChar("{Numpad5}", "KP_5")
+  else if (Ebene = 2)
+    SendUnicodeChar(0x20AC, "EuroSign") ; Euro
+  else if (Ebene = 3)
+    SendUnicodeChar(0x00A6, "brokenbar")
+  else if (Ebene = 4)
+    send {blind}{NumPadClear} ; begin
+  else if (Ebene = 5)
+    SendUnicodeChar(0x22B6, "U22B6") ; original of
+  else if (Ebene = 6)
+    SendUnicodeChar(0x22B7, "U22B7") ; image of
+return
+
+neo_Numpad6:
+  EbeneAktualisieren()
+  if (Ebene = 1)
+    OutputChar("{Numpad6}", "KP_6")
+  else if (Ebene = 3)
+    SendUnicodeChar(0x2192, "rightarrow") ; Rechtspfeil
+  else if (Ebene = 4)
+    send {blind}{NumpadRight}
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2283, "includes") ; Obermenge
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2287, "U2287") ; Obermenge-gleich
+return
+
+neo_Numpad7:
+  EbeneAktualisieren()
+  if (Ebene = 1)
+    OutputChar("{Numpad7}", "KP_7")
+  else if (Ebene = 2)
+    SendUnicodeChar(0x2714, "U2714") ; check mark
+  else if (Ebene = 3)
+    SendUnicodeChar(0x2195, "U2195") ; Hoch-Runter-Pfeil
+  else if (Ebene = 4)
+    send {blind}{NumpadHome}
+  else if (Ebene = 5)
+    SendUnicodeChar(0x226A, "U226A") ; much less
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2308, "upstile") ; linke Obergrenze
+return
+
+neo_Numpad8:
+  EbeneAktualisieren()
+  if (Ebene = 1)
+    OutputChar("{Numpad8}", "KP_8")
+  else if (Ebene = 2)
+    SendUnicodeChar(0x2718, "U2718") ; ballot x
+  else if (Ebene = 3)
+    SendUnicodeChar(0x2191, "uparrow") ; Hochpfeil
+  else if (Ebene = 4)
+    send {blind}{NumpadUp}
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2229, "intersection") ; Durchschnitt
+  else if (Ebene = 6)
+    SendUnicodeChar(0x22C2, "U22C2") ; n-ary intersection
+return
+
+neo_Numpad9:
+  EbeneAktualisieren()
+  if (Ebene = 1)
+    OutputChar("{Numpad9}", "KP_9")
+  else if (Ebene = 2)
+    SendUnicodeChar(0x2020, "dagger") ; Kreuz
+  else if (Ebene = 3)
+    SendUnicodeChar(0x20D7, "U20D7") ; Vektor
+  else if (Ebene = 4)
+    send {blind}{NumpadPgUp}
+  else if (Ebene = 5)
+    SendUnicodeChar(0x226B, "U226B") ; much greater
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2309, "U2309") ; rechte Obergrenze
+return
+
+neo_NumLock:
+  EbeneAktualisieren()
+  if Ebene12
+    OutputChar("{Tab}", "Tab")
+  else if (Ebene = 3)
+    OutputChar("`=", "equal")
+  else if (Ebene = 4)
+    SendUnicodeChar(0x2260, "notequal") ; Ungleich zu
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2248, "approxeq") ; Fast gleich
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2261, "identical")
+return
+
+neo_NumpadDiv:
+  EbeneAktualisieren()
+  if Ebene12
+    OutputChar("{NumpadDiv}", "KP_Divide")
+  else if (Ebene = 3)
+    OutputChar("÷", "division")
+  else if (Ebene = 4)
+    SendUnicodeChar(0x2300, "U2300") ; diameter
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2223, "U2223") ; divides
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2044, "U2044") ; fraction slash
+return
+
+neo_NumpadMult:
+  EbeneAktualisieren()
+  if Ebene12
+    send {blind}{NumpadMult}
+  else if (Ebene = 3)
+    SendUnicodeChar(0x22C5, "U22C5") ; multiplication dot
+  else if (Ebene = 4)
+    SendUnicodeChar(0x2299, "U2299") ; circled dot
+  else if (Ebene = 5)
+    OutputChar("×", "multiply")
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2297, "U2297") ; circled times
+return
+
+neo_NumpadSub:
+  EbeneAktualisieren()
+  if (Ebene12 and !(CheckDeadUni("c1",0x207B)
+                 or CheckDeadUni("a3",0x208B)))
+    send {blind}{NumpadSub}
+  else if (Ebene = 3)
+    SendUnicodeChar(0x2212, "U2212") ; Echtes Minus
+  else if (Ebene = 4)
+    SendUnicodeChar(0x2296, "U2296") ; circled minus
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2216, "U2216") ; set minus
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2238, "U2238") ; dot minus
+return
+
+neo_NumpadAdd:
+  EbeneAktualisieren()
+  if (Ebene12 and !(CheckDeadUni("c1",0x207A)
+                 or CheckDeadUni("a3",0x208A)))
+    send {blind}{NumpadAdd}
+  else if (Ebene = 3)
+    OutputChar("±", "plusminus")
+  else if (Ebene = 4)
+    SendUnicodeChar(0x2295, "U2295") ; circled plus
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2213, "U2213") ; minus-plus
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2214, "U2214") ; dot plus
+return
+
+neo_NumpadEnter:
+  send {blind}{NumpadEnter}
+return
+
+neo_NumpadDot:
+  EbeneAktualisieren()
+  if (Ebene = 1)
+    send {blind}{NumpadDot}
+  else if (Ebene = 2)
+    send {blind}.
+  else if (Ebene = 3)
+    send `,
+  else if (Ebene = 4)
+    send {blind}{NumpadDel}
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2032, "minutes")
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2033, "seconds")
+return
+