root/windows/neo-vars/src/source/keydefinitions.ahk @ 2086

; -*- encoding:utf-8 -*-

thekeys() {
;   KeyCode       Ebene1  Ebene2  Ebene3  Ebene4  Ebene5  Ebene6  Ebene7* Ebene8*
; Reihe 1
EDS("029",0,"T__cflx","T__tlde","T__obrg","T__cron","T__brve","T__mcrn") ; circumflex
EDS("002",0,"1","°","¹","ª"      ,"₁","¬") ; 1
EDS("003",0,"2","§","²","º"      ,"₂","∨") ; 2
EDS("004",0,"3","ℓ","³","№"      ,"₃","∧") ; 3
EDS("005",0,"4","»","›","S__PgUp","♀","⊥") ; 4
EDS("006",0,"5","«","‹","·"      ,"♂","∡") ; 5
EDS("007",0,"6","$","¢","£"      ,"⚥","∥") ; 6
EDS("008",0,"7","€","¥","¤"      ,"κ","→") ; 7
EDS("009",0,"8","„","‚",""       ,"⟨","∞") ; 8
EDS("00A",0,"9","“","‘","S__NDiv","⟩","∝") ; 9
EDS("00B",0,"0","”","’","S__NMul","₀","∅") ; 0
EDS("00C",0,"-","—","" ,"S__NSub","‑","­") ; -
EDS("00D",0,"T__grav","T__turn","T__drss","T__dgrv","˘","T__hook") ; grave
; Reihe 2
EDS("010",1,"x","X","…","⋮"       ,"ξ","Ξ") ; x
EDS("011",1,"v","V","_","U000008","" ,"√") ; v
EDS("012",1,"l","L","[","S____Up","λ","Λ") ; l
EDS("013",1,"c","C","]","S___Del","χ","ℂ") ; c
EDS("014",1,"w","W","^","S___Ins","ω","Ω") ; w
EDS("015",1,"k","K","!","¡"      ,"ϰ","×") ; k
EDS("016",1,"h","H","<","S__N__7","ψ","Ψ") ; h
EDS("017",1,"g","G",">","S__N__8","γ","Γ") ; g
EDS("018",1,"f","F","=","S__N__9","φ","Φ") ; f
EDS("019",1,"q","Q","&","S__NAdd","ϕ","ℚ") ; q
EDS("01A",1,"ß","ẞ","ſ",""       ,"ς","∘") ; ß
EDS("01B",0,"T__acut","T__cedi","T__strk","T__dbac","᾿","T__abdt") ; acute
; Reihe 3
EDS("01E",1,"u","U","\","S__Home","" ,"⊂") ; u
EDS("01F",1,"i","I","/","S__Left","ι","∫") ; i
EDS("020",1,"a","A","{","S__Down","α","∀") ; a
EDS("021",1,"e","E","}","S__Rght","ε","∃") ; e
EDS("022",1,"o","O","*","S___End","ο","∈") ; o
EDS("023",1,"s","S","?","¿"      ,"σ","Σ") ; s
EDS("024",1,"n","N","(","S__N__4","ν","ℕ") ; n
EDS("025",1,"r","R",")","S__N__5","ϱ","ℝ") ; r
EDS("026",1,"t","T","-","S__N__6","τ","∂") ; t
EDS("027",1,"d","D",":","S__NDot","δ","Δ") ; d
EDS("028",1,"y","Y","@","."      ,"υ","∇") ; y
; Reihe 4
EDS("02C",1,"ü","Ü","#","U00001B","" ,"∪") ; ü
EDS("02D",1,"ö","Ö","$","U000009","ϵ","∩") ; ö
EDS("02E",1,"ä","Ä","|","S__PgDn","η","ℵ") ; ä
EDS("02F",1,"p","P","~","U00000D","π","Π") ; p
EDS("030",1,"z","Z","``",""      ,"ζ","ℤ") ; z
EDS("031",1,"b","B","+",":"      ,"β","⇐") ; b
EDS("032",1,"m","M","%","S__N__1","μ","⇔") ; m
EDS("033",0,",","–","""","S__N__2","ρ","⇒") ; ,
EDS("034",0,".","•","'","S__N__3","ϑ","Θ") ; .
EDS("035",1,"j","J",";",";"      ,"θ","↦") ; j

; Numpad
ED("VK90SC145",0,"U000009","U000009","=","≠","≈","≡") ; NumLock
ED("VK6FSC135",0,"S__NDiv","S__NDiv","÷","⌀","∣","⁄") ; NumpadDiv
ED("VK6ASC037",0,"S__NMul","S__NMul","⋅","×","⊙","⊗") ; NumpadMult
ED("VK6DSC04A",0,"S__NSub","S__NSub","−","∖","⊖","∸") ; NumpadSub
ED("VK6BSC04E",0,"S__NAdd","S__NAdd","±","∓","⊕","∔") ; NumpadAdd

;EDN("VK67SC047","VK24SC047",0,"S__N__7","U002714","U002195","S__NHom","U00226A","U002308") ; Numpad7, NumpadHome
ED("VK67SC047",0,"S__N__7",""       ,"↕","S__NHom",""       ,"⌈") ; Numpad7
ED("VK24SC047",0,"✔"      ,""       ,"≪","S_SNHom",""       ,"" ) ; NumpadHome == Numpad7 + Shift

;EDN("VK68SC048","VK26SC048",0,"S__N__8","U002718","U002191","S__N_Up","U002229","U0022C2") ; Numpad8, NumpadUp
ED("VK68SC048",0,"S__N__8",""       ,"↑","S__N_Up",""       ,"⋂") ; Numpad8
ED("VK26SC048",0,"✘"      ,""       ,"∩","S_SN_Up",""       ,"" ) ; NumpadUp == Numpad8 + Shift

;EDN("VK69SC049","VK21SC049",0,"S__N__9","U002020","U0020D7","S__NPUp","U00226B","U002309") ; Numpad9, NumpadPgUp
ED("VK69SC049",0,"S__N__9",""       ,"⃗","S__NPUp",""       ,"⌉") ; Numpad9
ED("VK21SC049",0,"†"      ,""       ,"≫","S_SNPUp",""       ,"" ) ; NumpadPgUp == Numpad9 + Shift

;EDN("VK64SC04B","VK25SC04B",0,"S__N__4","U002663","U002190","S__N_Le","U002282","U002286") ; Numpad4, NumpadLeft
ED("VK64SC04B",0,"S__N__4",""       ,"←","S__N_Le",""       ,"⊆") ; Numpad4
ED("VK25SC04B",0,"♣"      ,""       ,"⊂","S_SN_Le",""       ,"" ) ; NumpadLeft == Numpad4 + Shift

;EDN("VK65SC04C","VK0CSC04C",0,"S__N__5","U0020AC","U0000A6","S__NClr","U0022B6","U0022B7") ; Numpad5, NumpadClear
ED("VK65SC04C",0,"S__N__5",""       ,"¦","S__NClr",""       ,"⊷") ; Numpad5
ED("VK0CSC04C",0,"€"      ,""       ,"⊶","S_SNClr",""       ,"" ) ; NumpadClear == Numpad5 + Shift

;EDN("VK66SC04D","VK27SC04D",0,"S__N__6","U002023","U002192","S__N_Ri","U002283","U002287") ; Numpad6, NumpadRight
ED("VK66SC04D",0,"S__N__6",""       ,"→","S__N_Ri",""       ,"⊇") ; Numpad6
ED("VK27SC04D",0,"‣"      ,""       ,"⊃","S_SN_Ri",""       ,"" ) ; NumpadRight == Numpad6 + Shift

;EDN("VK61SC04F","VK23SC04F",0,"S__N__1","U002666","U002194","S__NEnd","U002264","U00230A") ; Numpad1, NumpadEnd
ED("VK61SC04F",0,"S__N__1",""       ,"↔","S__NEnd",""       ,"⌊") ; Numpad1
ED("VK23SC04F",0,"♦"      ,""       ,"≤","S_SNEnd",""       ,"" ) ; NumpadEnd == Numpad1 + Shift

;EDN("VK62SC050","VK28SC050",0,"S__N__2","U002665","U002193","S__N_Dn","U00222A","U0022C3") ; Numpad2, NumpadDown
ED("VK62SC050",0,"S__N__2",""       ,"↓","S__N_Dn",""       ,"⋃") ; Numpad2
ED("VK28SC050",0,"♥"      ,""       ,"∪","S_SN_Dn",""       ,"" ) ; NumpadDown == Numpad2 + Shift

;EDN("VK63SC051","VK22SC051",0,"S__N__3","U002660","U0021CC","S__NPDn","U002265","U00230B") ; Numpad3, NumpadPgDn
ED("VK63SC051",0,"S__N__3",""       ,"⇌","S__NPDn",""       ,"⌋") ; Numpad3
ED("VK22SC051",0,"♠"      ,""       ,"≥","S_SNPDn",""       ,"" ) ; NumpadPgDn == Numpad3 + Shift

; EDN("VK60SC052","VK2DSC052",0,"S__N__0","U002423","U000025","S__NIns","U002030","U0025A1") ; Numpad0, NumpadIns
ED("VK60SC052",0,"S__N__0",""       ,"%","S__NIns",""       ,"□") ; Numpad0
ED("VK2DSC052",0,"␣"      ,""       ,"‰","S_SNIns",""       ,"" ) ; NumpadIns == Numpad0 + Shift

; EDN("VK6ESC053","VK2ESC053",0,"S__NDot","U00002E","U00002C","S__NDel","U002032","U002033") ; NumpadDot, NumpadDel
ED("VK6ESC053",0,"S__NDot",""       ,",","S__NDel",""       ,"″") ; NumpadDot
ED("VK2ESC053",0,"."      ,""       ,"′","S_SNDel",""       ,"" ) ; NumpadDel == NumpadDot + Shift

; other keys
ED("space",0,"U000020","U000020","U000020","S__N__0","U0000A0","U00202F")
ED("esc"  ,0,"U00001B","U00001B","P__Rlod","U00001B","U00001B","U00001B")
ED("tab"  ,0,"U000009","U000009","S__Comp","U000009","U000009","U000009")
ED("F1"   ,0,"S____F1","S____F1",""       ,"S____F1",""       ,"")
ED("F2"   ,0,"S____F2","S____F2",""       ,"S____F2",""       ,"")
ED("F3"   ,0,"S____F3","S____F3",""       ,"S____F3",""       ,"")
ED("F4"   ,0,"S____F4","S____F4",""       ,"S____F4",""       ,"")
ED("F5"   ,0,"S____F5","S____F5",""       ,"S____F5",""       ,"")
ED("F6"   ,0,"S____F6","S____F6",""       ,"S____F6",""       ,"")
ED("F7"   ,0,"S____F7","S____F7",""       ,"S____F7",""       ,"")
ED("F8"   ,0,"S____F8","S____F8",""       ,"S____F8",""       ,"")
ED("F9"   ,0,"S____F9","S____F9",""       ,"S____F9",""       ,"")
ED("F10"  ,0,"S___F10","S___F10",""       ,"S___F10",""       ,"")
ED("F11"  ,0,"S___F11","S___F11",""       ,"S___F11",""       ,"")
ED("F12"  ,0,"S___F12","S___F12",""       ,"S___F12",""       ,"")
ED("enter",0,"U00000D","U00000D","U00000D","S__NEnt","U00000D","U00000D")
ED1("backspace","U000008")
ED1("del"      ,"S___Del")
ED1("ins"      ,"S___Ins")
ED1("home"     ,"S__Home")
ED1("end"      ,"S___End")
ED1("pgup"     ,"S__PgUp")
ED1("pgdn"     ,"S__PgDn")
ED1("up"       ,"S____Up")
ED1("down"     ,"S__Down")
ED1("left"     ,"S__Left")
ED1("right"    ,"S__Rght")
ED1("numpadenter","S__NEnt")

; Die Modifier
ED1S("02A","P__M2LD") ; Mod2L (ShiftL)
ED1S("136","P__M2RD") ; Mod2R (ShiftR)
ED1S("03A","P__M3LD") ; Mod3L (CapsLock)
ED1S("02B","P__M3RD") ; Mod3R (#')
ED1S("056","P__M4LD") ; Mod4L (<>)
ED1S("138","P__M4RD") ; Mod4R (AltGr)
}

SetKeyPos(pos,char) {
  global
  current := %pos%
  if (current != "")
    StringReplace,CRK%current%,CRK%current%,% " " . pos . " ",% " "
  if (SubStr(CRK%char%,0) != " ")
    CRK%char% .= " "
  CRK%char% .= pos . " "
  %pos% := char
}

EDR(pos,caps,e1,e2,e3,e4,e5,e6,e7="",e8="") {
  global
  if (caps == 0)
    NOC%pos% := 1
  else {
    if (e1 != "")
      UNSH%e1% := 1 ; unshift wenn caps lock + Shift?
  }
  SetKeyPos("CP1" . pos,e1)
  SetKeyPos("CP2" . pos,e2)
  SetKeyPos("CP3" . pos,e3)
  SetKeyPos("CP4" . pos,e4)
  SetKeyPos("CP5" . pos,e5)
  SetKeyPos("CP6" . pos,e6)
  SetKeyPos("CP7" . pos,e7)
  SetKeyPos("CP8" . pos,e8)
}

ED(pos,caps,e1a,e2a,e3a,e4a,e5a,e6a,e7a="",e8a="") {
  global
  e1  := EncodeUniComposeA(e1a)
  e2  := EncodeUniComposeA(e2a)
  e3  := EncodeUniComposeA(e3a)
  e4  := EncodeUniComposeA(e4a)
  e5  := EncodeUniComposeA(e5a)
  e6  := EncodeUniComposeA(e6a)
  e7  := EncodeUniComposeA(e7a)
  e8  := EncodeUniComposeA(e8a)
  EDR(pos,caps,e1,e2,e3,e4,e5,e6,e7,e8)
}

EncodeUniComposeA(ea) {
  if (StrLen(ea) == 7)
    return ea
  return EncodeUniCompose(ea)
}

EDNR(pos1,pos2,caps,e1,e2,e3,e4,e5,e6) {
  EDR(pos1,caps,e1,e2,e3,e4,e5,e6)
  EDR(pos2,caps,e1,e2,e3,e4,e5,e6)
}

EDN(pos1,pos2,caps,e1a,e2a,e3a,e4a,e5a,e6a) {
  ED(pos1,caps,e1a,e2a,e3a,e4a,e5a,e6a)
  ED(pos2,caps,e1a,e2a,e3a,e4a,e5a,e6a)
}

EDSR(scpos,caps,e1,e2,e3,e4,e5,e6,e7="",e8="") {
  global
  EDR(vksc%scpos%,caps,e1,e2,e3,e4,e5,e6,e7,e8)
}

EDS(scpos,caps,e1a,e2a,e3a,e4a,e5a,e6a,e7a="",e8a="") {
  global
  ED(vksc%scpos%,caps,e1a,e2a,e3a,e4a,e5a,e6a,e7a,e8a)
}

ED1(pos,e1a) {
 ED(pos,0,e1a,e1a,e1a,e1a,e1a,e1a)
}

ED1S(scpos,e1a) {
 EDS(scpos,0,e1a,e1a,e1a,e1a,e1a,e1a)
}

ED12(scpos,caps,e1a,e2a) {
  global
  pos := vksc%scpos%
  e1  := EncodeUniComposeA(e1a)
  e2  := EncodeUniComposeA(e2a)
  if (caps == 0) {
    NOC%pos% := 1
    UNSH%e1% := 0
  } else {
    NOC%pos% := 0
    UNSH%e1% := 1 ; unshift wenn caps lock + Shift?
  }
  SetKeyPos("CP1" . pos, e1)
  SetKeyPos("CP2" . pos, e2)
}


Comp := ""

; RegisterAndHookSC
RSC(sc,vk) {
  global
  vksc%sc% := "VK" . vk . "SC" . sc
  dnkey := "*" . vksc%sc%
  upkey := dnkey . " up"
  Hotkey,% dnkey,allstarhook
  Hotkey,% upkey,allstarhook
}

Layout00000407() {
  global
; Reihe 1
  RSC("029","DC")
  RSC("002","31")
  RSC("003","32")
  RSC("004","33")
  RSC("005","34")
  RSC("006","35")
  RSC("007","36")
  RSC("008","37")
  RSC("009","38")
  RSC("00A","39")
  RSC("00B","30")
  RSC("00C","DB")
  RSC("00D","DD")
; Reihe 2
  RSC("010","51")
  RSC("011","57")
  RSC("012","45")
  RSC("013","52")
  RSC("014","54")
  RSC("015","5A")
  RSC("016","55")
  RSC("017","49")
  RSC("018","4F")
  RSC("019","50")
  RSC("01A","BA")
  RSC("01B","BB")
  RSC("00D","DD")
; Reihe 3
  RSC("01E","41")
  RSC("01F","53")
  RSC("020","44")
  RSC("021","46")
  RSC("022","47")
  RSC("023","48")
  RSC("024","4A")
  RSC("025","4B")
  RSC("026","4C")
  RSC("027","C0")
  RSC("028","DE")
; Reihe 4
  RSC("02C","59")
  RSC("02D","58")
  RSC("02E","43")
  RSC("02F","56")
  RSC("030","42")
  RSC("031","4E")
  RSC("032","4D")
  RSC("033","BC")
  RSC("034","BE")
  RSC("035","BD")
; Modifier
  RSC("02A","A0") ; M2L
  RSC("136","A1") ; M2R
  RSC("03A","14") ; M3L
  RSC("02B","BF") ; M3R
  RSC("056","E2") ; M4L
  RSC("138","A5") ; M4R

  /**** die meisten der folgenden Shortcuts werden von AHK zwar verarbeitet,
   **** von dort aber nur als ALT+Numpad verschickt und daher nicht für alle
   **** Programme nutzbar, also auskommentiert und als Unicode-Zeichen
   **** geschickt.
  */
  ; DNCSU00005E := "{^}{space}"
  ; DNCSU000060 := "{``}{space}"
  ; DNCSU0000B4 := "{´}{space}"

  CSU00005E := ""
  CSU000060 := ""
  CSU0000B4 := ""

  CSU0020AC := chr(128)   ; €
  ; CSU00201A := chr(130) ; ‚
  ; CSU000192 := chr(131) ; ƒ
  ; CSU00201E := chr(132) ; „
  ; CSU002026 := chr(133) ; …
  ; CSU002020 := chr(134) ; †
  ; CSU002021 := chr(135) ; ‡
  ; CSU0002C6 := chr(136) ; ˆ
  ; CSU002030 := chr(137) ; ‰
  ; CSU000160 := chr(138) ; Š
  ; CSU002039 := chr(139) ; ‹
  ; CSU000152 := chr(140) ; Œ
  ; CSU00017D := chr(142) ; Ž
  ; CSU002018 := chr(145) ; ‘
  ; CSU002019 := chr(146) ; ’
  ; CSU00201C := chr(147) ; “
  ; CSU00201D := chr(148) ; ”
  ; CSU002022 := chr(149) ; •
  ; CSU002013 := chr(150) ; –
  ; CSU002014 := chr(151) ; —
  ; CSU0002DC := chr(152) ; ˜
  ; CSU002122 := chr(153) ; ™
  ; CSU000161 := chr(154) ; š
  ; CSU00203A := chr(155) ; ›
  ; CSU000153 := chr(156) ; œ
  ; CSU00017E := chr(158) ; ž
  ; CSU000178 := chr(159) ; Ÿ
  CSU0000A7 := chr(167)   ; §
  CSU0000B0 := chr(176)   ; °
  CSU0000B2 := chr(178)   ; ²
  CSU0000B3 := chr(179)   ; ³
  ; CSU0000B4 := chr(180)   ; ´
  CSU0000B5 := chr(181)   ; µ
  CSU0000C4 := chr(196)   ; Ä
  CSU0000D6 := chr(214)   ; Ö
  CSU0000DC := chr(220)   ; Ü
  CSU0000DF := chr(223)   ; ß
  CSU0000E4 := chr(228)   ; ä
  CSU0000F6 := chr(246)   ; ö
  CSU0000FC := chr(252)   ; ü
  CSU0000FF := chr(255)   ; ÿ

  /*
    Für alle Zeichen, die durch Tastendrücke ohne Shift-Taste zustande kommen,
    muss eine gegebenenfalls gedrückte Shift-Taste vor dem Senden temporär
    gelöst werden. Dafür werden für sämtliche relevante Zeichen die passenden
    UNSHU.... Variablen gesetzt.
  */
  ; Reihe 1
  UNSHU00005E := 1 ; ^
  UNSHU000031 := 1 ; 1
  UNSHU000032 := 1 ; 2
  UNSHU000033 := 1 ; 3
  UNSHU000034 := 1 ; 4
  UNSHU000035 := 1 ; 5
  UNSHU000036 := 1 ; 6
  UNSHU000037 := 1 ; 7
  UNSHU000038 := 1 ; 8
  UNSHU000039 := 1 ; 9
  UNSHU000030 := 1 ; 0
  UNSHU0000DF := 1 ; ß
  UNSHU0000B4 := 1 ; ´
  ; Alphabet
  UNSHU000061 := 1 ; a
  UNSHU000062 := 1 ; b
  UNSHU000063 := 1 ; c
  UNSHU000064 := 1 ; d
  UNSHU000065 := 1 ; e
  UNSHU000066 := 1 ; f
  UNSHU000067 := 1 ; g
  UNSHU000068 := 1 ; h
  UNSHU000069 := 1 ; i
  UNSHU00006A := 1 ; j
  UNSHU00006B := 1 ; k
  UNSHU00006C := 1 ; l
  UNSHU00006D := 1 ; m
  UNSHU00006E := 1 ; n
  UNSHU00006F := 1 ; o
  UNSHU000070 := 1 ; p
  UNSHU000071 := 1 ; q
  UNSHU000072 := 1 ; r
  UNSHU000073 := 1 ; s
  UNSHU000074 := 1 ; t
  UNSHU000075 := 1 ; u
  UNSHU000076 := 1 ; v
  UNSHU000077 := 1 ; w
  UNSHU000078 := 1 ; x
  UNSHU000079 := 1 ; y
  UNSHU00007A := 1 ; z
  UNSHU0000E4 := 1 ; ä
  UNSHU0000F6 := 1 ; ö
  UNSHU0000FC := 1 ; ü
  ; Rest
  UNSHU00002B := 1 ; +
  UNSHU000023 := 1 ; #
  UNSHU00003C := 1 ; <
  UNSHU00002C := 1 ; ,
  UNSHU00002E := 1 ; .
  UNSHU00002D := 1 ; -
  ; AltGr
  UNSHU0000B2 := 1 ; ²
  UNSHU0000B3 := 1 ; ³
  UNSHU00007B := 1 ; {
  UNSHU00005B := 1 ; [
  UNSHU00005D := 1 ; ]
  UNSHU00007D := 1 ; }
  UNSHU00005C := 1 ; \
  UNSHU000040 := 1 ; @
  UNSHU0020AC := 1 ; Euro
  UNSHU00007E := 1 ; ~
  UNSHU00007C := 1 ; |
  UNSHU0000B5 := 1 ; µ
}

Layout00000807() {
  global
; Reihe 1
  RSC("029","BF")
  RSC("002","31")
  RSC("003","32")
  RSC("004","33")
  RSC("005","34")
  RSC("006","35")
  RSC("007","36")
  RSC("008","37")
  RSC("009","38")
  RSC("00A","39")
  RSC("00B","30")
  RSC("00C","DB")
  RSC("00D","DD")
; Reihe 2
  RSC("010","51")
  RSC("011","57")
  RSC("012","45")
  RSC("013","52")
  RSC("014","54")
  RSC("015","5A")
  RSC("016","55")
  RSC("017","49")
  RSC("018","4F")
  RSC("019","50")
  RSC("01A","BA")
  RSC("01B","C0")
  RSC("00D","DD")
; Reihe 3
  RSC("01E","41")
  RSC("01F","53")
  RSC("020","44")
  RSC("021","46")
  RSC("022","47")
  RSC("023","48")
  RSC("024","4A")
  RSC("025","4B")
  RSC("026","4C")
  RSC("027","DE")
  RSC("028","DC")
; Reihe 4
  RSC("02C","59")
  RSC("02D","58")
  RSC("02E","43")
  RSC("02F","56")
  RSC("030","42")
  RSC("031","4E")
  RSC("032","4D")
  RSC("033","BC")
  RSC("034","BE")
  RSC("035","BD")
; Modifier
  RSC("02A","A0") ; M2L
  RSC("136","A1") ; M2R
  RSC("03A","14") ; M3L
  RSC("02B","DF") ; M3R
  RSC("056","E2") ; M4L
  RSC("138","A5") ; M4R

  /**** die meisten der folgenden Shortcuts werden von AHK zwar verarbeitet,
   **** von dort aber nur als ALT+Numpad verschickt und daher nicht für alle
   **** Programme nutzbar, also auskommentiert und als Unicode-Zeichen
   **** geschickt.
  */
  ; DNCSU00005E := "{^}{space}"
  ; DNCSU000060 := "{``}{space}"
  ; DNCSU0000B4 := "{´}{space}"

  CSU00005E := ""
  CSU000060 := ""
  CSU0000B4 := ""

  CSU0020AC := chr(128)   ; €
  ; CSU00201A := chr(130) ; ‚
  ; CSU000192 := chr(131) ; ƒ
  ; CSU00201E := chr(132) ; „
  ; CSU002026 := chr(133) ; …
  ; CSU002020 := chr(134) ; †
  ; CSU002021 := chr(135) ; ‡
  ; CSU0002C6 := chr(136) ; ˆ
  ; CSU002030 := chr(137) ; ‰
  ; CSU000160 := chr(138) ; Š
  ; CSU002039 := chr(139) ; ‹
  ; CSU000152 := chr(140) ; Œ
  ; CSU00017D := chr(142) ; Ž
  ; CSU002018 := chr(145) ; ‘
  ; CSU002019 := chr(146) ; ’
  ; CSU00201C := chr(147) ; “
  ; CSU00201D := chr(148) ; ”
  ; CSU002022 := chr(149) ; •
  ; CSU002013 := chr(150) ; –
  ; CSU002014 := chr(151) ; —
  ; CSU0002DC := chr(152) ; ˜
  ; CSU002122 := chr(153) ; ™
  ; CSU000161 := chr(154) ; š
  ; CSU00203A := chr(155) ; ›
  ; CSU000153 := chr(156) ; œ
  ; CSU00017E := chr(158) ; ž
  ; CSU000178 := chr(159) ; Ÿ
  CSU0000A7 := chr(167)   ; §
  CSU0000B0 := chr(176)   ; °
  ; CSU0000B2 := chr(178)   ; ²
  ; CSU0000B3 := chr(179)   ; ³
  ; CSU0000B4 := chr(180)   ; ´
  ; CSU0000B5 := chr(181)   ; µ
  ; CSU0000C4 := chr(196)   ; Ä
  ; CSU0000D6 := chr(214)   ; Ö
  ; CSU0000DC := chr(220)   ; Ü
  ; CSU0000DF := chr(223)   ; ß
  CSU0000E0 := chr(224)   ; à
  CSU0000E4 := chr(228)   ; ä
  CSU0000E8 := chr(232)   ; è
  CSU0000E9 := chr(233)   ; é
  CSU0000F6 := chr(246)   ; ö
  CSU0000FC := chr(252)   ; ü
  ; CSU0000FF := chr(255)   ; ÿ

  /*
    Für alle Zeichen, die durch Tastendrücke ohne Shift-Taste zustande kommen,
    muss eine gegebenenfalls gedrückte Shift-Taste vor dem Senden temporär
    gelöst werden. Dafür werden für sämtliche relevante Zeichen die passenden
    UNSHU.... Variablen gesetzt.
  */
  ; Reihe 1
  UNSHU0000A7 := 1 ; §
  UNSHU000031 := 1 ; 1
  UNSHU000032 := 1 ; 2
  UNSHU000033 := 1 ; 3
  UNSHU000034 := 1 ; 4
  UNSHU000035 := 1 ; 5
  UNSHU000036 := 1 ; 6
  UNSHU000037 := 1 ; 7
  UNSHU000038 := 1 ; 8
  UNSHU000039 := 1 ; 9
  UNSHU000030 := 1 ; 0
  UNSHU000027 := 1 ; '
  UNSHU00005E := 1 ; ^
  ; Alphabet
  UNSHU000061 := 1 ; a
  UNSHU000062 := 1 ; b
  UNSHU000063 := 1 ; c
  UNSHU000064 := 1 ; d
  UNSHU000065 := 1 ; e
  UNSHU000066 := 1 ; f
  UNSHU000067 := 1 ; g
  UNSHU000068 := 1 ; h
  UNSHU000069 := 1 ; i
  UNSHU00006A := 1 ; j
  UNSHU00006B := 1 ; k
  UNSHU00006C := 1 ; l
  UNSHU00006D := 1 ; m
  UNSHU00006E := 1 ; n
  UNSHU00006F := 1 ; o
  UNSHU000070 := 1 ; p
  UNSHU000071 := 1 ; q
  UNSHU000072 := 1 ; r
  UNSHU000073 := 1 ; s
  UNSHU000074 := 1 ; t
  UNSHU000075 := 1 ; u
  UNSHU000076 := 1 ; v
  UNSHU000077 := 1 ; w
  UNSHU000078 := 1 ; x
  UNSHU000079 := 1 ; y
  UNSHU00007A := 1 ; z
  UNSHU0000E4 := 1 ; ä
  UNSHU0000F6 := 1 ; ö
  UNSHU0000FC := 1 ; ü
  ; Rest
  UNSHU0000A8 := 1 ; ¨
  UNSHU000024 := 1 ; $
  UNSHU00003C := 1 ; <
  UNSHU00002C := 1 ; ,
  UNSHU00002E := 1 ; .
  UNSHU00002D := 1 ; -
  ; AltGr
  UNSHU0000A6 := 1 ; ¦
  UNSHU000040 := 1 ; @
  UNSHU000023 := 1 ; #
  UNSHU0000AC := 1 ; ¬
  UNSHU00007C := 1 ; |
  UNSHU0000A2 := 1 ; ¢
  UNSHU0000B4 := 1 ; ´
  UNSHU00007E := 1 ; ~
  UNSHU0020AC := 1 ; Euro
  UNSHU00005B := 1 ; [
  UNSHU00005D := 1 ; ]
  UNSHU00007B := 1 ; {
  UNSHU00007D := 1 ; }
  UNSHU00005C := 1 ; \
}

Layout00010407() {
  Layout00000407()
}

ActivateLayOut(layout) {
  Layout%layout%()
}