1 files changed, 164 insertions, 0 deletions
diff --git a/windows/autohotkey/Source/Keys-Numbers.ahk b/windows/autohotkey/Source/Keys-Numbers.ahk
new file mode 100644
index 0000000..26f70f6
--- /dev/null
+++ b/windows/autohotkey/Source/Keys-Numbers.ahk
@@ -0,0 +1,164 @@
+neo_0:
+  noCaps = 1
+  EbeneAktualisieren()
+  if Ebene12 and !(CheckDeadUni("c1",0x2070) ; Hochgestellte 0
+      or CheckDeadUni("c5",0x2080)) ; Tiefgestellte 0 
+    OutputChar12(0,"”",0,"rightdoublequotemark")
+   else if (Ebene = 3)
+     OutputChar("’", "rightsingleqoutemark")
+   else if (Ebene = 4)
+     OutputChar("{NumpadSub}", "minus") ; s. Mail vom Sun, 14 Sep 2008 00:33:47 +0200
+   else if (Ebene = 6)
+     SendUnicodeChar(0x2205, "emptyset") ; leere Menge
+return
+
+neo_1:
+  noCaps=1
+  EbeneAktualisieren()
+  if Ebene12 and !(CheckDeadUni("c1",0x00B9) ; Hochgestellte 1
+                or CheckDeadUni("c5",0x2081)) ; Tiefgestellte 1
+    OutputChar12(1,"°",1,"degree")
+  else if (Ebene = 3)
+    SendUnicodeChar(0x00B9, "onesuperior") ; Hochgestellte 1
+  else if (Ebene = 4)
+    SendUnicodeChar(0x2022, "enfilledcircbullet") ; Bullet
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2081, "U2081") ; Tiefgestellte 1
+  else if (Ebene = 6)
+    SendUnicodeChar(0x00AC, "notsign") ; Nicht-Symbol
+return
+
+neo_2:
+  noCaps = 1
+  EbeneAktualisieren()
+  if (Ebene = 1 and !(CheckDeadUni("c1",0x00B2) ; Hochgestellte 2
+                   or CheckDeadUni("c5",0x2082))) ; Tiefgestellte 2
+    OutputChar(2,2)
+  else if (Ebene = 2)
+    SendUnicodeChar(0x2116, "numerosign") ; Numero
+  else if (Ebene = 3)
+    SendUnicodeChar(0x00B2, "twosuperior") ; Hochgestellte 2
+  else if (Ebene = 4)
+    SendUnicodeChar(0x2023, "U2023") ; Aufzählungspfeil
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2082, "U2082") ; Tiefgestellte 2
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2228, "logicalor") ; Logisches Oder
+return
+
+neo_3:
+  noCaps = 1
+  EbeneAktualisieren()
+  if Ebene12 and !(CheckDeadUni("c1",0x00B3) ; Hochgestellte 3
+                or CheckDeadUni("c5",0x2083)) ; Tiefgestellte 3
+    OutputChar12(3,"§",3,"section")
+  else if (Ebene = 3)
+    SendUnicodeChar(0x00B3, "threesuperior") ; Hochgestellte 3
+  else if (Ebene = 4)
+    SendUnicodeChar(0x266B, "U226B") ; 2 Achtelnoten
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2083, "U2083") ; Tiefgestellte 3
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2227, "logicaland") ; Logisches Und
+return
+
+neo_4:
+  noCaps = 1
+  EbeneAktualisieren()
+  if (Ebene = 1) and !(CheckDeadUni("c1",0x2074) ; Hochgestellte 4
+                    or CheckDeadUni("c5",0x2084)) ; Tiefgestellte 4
+    OutputChar(4,4)
+  else if (Ebene = 2)
+    SendUnicodeChar(0x00BB, "guillemotright") ; Double guillemot right
+  else if (Ebene = 3)
+    OutputChar("›", "U230A") ; Single guillemot right
+  else if (Ebene = 4)
+    OutputChar("{PgUp}", "Prior") ; Bild auf
+  else if (Ebene = 5)
+    SendUnicodeChar(0x2113, "U2213") ; Script small L
+  else if (Ebene = 6)
+    SendUnicodeChar(0x22A5, "uptack") ; Senkrecht
+return
+
+neo_5:
+  noCaps = 1
+  EbeneAktualisieren()
+  if (Ebene = 1) and !(CheckDeadUni("c1",0x2075) ; Hochgestellte 5
+                    or CheckDeadUni("c5",0x2085)) ; Tiefgestellte 5
+    OutputChar(5,5)
+  else if (Ebene = 2)
+    SendUnicodeChar(0x00AB, "guillemotleft") ; Double guillemot left
+  else if (Ebene = 3)
+    OutputChar("‹", "U2039") ; Single guillemot left
+  else if (Ebene = 5)
+    SendUnicodeChar(0x0AF8, "femalesymbol") ; Kreuz (Dagger)
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2221, "U2221") ; Winkel
+return
+
+neo_6:
+  noCaps = 1
+  EbeneAktualisieren()
+  if (Ebene = 1) and !(CheckDeadUni("c1",0x2076) ; Hochgestellte 6
+                    or CheckDeadUni("c5",0x2086)) ; Tiefgestellte 6
+    OutputChar(6,6)
+  else if (Ebene = 2)
+    SendUnicodeChar(0x20AC, "EuroSign")
+  else if (Ebene = 3)
+    OutputChar("˘", "cent")
+  else if (Ebene = 4)
+    OutputChar("Ł", "sterling")
+  else if (Ebene = 5)
+    SendUnicodeChar(0x0AF7, "malesymbol")
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2225, "U2225") ; parallel
+return
+
+neo_7:
+  noCaps = 1
+  EbeneAktualisieren()
+  if Ebene12 and !(CheckDeadUni("c1",0x2077) ; Hochgestellte 7
+                or CheckDeadUni("c5",0x2087)) ; Tiefgestellte 7
+    OutputChar12(7,"$",7,"dollar")
+  else if (Ebene = 3)
+    OutputChar("Ą", "yen")
+  else if (Ebene = 4)
+    OutputChar("¤", "currency")
+  else if (Ebene = 5)
+    SendUnicodeChar(0x03BA, "Greek_kappa") ; greek small letter kappa
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2209, "notelementof") ; nicht Element von
+return
+
+neo_8:
+  noCaps = 1
+  EbeneAktualisieren()
+  if Ebene12 and !(CheckDeadUni("c1",0x2078) ; Hochgestellte 8
+            or CheckDeadUni("c5",0x2088)) ; Tiefgestellte 8
+    OutputChar12(8,"„",8,"doublelowquotemark")
+  else if (Ebene = 3)
+    OutputChar("‚", "singlelowquotemark")
+  else if (Ebene = 4)
+    OutputChar("{NumpadDiv}", "KP_Divide")
+  else if (Ebene = 5)
+    SendUnicodeChar(0x27E8, "U27E8") ; bra (öffnende spitze Klammer)
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2204, "U2204") ; es existiert nicht
+return
+
+neo_9:
+  noCaps = 1
+  EbeneAktualisieren()
+  if Ebene12 and !(CheckDeadUni("c1",0x2079) ; Hochgestellte 9
+      or CheckDeadUni("c5",0x2089)) ; Tiefgestellte 9
+    OutputChar12(9,"“",9,"leftdoublequotemark")
+  else if (Ebene = 3)
+    OutputChar("‘", "leftsinglequotemark")
+  else if (Ebene = 4)
+    OutputChar("{NumpadMult}", "KP_Multiply")
+  else if (Ebene = 5)
+    SendUnicodeChar(0x27E9, "U27E9") ; ket (schließende spitze Klammer)
+  else if (Ebene = 6)
+    SendUnicodeChar(0x2226, "U2226") ; nicht parallel
+return
+