Autohotkey: Definition AltGr und Caps getauscht, Ebene 5: 0 auf Space

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

2 files changed, 310 insertions, 312 deletions

diff --git a/windows/XP/autohotkey/neo20-remap.ahk b/windows/XP/autohotkey/neo20-remap.ahk
index c702285..f59cc0d 100644
--- a/windows/XP/autohotkey/neo20-remap.ahk
+++ b/windows/XP/autohotkey/neo20-remap.ahk
@@ -1,7 +1,7 @@
 /*

-  Umbelegung von AltGr auf CapsLock und #,

-  daf�r Mod5 auf AltGr und <

-  Version vom 30.04.2007

+  Umbelegung von Win+Ctrl auf CapsLock und #,

+  Zweites AltGr auf <

+  Version vom 02.05.2007

 */

 

 ;#InstallKeybdHook

@@ -32,71 +32,59 @@ menu, tray, tip, %name%
 

 

 ; 3. und 4. Ebene:

-; CapsLock und # (SC02B) werden zu AltGr (SC138)

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

-; http://www.autohotkey.com/forum/topic181.html

+; CapsLock und # werden zu Win + Ctrl

+; --------------------------------------------

+

 

 *CapsLock::

-Send {SC138 Down}

+Send {RWin Down}

+Send {Control Down}

 Loop

 {

    Sleep, 10

    GetKeyState, state, CapsLock, P

-   if state = U  ; The key has been released, so break out of the loop.

-      break

-}

-Send {SC138 Up} 

-return

-

-

-*SC02B::

-Send {SC138 Down}

-Loop

-{

-   Sleep, 10

-   GetKeyState, state, SC02B, P

-   if state = U  ; The key has been released, so break out of the loop.

-      break

+   if state = U  

+   break

+   ; The key has been released, so break out of the loop.

 }

-Send {SC138 Up} 

+Send {RWin Up} 

+Send {Control Up} 

 return

 

 

-; 5. und 6. Ebene:

-; < (SC056) und AltGr werden zu Win + Ctrl

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

-  ; < funktioniert, aber bei AltGr kommt (manchmal/immer?) nur 

-  ; Control Down an, aber nicht das Up, dann bleibt Control aktiv 

-  ; - L�sung ist dann, einmal die normale Controltaste zu dr�cken.

-

-

-*SC056::

+*#::

 Send {RWin Down}

 Send {Control Down}

 Loop

 {

    Sleep, 10

-   GetKeyState, state, SC056, P

-   if state = U  ; The key has been released, so break out of the loop.

-      break

+   GetKeyState, state, #, P

+   if state = U  

+   break

+   ; The key has been released, so break out of the loop.

 }

 Send {RWin Up} 

 Send {Control Up} 

 return

 

 

-*SC138::

-Send {RWin Down}

-Send {Control Down}

+; 5. und 6. Ebene:

+; < wird zu zweiter AltGr (SC138)

+; --------------------------------

+

+

+

+*<::

+Send {SC138 Down}

 Loop

 {

    Sleep, 10

-   GetKeyState, state, SC138, P

-   if state = U  ; The key has been released, so break out of the loop.

-      break

+   GetKeyState, state, <, P

+   if state = U  

+   break

+   ; The key has been released, so break out of the loop.

 }

-Send {RWin Up} 

-Send {Control Up} 

+Send {SC138 Up}

 return

 

 

diff --git a/windows/XP/autohotkey/neo20.ahk b/windows/XP/autohotkey/neo20.ahk
index 987670f..4eae222 100644
--- a/windows/XP/autohotkey/neo20.ahk
+++ b/windows/XP/autohotkey/neo20.ahk
@@ -1,9 +1,10 @@
 /*

    NEO-Layout

-    Version vom 30.04.2007

-   3./4. Ebene funktioniert �ber AltGr, 

-    5./6. Ebene �ber Win+Ctrl

-   Zur Umbelegung auf CapsLock und AltGr 

+    Version vom 02.05.2007

+   3./4. Ebene funktioniert �ber Win+Ctrl, 

+    5./6. Ebene �ber AltGr.

+   Zur Umbelegung von Win+Ctrl auf CapsLock und #

+    und f�r ein zweites AltGr auf <

     verwende neo20-remap.ahk

 */

 

@@ -96,7 +97,7 @@ q::send x
 w::send v

 

 e::

-  If A_PriorHotkey = #^+ ; durchgestrichen

+  If A_PriorHotkey = <^>!+ ; durchgestrichen

     {

     Send {bs}

     MyUTF_String = ł

@@ -124,7 +125,7 @@ r::
     MyUTF_String = ć

     Gosub Unicode

     }

-  Else If A_PriorHotkey = <^>!� ; cedilla

+  Else If A_PriorHotkey = #^� ; cedilla

     {

     Send {bs}

     MyUTF_String = ç

@@ -157,7 +158,7 @@ i::
 Return

 

 o::

-  If A_PriorHotkey = #^+ ; durchgestrichen

+  If A_PriorHotkey = <^>!+ ; durchgestrichen

     {

     Send {bs}

     MyUTF_String = ƒ

@@ -171,9 +172,9 @@ p::send q
 +::send ~ ; tilde, soll tot

 

 a::

-  If A_PriorHotkey = <^>!+ ; Diaerese

+  If A_PriorHotkey = #^+ ; Diaerese

     Send, {bs}�

-  Else If A_PriorHotkey = <^>!++ ; doppelakut

+  Else If A_PriorHotkey = #^++ ; doppelakut

     {

     Send {bs}

     MyUTF_String = ű

@@ -185,7 +186,7 @@ a::
 ;    MyUTF_String = 

 ;    Gosub Unicode

 ;    }

-  Else If A_PriorHotkey = <^>!^ ; brevis

+  Else If A_PriorHotkey = #^^ ; brevis

     {

     Send {bs}

     MyUTF_String = ŭ 

@@ -202,7 +203,7 @@ a::
 Return

 

 s::

-  If A_PriorHotkey = <^>!+ ; Diaerese

+  If A_PriorHotkey = #^+ ; Diaerese

     Send, {bs}�

   Else If A_PriorHotkey = ++ ; macron

     {

@@ -215,9 +216,9 @@ s::
 Return

 

 d::

-  If A_PriorHotkey = <^>!+ ; Diaerese

+  If A_PriorHotkey = #^+ ; Diaerese

     Send {bs}�

-  Else If A_PriorHotkey = #^+� ; Ring drauf

+  Else If A_PriorHotkey = <^>!+� ; Ring drauf

     Send {bs}�

   Else If A_PriorHotkey = + ; tilde

     {

@@ -225,7 +226,7 @@ d::
     MyUTF_String = ã

     Gosub Unicode

     }

-  Else If A_PriorHotkey = <^>!+� ; ogonek

+  Else If A_PriorHotkey = #^+� ; ogonek

     {

     Send {bs}

     MyUTF_String = ą

@@ -242,9 +243,9 @@ d::
 Return 

 

 f::

-  If A_PriorHotkey = <^>!+ ; Diaerese

+  If A_PriorHotkey = #^+ ; Diaerese

     Send, {bs}�

-  Else If A_PriorHotkey = <^>!+� ; ogonek

+  Else If A_PriorHotkey = #^+� ; ogonek

     {

     Send {bs}

     MyUTF_String = ę

@@ -261,7 +262,7 @@ f::
 Return 

 

 g::

-  If A_PriorHotkey = <^>!+ ; Diaerese

+  If A_PriorHotkey = #^+ ; Diaerese

     Send, {bs}�

   Else If A_PriorHotkey = + ; tilde

     {

@@ -269,13 +270,13 @@ g::
     MyUTF_String = õ

     Gosub Unicode

     }

-  Else If A_PriorHotkey = <^>!++ ; doppel akut

+  Else If A_PriorHotkey = #^++ ; doppel akut

     {

     Send {bs}

     MyUTF_String = ő

     Gosub Unicode

     }

-  Else If A_PriorHotkey = #^+ ; durchgestrichen

+  Else If A_PriorHotkey = <^>!+ ; durchgestrichen

     {

     Send {bs}

     MyUTF_String = ø

@@ -335,7 +336,7 @@ k::send r
 l::send t

 

 �::

-  If A_PriorHotkey = #^+ ; durchgestrichen

+  If A_PriorHotkey = <^>!+ ; durchgestrichen

     {

     Send {bs}

     MyUTF_String = ð

@@ -346,10 +347,10 @@ l::send t
 Return

 

 �::  

-  If A_PriorHotkey = <^>!+ ; Diaerese

+  If A_PriorHotkey = #^+ ; Diaerese

     Send {bs}�

   Else

-    send Y

+    send y

 Return

 

 ;SC02B (#) wird zu AltGr

@@ -373,7 +374,7 @@ b::
     MyUTF_String = ź

     Gosub Unicode

     }

-  Else If A_PriorHotkey = #^� ; punkt dr�ber

+  Else If A_PriorHotkey = <^>!� ; punkt dr�ber

     {

     Send {bs}

     MyUTF_String = ż

@@ -450,7 +451,7 @@ return
     MyUTF_String = Ć

     Gosub Unicode

     }

-  Else If A_PriorHotkey = <^>!� ; cedille

+  Else If A_PriorHotkey = #^� ; cedille

     {

     Send {bs}

     MyUTF_String = Ç

@@ -483,7 +484,7 @@ Return
 Return

 

 +o::

-  If A_PriorHotkey = #^+ ; durchgestrichen

+  If A_PriorHotkey = <^>!+ ; durchgestrichen

     {

     Send {bs}

     MyUTF_String = ₣

@@ -501,15 +502,15 @@ Gosub Unicode
 return

 

 +a::

-  If A_PriorHotkey = <^>!+ ; Diaerese

+  If A_PriorHotkey = #^+ ; Diaerese

     Send, {bs}�

-;  Else If A_PriorHotkey = #^+� ; ring dr�ber

+;  Else If A_PriorHotkey = <^>!+� ; ring dr�ber

 ;    {

 ;    Send {bs}

 ;    MyUTF_String = Ů

 ;    Gosub Unicode

 ;    }

-  Else If A_PriorHotkey = <^>!^ ; brevis

+  Else If A_PriorHotkey = #^^ ; brevis

     {

     Send {bs}

     MyUTF_String = Ŭ 

@@ -532,7 +533,7 @@ return
 Return

 

 +s::

-  If A_PriorHotkey = <^>!+ ; Diaerese

+  If A_PriorHotkey = #^+ ; Diaerese

     Send, {bs}�

   Else If A_PriorHotkey = ++ ; macron

     {

@@ -545,7 +546,7 @@ Return
 Return

 

 +d::

-  If A_PriorHotkey = <^>!+ ; Diaerese

+  If A_PriorHotkey = #^+ ; Diaerese

     Send {bs}�

   Else If A_PriorHotkey = + ; tilde

     {

@@ -553,7 +554,7 @@ Return
     MyUTF_String = Ã

     Gosub Unicode

     }

-  Else If A_PriorHotkey = #^+� ; Ring drauf

+  Else If A_PriorHotkey = <^>!+� ; Ring drauf

     Send {bs}�

   Else If A_PriorHotkey = ++ ; macron

     {

@@ -566,7 +567,7 @@ Return
 Return 

 

 +f::

-  If A_PriorHotkey = <^>!+ ; Diaerese

+  If A_PriorHotkey = #^+ ; Diaerese

     Send, {bs}�

   Else If A_PriorHotkey = +^ ; caron

     {

@@ -585,7 +586,7 @@ Return
 Return 

 

 +g::

-  If A_PriorHotkey = #^+ ; durchgestrichen

+  If A_PriorHotkey = <^>!+ ; durchgestrichen

     {

     Send {bs}

     MyUTF_String = Ø

@@ -597,7 +598,7 @@ Return
     MyUTF_String = Õ

     Gosub Unicode

     }

-  Else If A_PriorHotkey = <^>!+ ; Diaerese

+  Else If A_PriorHotkey = #^+ ; Diaerese

     Send {bs}�

   Else If A_PriorHotkey = ++ ; macron

     {

@@ -667,7 +668,7 @@ Return
 

 

 +�::

-  If A_PriorHotkey = #^+ ; durchgestrichen

+  If A_PriorHotkey = <^>!+ ; durchgestrichen

     {

     Send {bs}

     MyUTF_String = Đ

@@ -683,7 +684,7 @@ Return
 Return

 

 +�::  

-  If A_PriorHotkey = <^>!+ ; Diaerese

+  If A_PriorHotkey = #^+ ; Diaerese

     Send {bs}�

   Else

     send Y

@@ -721,411 +722,418 @@ Return
     send J

 Return

 

-;3. Ebene (AltGr)

-;---------

+;3. Ebene 

+;(Win+Ctrl, �ber CapsLock und # zu erreichen)

+;---------------------------------------------

 

-<^>!^:: ; brevis, soll tot

+#^^:: ; brevis, soll tot

 MyUTF_String = ˘

 Gosub Unicode

 return

 

-<^>!1:: 

+#^1:: 

 MyUTF_String = ¬ 

 Gosub Unicode

 return

 

-<^>!2::send {^} 

-<^>!3::send 3 

-<^>!4::send � 

-<^>!5::send �  

-<^>!6::send � 

-<^>!7::send � 

-<^>!8::send �

-<^>!9::send �

-<^>!0::send �

+#^2::send {^}{space} 

+#^3::send 3 

+#^4::send � 

+#^5::send �  

+#^6::send � 

+#^7::send � 

+#^8::send �

+#^9::send �

+#^0::send �

 

-<^>!�::

+#^�::

 MyUTF_String = — 

 Gosub Unicode

 return

 

-<^>!�::send � ; cedillia, soll tot

+#^�::send � ; cedillia, soll tot

 

-<^>!q::send @ 

-<^>!w::send _

-<^>!e::send [

-<^>!r::send ]

-<^>!t::send {^}{space} ; untot

-<^>!z::sendraw !

-<^>!u::send <

-<^>!i::send >

-<^>!o::send `=

-<^>!p::send `;

+#^q::send @ 

+#^w::send _

+#^e::send [

+#^r::send ]

+#^t::send {^}{space} ; untot

+#^z::sendraw !

+#^u::send <

+#^i::send >

+#^o::send `=

+#^p::send `;

 

-<^>!�::  ;ij

+#^�::  ;ij

 MyUTF_String = ij

 Gosub Unicode

 return

 

-<^>!+:: ; Diaerese, soll tot

+#^+:: ; Diaerese, soll tot

 MyUTF_String = ¨

 Gosub Unicode

 return

 

 

-<^>!a::send \

-<^>!s::send `/

-<^>!d::sendraw { 

-<^>!f::sendraw } 

-<^>!g::send *

-<^>!h::send ?

-<^>!j::send (

-<^>!k::send )

-<^>!l::send -

-<^>!�::send :

-<^>!�::send y

-

-

-<^>!y::sendraw ~ 

-<^>!x::send $

-<^>!c::send |

-<^>!v::send {#}

-<^>!b::send ``{space} ; untot

-<^>!n::send {+}

-<^>!m::send `% 

-<^>!,::send {&}

-<^>!.::send "

-<^>!-::send '

-

-

-

-;4. Ebene (AltGr+Shift)

-;---------

-

-<^>!+^::send � 

-<^>!+1::send � 

-<^>!+2::send �

-<^>!+3::send �

-<^>!+4::send � 

-<^>!+5::send � 

-<^>!+6::send � 

-<^>!+7::send � 

-<^>!+8::send � 

-<^>!+9::send � 

-<^>!+0::send � 

-<^>!+�::send � 

-

-<^>!+�:: ; ogonek, soll tot

+#^a::send \

+#^s::send `/

+#^d::sendraw { 

+#^f::sendraw } 

+#^g::send *

+#^h::send ?

+#^j::send (

+#^k::send )

+#^l::send -

+#^�::send :

+#^�::send y

+

+

+#^y::sendraw ~ 

+#^x::send $

+#^c::send |

+#^v::send {#}

+#^b::send ``{space} ; untot

+#^n::send {+}

+#^m::send `% 

+#^,::send {&}

+#^.::send "

+#^-::send '

+

+

+

+;4. Ebene 

+;(Win+Ctrl+Shift)

+;-----------------

+

+#^+^::send � 

+#^+1::send � 

+#^+2::send �

+#^+3::send �

+#^+4::send � 

+#^+5::send � 

+#^+6::send � 

+#^+7::send � 

+#^+8::send � 

+#^+9::send � 

+#^+0::send � 

+#^+�::send � 

+

+#^+�:: ; ogonek, soll tot

 MyUTF_String = ˛

 Gosub Unicode

 return

 

 

-<^>!+q::  ;xi

+#^+q::  ;xi

 MyUTF_String = ξ 

 Gosub Unicode

 return

 

-<^>!+w::send v

+#^+w::send v

 

-<^>!+e::  ;lambda

+#^+e::  ;lambda

 MyUTF_String = λ 

 Gosub Unicode

 return

 

-<^>!+r::  ;chi 

+#^+r::  ;chi 

 MyUTF_String = χ

 Gosub Unicode

 return

 

-<^>!+t::send w

+#^+t::send w

 

-<^>!+z:: ;kappa

+#^+z:: ;kappa

 MyUTF_String = κ

 Gosub Unicode

 return

 

-<^>!+u:: ;psi

+#^+u:: ;psi

 MyUTF_String = ψ

 Gosub Unicode

 return

 

-<^>!+i:: ;gamma

+#^+i:: ;gamma

 MyUTF_String = γ

 Gosub Unicode

 return

 

-<^>!+o:: ;phi

+#^+o:: ;phi

 MyUTF_String = φ

 Gosub Unicode

 return

 

-<^>!+p::send q

+#^+p::send q

 

-<^>!+�:: ;IJ

+#^+�:: ;IJ

 MyUTF_String = IJ

 Gosub Unicode

 return

 

-<^>!++::send " ;doppelakut, soll tot

+#^++::send " ;doppelakut, soll tot

 

-<^>!+a::send u

+#^+a::send u

 

-<^>!+s:: ;iota

+#^+s:: ;iota

 MyUTF_String = ι

 Gosub Unicode

 return

 

-<^>!+d:: ;alpha

+#^+d:: ;alpha

 MyUTF_String = α

 Gosub Unicode

 return

 

-<^>!+f:: ;epsilon

+#^+f:: ;epsilon

 MyUTF_String = ε

 Gosub Unicode

 return

 

-<^>!+g:: ;omega

+#^+g:: ;omega

 MyUTF_String = ω

 Gosub Unicode

 return

 

-<^>!+h:: ;sigma

+#^+h:: ;sigma

 MyUTF_String = σ

 Gosub Unicode

 return

 

-<^>!+j:: ;nu

+#^+j:: ;nu

 MyUTF_String = ν

 Gosub Unicode

 return

 

-<^>!+k:: ;rho

+#^+k:: ;rho

 MyUTF_String = ρ

 Gosub Unicode

 return

 

-<^>!+l:: ;tau

+#^+l:: ;tau

 MyUTF_String = τ

 Gosub Unicode

 return

 

-<^>!+�:: ;delta

+#^+�:: ;delta

 MyUTF_String = δ

 Gosub Unicode

 return

 

-<^>!+�:: ;upsilon

+#^+�:: ;upsilon

 MyUTF_String = υ

 Gosub Unicode

 return

 

 

 

-<^>!+y::send �

-<^>!+x::send �

+#^+y::send �

+#^+x::send �

 

-<^>!+c:: ;eta

+#^+c:: ;eta

 MyUTF_String = η

 Gosub Unicode

 return

 

-<^>!+v:: ;pi

+#^+v:: ;pi

 MyUTF_String = π

 Gosub Unicode

 return

 

-<^>!+b:: ;zeta

+#^+b:: ;zeta

 MyUTF_String = ζ

 Gosub Unicode

 return

 

-<^>!+n:: ;beta

+#^+n:: ;beta

 MyUTF_String = β

 Gosub Unicode

 return

 

-<^>!+m:: ;mu

+#^+m:: ;mu

 MyUTF_String = μ

 Gosub Unicode

 return

 

-<^>!+,:: ;vartheta?

-MyUTF_String = 

+#^+,:: ;vartheta?

+MyUTF_String = ϑ

 Gosub Unicode

 return

 

-<^>!+.:: ;theta

+#^+.:: ;theta

 MyUTF_String = θ

 Gosub Unicode

 return

 

-<^>!+-::send j

+#^+-::send j

 

 

 

-;5. Ebene (Win + Ctrl)

-;---------

+;5. Ebene (AltGr)

+;-----------------

 

-#^4::Send {PgUp} ;Prev

-#^8::Send /

-#^9::Send *

-#^0::Send -

+<^>!4::Send {PgUp} ;Prev

+<^>!8::Send /

+<^>!9::Send *

+<^>!0::Send -

 

-#^�:: ; punkt oben dr�ber, soll tot

+<^>!�:: ; punkt oben dr�ber, soll tot

 MyUTF_String = ˙

 Gosub Unicode

 return

 

 

-#^q::Send {Esc}

-#^w::Send {Backspace}

-#^e::Send {Up}

-#^t::Send {Insert}

-#^z::Send �

-#^u::Send 7

-#^i::Send 8

-#^o::Send 9

-#^p::Send {+}

+<^>!q::Send {Esc}

+<^>!w::Send {Backspace}

+<^>!e::Send {Up}

+<^>!t::Send {Insert}

+<^>!z::Send �

+<^>!u::Send 7

+<^>!i::Send 8

+<^>!o::Send 9

+<^>!p::Send {+}

 

-#^�:: 

+<^>!�:: 

 MyUTF_String = ə

 Gosub Unicode

 return

 

-#^+:: ; durchgestrichen, soll tot

+<^>!+:: ; durchgestrichen, soll tot

 MyUTF_String = /

 Gosub Unicode

 return

 

-#^a::Send {Home}

-#^s::Send {Left}

-#^d::Send {Down}

-#^f::Send {Right}

-#^g::Send {End}

-#^h::Send �

-#^j::Send 4

-#^k::Send 5

-#^l::Send 6

-#^�::Send `,

+<^>!a::Send {Home}

+<^>!s::Send {Left}

+<^>!d::Send {Down}

+<^>!f::Send {Right}

+<^>!g::Send {End}

+<^>!h::Send �

+<^>!j::Send 4

+<^>!k::Send 5

+<^>!l::Send 6

+<^>!�::Send `,

 

-#^�:: ; � ( �? )

+<^>!�:: ; � ( �? )

 MyUTF_String = þ

 Gosub Unicode

 return

 

 

-#^y::Send {Tab}

-#^x::Send {Del}

-#^c::Send {PgDn} ;Next

-#^n::Send �

-#^m::Send 1

-#^,::Send 2

-#^.::Send 3

-#^-::Send .

+<^>!y::Send {Tab}

+<^>!x::Send {Del}

+<^>!c::Send {PgDn} ;Next

+<^>!n::Send �

+<^>!m::Send 1

+<^>!,::Send 2

+<^>!.::Send 3

+<^>!-::Send .

 

+<^>!Space::Send 0

+  ; <^>!SC138::Send {NumpadDot} 

+  ; geht nicht, weil sonst AltGr nur noch , macht

 

-;6. Ebene (Win + Ctrl & Shift)

+

+

+;6. Ebene (AltGr+Shift)

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

 

-#^+4::Send +{Prev}

+<^>!+4::Send +{Prev}

 

-#^+�:: ; ring obendrauf, soll tot

+<^>!+�:: ; ring obendrauf, soll tot

 MyUTF_String = ˚

 Gosub Unicode

 return

 

-#^+q:: ; Xi?

+<^>!+q:: ; Xi?

 MyUTF_String = Ξ

 Gosub Unicode

 return

  

-#^+w:: ; Lambda

+<^>!+w:: ; Lambda

 MyUTF_String = Λ

 Gosub Unicode

 return

 

-#^+e::Send +{Up}

-#^+r::Send � 

-#^+t::Send +{Insert}

+<^>!+e::Send +{Up}

+<^>!+r::Send � 

+<^>!+t::Send +{Insert}

 

-#^+u:: ; Phi

+<^>!+u:: ; Phi

 MyUTF_String = Ψ

 Gosub Unicode

 return

 

-#^+i:: ; Gamma

+<^>!+i:: ; Gamma

 MyUTF_String = Γ

 Gosub Unicode

 return

 

-#^+o:: ; Psi

+<^>!+o:: ; Psi

 MyUTF_String = Φ

 Gosub Unicode

 return

 

-#^+�:: ; ?

+<^>!+�:: ; ?

 MyUTF_String = Ə

 Gosub Unicode

 return

 

-#^++::  ; komma drunter, soll tot 

-MyUTF_String = ˏ

+<^>!++::  ; komma drunter, soll tot 

+MyUTF_String = ˏ 

 Gosub Unicode

 return

 

-#^+a::Send +{Home}

-#^+s::Send +{Left}

-#^+d::Send +{Down}

-#^+f::Send +{Right}

-#^+g::Send +{End}

-#^+h:: ; Sigma

-MyUTF_String = 

+<^>!+a::Send +{Home}

+<^>!+s::Send +{Left}

+<^>!+d::Send +{Down}

+<^>!+f::Send +{Right}

+<^>!+g::Send +{End}

+<^>!+h:: ; Sigma

+MyUTF_String = Σ

 Gosub Unicode

 return

 

-#^+j:: ; No

+<^>!+j:: ; No

 MyUTF_String = №

 Gosub Unicode

 return

 

-#^+k:: ; (R)

+<^>!+k:: ; (R)

 MyUTF_String = ®

 Gosub Unicode

 return

 

-#^+l:: ; TM

+<^>!+l:: ; TM

 MyUTF_String = ™

 Gosub Unicode

 return

 

-#^+�:: ; Delta

+<^>!+�:: ; Delta

 MyUTF_String = Δ

 Gosub Unicode

 return

 

-#^+�:: ; � ( �? )

+<^>!+�:: ; � ( �? )

 MyUTF_String = Þ

 Gosub Unicode

 return

 

 

-#^+y::Send +{Tab}

+<^>!+y::Send +{Tab}

 

-#^+c::Send +{PgDn}

+<^>!+c::Send +{PgDn}

 

-#^+v:: ; Pi

+<^>!+v:: ; Pi

 MyUTF_String = Π

 Gosub Unicode

 return

 

-#^+b:: ; Omega

+<^>!+b:: ; Omega

 MyUTF_String = Ω

 Gosub Unicode

 return

 

-#^+.:: ; Theta 

+<^>!+.:: ; Theta 

 MyUTF_String = Θ

 Gosub Unicode

 return

@@ -1351,48 +1359,48 @@ return
 

 ; 3. Ebene

 ; NumLock on 

-; + AltGr

+; + CapsLock

 ; --> Pfeile

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

 

-<^>!NumpadDiv::send �

-<^>!NumpadMult::send �

-<^>!NumpadSub::send -

-<^>!NumpadAdd::send �

-<^>!NumpadEnter::    ; neq

+#^NumpadDiv::send �

+#^NumpadMult::send �

+#^NumpadSub::send -

+#^NumpadAdd::send �

+#^NumpadEnter::    ; neq

   MyUTF_String = ≠

   Gosub Unicode

   return

 

-<^>!Numpad7::  ;7/8

+#^Numpad7::  ;7/8

   MyUTF_String = ⅞ 

   Gosub Unicode

   return

-<^>!Numpad8::   ; uparrow

+#^Numpad8::   ; uparrow

   MyUTF_String = ↑

   Gosub Unicode

   return

-<^>!Numpad9::   ;  3/8

+#^Numpad9::   ;  3/8

   MyUTF_String = ⅜

   Gosub Unicode

   return

-<^>!Numpad4::   ; leftarrow

+#^Numpad4::   ; leftarrow

   MyUTF_String = ←

   Gosub Unicode

   return

-<^>!Numpad5::send �

-<^>!Numpad6::   ; rightarrow

+#^Numpad5::send �

+#^Numpad6::   ; rightarrow

   MyUTF_String = →

   Gosub Unicode

   return

-<^>!Numpad1::send � 

-<^>!Numpad2::   ; downarrow

+#^Numpad1::send � 

+#^Numpad2::   ; downarrow

   MyUTF_String = ↓

   Gosub Unicode

   return

-<^>!Numpad3::send �

-<^>!Numpad0::send `%

-<^>!NumPadDot::send .

+#^Numpad3::send �

+#^Numpad0::send `%

+#^NumPadDot::send .

 

 

 

@@ -1405,49 +1413,52 @@ return
 ; -----------------

 

 ;  Achtung! Wenn Numlock on:

-;  <^>!+Numpad7       ; Log off (AltGr + Pos1)

-;  <^>!+Numpad4       ; Ctrl + Left

-;  <^>!+Numpad6       ; Ctrl + Right

-;  <^>!+Numpad1       ; Shut down (AltGr + Ende)

+;  #^+Numpad7       ; Log off (AltGr + Pos1)

+;  #^+Numpad4       ; Ctrl + Left

+;  #^+Numpad6       ; Ctrl + Right

+;  #^+Numpad1       ; Shut down (AltGr + Ende)

 ;  (Shift schaltet Numpad aus)

 

 

-<^>!+NumpadDiv::send / 

-<^>!+NumpadMult::  ; cdot {ASC 0183}

+#^+NumpadDiv::   ; slash

+  MyUTF_String = ∕

+  Gosub Unicode

+  return

+#^+NumpadMult::  ; cdot

   MyUTF_String = ⋅

   Gosub Unicode

   return

-<^>!+NumpadSub::send - ; eig. unbelegt

-<^>!+NumpadAdd::    ; -+

+#^+NumpadSub::send - ; eig. unbelegt

+#^+NumpadAdd::    ; -+

   MyUTF_String = ∓

   Gosub Unicode

   return 

-<^>!+NumpadEnter::   ; approx

+#^+NumpadEnter::   ; approx

   MyUTF_String = ≈

   Gosub Unicode

   return  

 

 

-<^>!+NumpadHome::  ; 1/8

+#^+NumpadHome::  ; 1/8

   MyUTF_String = ⅛

   Gosub Unicode

   return  

-<^>!+NumpadUp::  ; 5/8

+#^+NumpadUp::  ; 5/8

   MyUTF_String = ⅝

   Gosub Unicode

   return   

-<^>!+NumpadPgUp::  ; 3/8

+#^+NumpadPgUp::  ; 3/8

   MyUTF_String = ⅜

   Gosub Unicode

   return  

-<^>!+NumpadLeft::send �

-<^>!+NumpadClear::send �

-<^>!+NumpadRight::send �

-<^>!+NumpadEnd::send � 

-<^>!+NumpadDown::send � 

-<^>!+NumpadPgDn::send � 

-<^>!+NumpadIns::send � 

-<^>!+NumPadDel::send `,

+#^+NumpadLeft::send �

+#^+NumpadClear::send �

+#^+NumpadRight::send �

+#^+NumpadEnd::send � 

+#^+NumpadDown::send � 

+#^+NumpadPgDn::send � 

+#^+NumpadIns::send � 

+#^+NumPadDel::send `,

   

 

 

@@ -1459,43 +1470,42 @@ return
 ; -----------------

 

 

-

-^#NumpadDiv::send / 

-^#NumpadMult::    ; cdot

- ; MyUTF_String = · ; ={ASC 0183}, sollte eigentlich ⋅ ??

- ; Gosub Unicode

- ; return�

-^#NumpadSub::send - ; eig. unbelegt

-^#NumpadAdd::    ; -+

+<^>!NumpadDiv::send / 

+<^>!NumpadMult::    ; cdot

+  MyUTF_String = ⋅ 

+  Gosub Unicode

+  return 

+<^>!NumpadSub::send - ; eig. unbelegt

+<^>!NumpadAdd::    ; -+

   MyUTF_String = ∓

   Gosub Unicode

   return 

-^#NumpadEnter::   ; approx

+<^>!NumpadEnter::   ; approx

   MyUTF_String = ≈

   Gosub Unicode

   return  

 

 

-^#Numpad7::  ; 1/8

+<^>!Numpad7::  ; 1/8

   MyUTF_String = ⅛

   Gosub Unicode

   return  

-^#Numpad8::  ; 5/8

+<^>!Numpad8::  ; 5/8

   MyUTF_String = ⅝

   Gosub Unicode

   return   

-^#Numpad9::  ; 3/8

+<^>!Numpad9::  ; 3/8

   MyUTF_String = ⅜

   Gosub Unicode

   return  

-^#Numpad4::send �

-^#Numpad5::send �

-^#Numpad6::send �

-^#Numpad1::send � 

-^#Numpad2::send � 

-^#Numpad3::send � 

-^#Numpad0::send � 

-^#NumPadDot::send `,

+<^>!Numpad4::send �

+<^>!Numpad5::send �

+<^>!Numpad6::send �

+<^>!Numpad1::send � 

+<^>!Numpad2::send � 

+<^>!Numpad3::send � 

+<^>!Numpad0::send � 

+<^>!NumPadDot::send `,

 

 

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

@@ -1503,10 +1513,10 @@ return
 

 

 Unicode:

-; Place Unicode text onto the clipboard:

-Transform, Clipboard, Unicode, %MyUTF_String%  

-; Paste the clipboard's Unicode text: 

-send ^v

+   ; Place Unicode text onto the clipboard:

+  Transform, Clipboard, Unicode, %MyUTF_String%  

+   ; Paste the clipboard's Unicode text: 

+  send ^v

 return

 

 toggleneo: