Changeset 88

Show
Ignore:
Timestamp:
05/02/07 21:50:19 (6 years ago)
Author:
nora
Message:

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

Location:
windows/XP/autohotkey
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • windows/XP/autohotkey/neo20-remap.ahk

    r83 r88  
    11/* 
    2   Umbelegung von AltGr auf CapsLock und #, 
    3   daf�r Mod5 auf AltGr und < 
    4   Version vom 30.04.2007 
     2  Umbelegung von Win+Ctrl auf CapsLock und #, 
     3  Zweites AltGr auf < 
     4  Version vom 02.05.2007 
    55*/ 
    66 
    … …  
    3333 
    3434; 3. und 4. Ebene: 
    35 ; CapsLock und # (SC02B) werden zu AltGr (SC138) 
    36 ; ---------------------------------------------- 
    37 ; http://www.autohotkey.com/forum/topic181.html 
     35; CapsLock und # werden zu Win + Ctrl 
     36; -------------------------------------------- 
     37 
    3838 
    3939*CapsLock:: 
    40 Send {SC138 Down} 
    41 Loop 
    42 { 
    43    Sleep, 10 
    44    GetKeyState, state, CapsLock, P 
    45    if state = U  ; The key has been released, so break out of the loop. 
    46       break 
    47 } 
    48 Send {SC138 Up}  
    49 return 
    50  
    51  
    52 *SC02B:: 
    53 Send {SC138 Down} 
    54 Loop 
    55 { 
    56    Sleep, 10 
    57    GetKeyState, state, SC02B, P 
    58    if state = U  ; The key has been released, so break out of the loop. 
    59       break 
    60 } 
    61 Send {SC138 Up}  
    62 return 
    63  
    64  
    65 ; 5. und 6. Ebene: 
    66 ; < (SC056) und AltGr werden zu Win + Ctrl 
    67 ; -------------------------------------------- 
    68   ; < funktioniert, aber bei AltGr kommt (manchmal/immer?) nur  
    69   ; Control Down an, aber nicht das Up, dann bleibt Control aktiv  
    70   ; - L�sung ist dann, einmal die normale Controltaste zu dr�cken. 
    71  
    72  
    73 *SC056:: 
    7440Send {RWin Down} 
    7541Send {Control Down} 
    … …  
    7743{ 
    7844   Sleep, 10 
    79    GetKeyState, state, SC056, P 
    80    if state = U  ; The key has been released, so break out of the loop. 
    81       break 
     45   GetKeyState, state, CapsLock, P 
     46   if state = U   
     47   break 
     48   ; The key has been released, so break out of the loop. 
    8249} 
    8350Send {RWin Up}  
    … …  
    8653 
    8754 
    88 *SC138:: 
     55*#:: 
    8956Send {RWin Down} 
    9057Send {Control Down} 
    … …  
    9259{ 
    9360   Sleep, 10 
    94    GetKeyState, state, SC138, P 
    95    if state = U  ; The key has been released, so break out of the loop. 
    96       break 
     61   GetKeyState, state, #, P 
     62   if state = U   
     63   break 
     64   ; The key has been released, so break out of the loop. 
    9765} 
    9866Send {RWin Up}  
    9967Send {Control Up}  
     68return 
     69 
     70 
     71; 5. und 6. Ebene: 
     72; < wird zu zweiter AltGr (SC138) 
     73; -------------------------------- 
     74 
     75 
     76 
     77*<:: 
     78Send {SC138 Down} 
     79Loop 
     80{ 
     81   Sleep, 10 
     82   GetKeyState, state, <, P 
     83   if state = U   
     84   break 
     85   ; The key has been released, so break out of the loop. 
     86} 
     87Send {SC138 Up} 
    10088return 
    10189 

  • windows/XP/autohotkey/neo20.ahk

    r83 r88  
    11/* 
    22   NEO-Layout 
    3     Version vom 30.04.2007 
    4    3./4. Ebene funktioniert �ber AltGr,  
    5     5./6. Ebene �ber Win+Ctrl 
    6    Zur Umbelegung auf CapsLock und AltGr  
     3    Version vom 02.05.2007 
     4   3./4. Ebene funktioniert �ber Win+Ctrl,  
     5    5./6. Ebene �ber AltGr. 
     6   Zur Umbelegung von Win+Ctrl auf CapsLock und # 
     7    und f�r ein zweites AltGr auf < 
    78    verwende neo20-remap.ahk 
    89*/ 
    … …  
    9798 
    9899e:: 
    99   If A_PriorHotkey = #^+ ; durchgestrichen 
     100  If A_PriorHotkey = <^>!+ ; durchgestrichen 
    100101    { 
    101102    Send {bs} 
    … …  
    125126    Gosub Unicode 
    126127    } 
    127   Else If A_PriorHotkey = <^>!� ; cedilla 
     128  Else If A_PriorHotkey = #^� ; cedilla 
    128129    { 
    129130    Send {bs} 
    … …  
    158159 
    159160o:: 
    160   If A_PriorHotkey = #^+ ; durchgestrichen 
     161  If A_PriorHotkey = <^>!+ ; durchgestrichen 
    161162    { 
    162163    Send {bs} 
    … …  
    172173 
    173174a:: 
    174   If A_PriorHotkey = <^>!+ ; Diaerese 
     175  If A_PriorHotkey = #^+ ; Diaerese 
    175176    Send, {bs}� 
    176   Else If A_PriorHotkey = <^>!++ ; doppelakut 
     177  Else If A_PriorHotkey = #^++ ; doppelakut 
    177178    { 
    178179    Send {bs} 
    … …  
    186187;    Gosub Unicode 
    187188;    } 
    188   Else If A_PriorHotkey = <^>!^ ; brevis 
     189  Else If A_PriorHotkey = #^^ ; brevis 
    189190    { 
    190191    Send {bs} 
    … …  
    203204 
    204205s:: 
    205   If A_PriorHotkey = <^>!+ ; Diaerese 
     206  If A_PriorHotkey = #^+ ; Diaerese 
    206207    Send, {bs}� 
    207208  Else If A_PriorHotkey = ++ ; macron 
    … …  
    216217 
    217218d:: 
    218   If A_PriorHotkey = <^>!+ ; Diaerese 
     219  If A_PriorHotkey = #^+ ; Diaerese 
    219220    Send {bs}� 
    220   Else If A_PriorHotkey = #^+� ; Ring drauf 
     221  Else If A_PriorHotkey = <^>!+� ; Ring drauf 
    221222    Send {bs}� 
    222223  Else If A_PriorHotkey = + ; tilde 
    … …  
    226227    Gosub Unicode 
    227228    } 
    228   Else If A_PriorHotkey = <^>!+� ; ogonek 
     229  Else If A_PriorHotkey = #^+� ; ogonek 
    229230    { 
    230231    Send {bs} 
    … …  
    243244 
    244245f:: 
    245   If A_PriorHotkey = <^>!+ ; Diaerese 
     246  If A_PriorHotkey = #^+ ; Diaerese 
    246247    Send, {bs}� 
    247   Else If A_PriorHotkey = <^>!+� ; ogonek 
     248  Else If A_PriorHotkey = #^+� ; ogonek 
    248249    { 
    249250    Send {bs} 
    … …  
    262263 
    263264g:: 
    264   If A_PriorHotkey = <^>!+ ; Diaerese 
     265  If A_PriorHotkey = #^+ ; Diaerese 
    265266    Send, {bs}� 
    266267  Else If A_PriorHotkey = + ; tilde 
    … …  
    270271    Gosub Unicode 
    271272    } 
    272   Else If A_PriorHotkey = <^>!++ ; doppel akut 
     273  Else If A_PriorHotkey = #^++ ; doppel akut 
    273274    { 
    274275    Send {bs} 
    … …  
    276277    Gosub Unicode 
    277278    } 
    278   Else If A_PriorHotkey = #^+ ; durchgestrichen 
     279  Else If A_PriorHotkey = <^>!+ ; durchgestrichen 
    279280    { 
    280281    Send {bs} 
    … …  
    336337 
    337338�:: 
    338   If A_PriorHotkey = #^+ ; durchgestrichen 
     339  If A_PriorHotkey = <^>!+ ; durchgestrichen 
    339340    { 
    340341    Send {bs} 
    … …  
    347348 
    348349�::   
    349   If A_PriorHotkey = <^>!+ ; Diaerese 
     350  If A_PriorHotkey = #^+ ; Diaerese 
    350351    Send {bs}� 
    351352  Else 
    352     send Y 
     353    send y 
    353354Return 
    354355 
    … …  
    374375    Gosub Unicode 
    375376    } 
    376   Else If A_PriorHotkey = #^� ; punkt dr�ber 
     377  Else If A_PriorHotkey = <^>!� ; punkt dr�ber 
    377378    { 
    378379    Send {bs} 
    … …  
    451452    Gosub Unicode 
    452453    } 
    453   Else If A_PriorHotkey = <^>!� ; cedille 
     454  Else If A_PriorHotkey = #^� ; cedille 
    454455    { 
    455456    Send {bs} 
    … …  
    484485 
    485486+o:: 
    486   If A_PriorHotkey = #^+ ; durchgestrichen 
     487  If A_PriorHotkey = <^>!+ ; durchgestrichen 
    487488    { 
    488489    Send {bs} 
    … …  
    502503 
    503504+a:: 
    504   If A_PriorHotkey = <^>!+ ; Diaerese 
     505  If A_PriorHotkey = #^+ ; Diaerese 
    505506    Send, {bs}� 
    506 ;  Else If A_PriorHotkey = #^+� ; ring dr�ber 
     507;  Else If A_PriorHotkey = <^>!+� ; ring dr�ber 
    507508;    { 
    508509;    Send {bs} 
    … …  
    510511;    Gosub Unicode 
    511512;    } 
    512   Else If A_PriorHotkey = <^>!^ ; brevis 
     513  Else If A_PriorHotkey = #^^ ; brevis 
    513514    { 
    514515    Send {bs} 
    … …  
    533534 
    534535+s:: 
    535   If A_PriorHotkey = <^>!+ ; Diaerese 
     536  If A_PriorHotkey = #^+ ; Diaerese 
    536537    Send, {bs}� 
    537538  Else If A_PriorHotkey = ++ ; macron 
    … …  
    546547 
    547548+d:: 
    548   If A_PriorHotkey = <^>!+ ; Diaerese 
     549  If A_PriorHotkey = #^+ ; Diaerese 
    549550    Send {bs}� 
    550551  Else If A_PriorHotkey = + ; tilde 
    … …  
    554555    Gosub Unicode 
    555556    } 
    556   Else If A_PriorHotkey = #^+� ; Ring drauf 
     557  Else If A_PriorHotkey = <^>!+� ; Ring drauf 
    557558    Send {bs}� 
    558559  Else If A_PriorHotkey = ++ ; macron 
    … …  
    567568 
    568569+f:: 
    569   If A_PriorHotkey = <^>!+ ; Diaerese 
     570  If A_PriorHotkey = #^+ ; Diaerese 
    570571    Send, {bs}� 
    571572  Else If A_PriorHotkey = +^ ; caron 
    … …  
    586587 
    587588+g:: 
    588   If A_PriorHotkey = #^+ ; durchgestrichen 
     589  If A_PriorHotkey = <^>!+ ; durchgestrichen 
    589590    { 
    590591    Send {bs} 
    … …  
    598599    Gosub Unicode 
    599600    } 
    600   Else If A_PriorHotkey = <^>!+ ; Diaerese 
     601  Else If A_PriorHotkey = #^+ ; Diaerese 
    601602    Send {bs}� 
    602603  Else If A_PriorHotkey = ++ ; macron 
    … …  
    668669 
    669670+�:: 
    670   If A_PriorHotkey = #^+ ; durchgestrichen 
     671  If A_PriorHotkey = <^>!+ ; durchgestrichen 
    671672    { 
    672673    Send {bs} 
    … …  
    684685 
    685686+�::   
    686   If A_PriorHotkey = <^>!+ ; Diaerese 
     687  If A_PriorHotkey = #^+ ; Diaerese 
    687688    Send {bs}� 
    688689  Else 
    … …  
    722723Return 
    723724 
    724 ;3. Ebene (AltGr) 
    725 ;--------- 
    726  
    727 <^>!^:: ; brevis, soll tot 
     725;3. Ebene  
     726;(Win+Ctrl, �ber CapsLock und # zu erreichen) 
     727;--------------------------------------------- 
     728 
     729#^^:: ; brevis, soll tot 
    728730MyUTF_String = ˘ 
    729731Gosub Unicode 
    730732return 
    731733 
    732 <^>!1::  
     734#^1::  
    733735MyUTF_String = ¬  
    734736Gosub Unicode 
    735737return 
    736738 
    737 <^>!2::send {^}  
    738 <^>!3::send 3  
    739 <^>!4::send �  
    740 <^>!5::send �   
    741 <^>!6::send �  
    742 <^>!7::send �  
    743 <^>!8::send � 
    744 <^>!9::send � 
    745 <^>!0::send � 
    746  
    747 <^>!�:: 
     739#^2::send {^}{space}  
     740#^3::send 3  
     741#^4::send �  
     742#^5::send �   
     743#^6::send �  
     744#^7::send �  
     745#^8::send � 
     746#^9::send � 
     747#^0::send � 
     748 
     749#^�:: 
    748750MyUTF_String = —  
    749751Gosub Unicode 
    750752return 
    751753 
    752 <^>!�::send � ; cedillia, soll tot 
    753  
    754 <^>!q::send @  
    755 <^>!w::send _ 
    756 <^>!e::send [ 
    757 <^>!r::send ] 
    758 <^>!t::send {^}{space} ; untot 
    759 <^>!z::sendraw ! 
    760 <^>!u::send < 
    761 <^>!i::send > 
    762 <^>!o::send `= 
    763 <^>!p::send `; 
    764  
    765 <^>!�::  ;ij 
     754#^�::send � ; cedillia, soll tot 
     755 
     756#^q::send @  
     757#^w::send _ 
     758#^e::send [ 
     759#^r::send ] 
     760#^t::send {^}{space} ; untot 
     761#^z::sendraw ! 
     762#^u::send < 
     763#^i::send > 
     764#^o::send `= 
     765#^p::send `; 
     766 
     767#^�::  ;ij 
    766768MyUTF_String = ij 
    767769Gosub Unicode 
    768770return 
    769771 
    770 <^>!+:: ; Diaerese, soll tot 
     772#^+:: ; Diaerese, soll tot 
    771773MyUTF_String = ¨ 
    772774Gosub Unicode 
    … …  
    774776 
    775777 
    776 <^>!a::send \ 
    777 <^>!s::send `/ 
    778 <^>!d::sendraw {  
    779 <^>!f::sendraw }  
    780 <^>!g::send * 
    781 <^>!h::send ? 
    782 <^>!j::send ( 
    783 <^>!k::send ) 
    784 <^>!l::send - 
    785 <^>!�::send : 
    786 <^>!�::send y 
    787  
    788  
    789 <^>!y::sendraw ~  
    790 <^>!x::send $ 
    791 <^>!c::send | 
    792 <^>!v::send {#} 
    793 <^>!b::send ``{space} ; untot 
    794 <^>!n::send {+} 
    795 <^>!m::send `%  
    796 <^>!,::send {&} 
    797 <^>!.::send " 
    798 <^>!-::send ' 
    799  
    800  
    801  
    802 ;4. Ebene (AltGr+Shift) 
    803 ;--------- 
    804  
    805 <^>!+^::send �  
    806 <^>!+1::send �  
    807 <^>!+2::send � 
    808 <^>!+3::send � 
    809 <^>!+4::send �  
    810 <^>!+5::send �  
    811 <^>!+6::send �  
    812 <^>!+7::send �  
    813 <^>!+8::send �  
    814 <^>!+9::send �  
    815 <^>!+0::send �  
    816 <^>!+�::send �  
    817  
    818 <^>!+�:: ; ogonek, soll tot 
     778#^a::send \ 
     779#^s::send `/ 
     780#^d::sendraw {  
     781#^f::sendraw }  
     782#^g::send * 
     783#^h::send ? 
     784#^j::send ( 
     785#^k::send ) 
     786#^l::send - 
     787#^�::send : 
     788#^�::send y 
     789 
     790 
     791#^y::sendraw ~  
     792#^x::send $ 
     793#^c::send | 
     794#^v::send {#} 
     795#^b::send ``{space} ; untot 
     796#^n::send {+} 
     797#^m::send `%  
     798#^,::send {&} 
     799#^.::send " 
     800#^-::send ' 
     801 
     802 
     803 
     804;4. Ebene  
     805;(Win+Ctrl+Shift) 
     806;----------------- 
     807 
     808#^+^::send �  
     809#^+1::send �  
     810#^+2::send � 
     811#^+3::send � 
     812#^+4::send �  
     813#^+5::send �  
     814#^+6::send �  
     815#^+7::send �  
     816#^+8::send �  
     817#^+9::send �  
     818#^+0::send �  
     819#^+�::send �  
     820 
     821#^+�:: ; ogonek, soll tot 
    819822MyUTF_String = ˛ 
    820823Gosub Unicode 
    … …  
    822825 
    823826 
    824 <^>!+q::  ;xi 
     827#^+q::  ;xi 
    825828MyUTF_String = ξ  
    826829Gosub Unicode 
    827830return 
    828831 
    829 <^>!+w::send v 
    830  
    831 <^>!+e::  ;lambda 
     832#^+w::send v 
     833 
     834#^+e::  ;lambda 
    832835MyUTF_String = λ  
    833836Gosub Unicode 
    834837return 
    835838 
    836 <^>!+r::  ;chi  
     839#^+r::  ;chi  
    837840MyUTF_String = χ 
    838841Gosub Unicode 
    839842return 
    840843 
    841 <^>!+t::send w 
    842  
    843 <^>!+z:: ;kappa 
     844#^+t::send w 
     845 
     846#^+z:: ;kappa 
    844847MyUTF_String = κ 
    845848Gosub Unicode 
    846849return 
    847850 
    848 <^>!+u:: ;psi 
     851#^+u:: ;psi 
    849852MyUTF_String = ψ 
    850853Gosub Unicode 
    851854return 
    852855 
    853 <^>!+i:: ;gamma 
     856#^+i:: ;gamma 
    854857MyUTF_String = γ 
    855858Gosub Unicode 
    856859return 
    857860 
    858 <^>!+o:: ;phi 
     861#^+o:: ;phi 
    859862MyUTF_String = φ 
    860863Gosub Unicode 
    861864return 
    862865 
    863 <^>!+p::send q 
    864  
    865 <^>!+�:: ;IJ 
     866#^+p::send q 
     867 
     868#^+�:: ;IJ 
    866869MyUTF_String = IJ 
    867870Gosub Unicode 
    868871return 
    869872 
    870 <^>!++::send " ;doppelakut, soll tot 
    871  
    872 <^>!+a::send u 
    873  
    874 <^>!+s:: ;iota 
     873#^++::send " ;doppelakut, soll tot 
     874 
     875#^+a::send u 
     876 
     877#^+s:: ;iota 
    875878MyUTF_String = ι 
    876879Gosub Unicode 
    877880return 
    878881 
    879 <^>!+d:: ;alpha 
     882#^+d:: ;alpha 
    880883MyUTF_String = α 
    881884Gosub Unicode 
    882885return 
    883886 
    884 <^>!+f:: ;epsilon 
     887#^+f:: ;epsilon 
    885888MyUTF_String = ε 
    886889Gosub Unicode 
    887890return 
    888891 
    889 <^>!+g:: ;omega 
     892#^+g:: ;omega 
    890893MyUTF_String = ω 
    891894Gosub Unicode 
    892895return 
    893896 
    894 <^>!+h:: ;sigma 
     897#^+h:: ;sigma 
    895898MyUTF_String = σ 
    896899Gosub Unicode 
    897900return 
    898901 
    899 <^>!+j:: ;nu 
     902#^+j:: ;nu 
    900903MyUTF_String = ν 
    901904Gosub Unicode 
    902905return 
    903906 
    904 <^>!+k:: ;rho 
     907#^+k:: ;rho 
    905908MyUTF_String = ρ 
    906909Gosub Unicode 
    907910return 
    908911 
    909 <^>!+l:: ;tau 
     912#^+l:: ;tau 
    910913MyUTF_String = τ 
    911914Gosub Unicode 
    912915return 
    913916 
    914 <^>!+�:: ;delta 
     917#^+�:: ;delta 
    915918MyUTF_String = δ 
    916919Gosub Unicode 
    917920return 
    918921 
    919 <^>!+�:: ;upsilon 
     922#^+�:: ;upsilon 
    920923MyUTF_String = υ 
    921924Gosub Unicode 
    … …  
    924927 
    925928 
    926 <^>!+y::send � 
    927 <^>!+x::send � 
    928  
    929 <^>!+c:: ;eta 
     929#^+y::send � 
     930#^+x::send � 
     931 
     932#^+c:: ;eta 
    930933MyUTF_String = η 
    931934Gosub Unicode 
    932935return 
    933936 
    934 <^>!+v:: ;pi 
     937#^+v:: ;pi 
    935938MyUTF_String = π 
    936939Gosub Unicode 
    937940return 
    938941 
    939 <^>!+b:: ;zeta 
     942#^+b:: ;zeta 
    940943MyUTF_String = ζ 
    941944Gosub Unicode 
    942945return 
    943946 
    944 <^>!+n:: ;beta 
     947#^+n:: ;beta 
    945948MyUTF_String = β 
    946949Gosub Unicode 
    947950return 
    948951 
    949 <^>!+m:: ;mu 
     952#^+m:: ;mu 
    950953MyUTF_String = μ 
    951954Gosub Unicode 
    952955return 
    953956 
    954 <^>!+,:: ;vartheta? 
    955 MyUTF_String =  
    956 Gosub Unicode 
    957 return 
    958  
    959 <^>!+.:: ;theta 
     957#^+,:: ;vartheta? 
     958MyUTF_String = ϑ 
     959Gosub Unicode 
     960return 
     961 
     962#^+.:: ;theta 
    960963MyUTF_String = θ 
    961964Gosub Unicode 
    962965return 
    963966 
    964 <^>!+-::send j 
    965  
    966  
    967  
    968 ;5. Ebene (Win + Ctrl) 
    969 ;--------- 
    970  
    971 #^4::Send {PgUp} ;Prev 
    972 #^8::Send / 
    973 #^9::Send * 
    974 #^0::Send - 
    975  
    976 #^�:: ; punkt oben dr�ber, soll tot 
     967#^+-::send j 
     968 
     969 
     970 
     971;5. Ebene (AltGr) 
     972;----------------- 
     973 
     974<^>!4::Send {PgUp} ;Prev 
     975<^>!8::Send / 
     976<^>!9::Send * 
     977<^>!0::Send - 
     978 
     979<^>!�:: ; punkt oben dr�ber, soll tot 
    977980MyUTF_String = ˙ 
    978981Gosub Unicode 
    … …  
    980983 
    981984 
    982 #^q::Send {Esc} 
    983 #^w::Send {Backspace} 
    984 #^e::Send {Up} 
    985 #^t::Send {Insert} 
    986 #^z::Send � 
    987 #^u::Send 7 
    988 #^i::Send 8 
    989 #^o::Send 9 
    990 #^p::Send {+} 
    991  
    992 #^�::  
     985<^>!q::Send {Esc} 
     986<^>!w::Send {Backspace} 
     987<^>!e::Send {Up} 
     988<^>!t::Send {Insert} 
     989<^>!z::Send � 
     990<^>!u::Send 7 
     991<^>!i::Send 8 
     992<^>!o::Send 9 
     993<^>!p::Send {+} 
     994 
     995<^>!�::  
    993996MyUTF_String = ə 
    994997Gosub Unicode 
    995998return 
    996999 
    997 #^+:: ; durchgestrichen, soll tot 
     1000<^>!+:: ; durchgestrichen, soll tot 
    9981001MyUTF_String = / 
    9991002Gosub Unicode 
    10001003return 
    10011004 
    1002 #^a::Send {Home} 
    1003 #^s::Send {Left} 
    1004 #^d::Send {Down} 
    1005 #^f::Send {Right} 
    1006 #^g::Send {End} 
    1007 #^h::Send � 
    1008 #^j::Send 4 
    1009 #^k::Send 5 
    1010 #^l::Send 6 
    1011 #^�::Send `, 
    1012  
    1013 #^�:: ; � ( �? ) 
     1005<^>!a::Send {Home} 
     1006<^>!s::Send {Left} 
     1007<^>!d::Send {Down} 
     1008<^>!f::Send {Right} 
     1009<^>!g::Send {End} 
     1010<^>!h::Send � 
     1011<^>!j::Send 4 
     1012<^>!k::Send 5 
     1013<^>!l::Send 6 
     1014<^>!�::Send `, 
     1015 
     1016<^>!�:: ; � ( �? ) 
    10141017MyUTF_String = þ 
    10151018Gosub Unicode 
    … …  
    10171020 
    10181021 
    1019 #^y::Send {Tab} 
    1020 #^x::Send {Del} 
    1021 #^c::Send {PgDn} ;Next 
    1022 #^n::Send � 
    1023 #^m::Send 1 
    1024 #^,::Send 2 
    1025 #^.::Send 3 
    1026 #^-::Send . 
    1027  
    1028  
    1029 ;6. Ebene (Win + Ctrl & Shift) 
     1022<^>!y::Send {Tab} 
     1023<^>!x::Send {Del} 
     1024<^>!c::Send {PgDn} ;Next 
     1025<^>!n::Send � 
     1026<^>!m::Send 1 
     1027<^>!,::Send 2 
     1028<^>!.::Send 3 
     1029<^>!-::Send . 
     1030 
     1031<^>!Space::Send 0 
     1032  ; <^>!SC138::Send {NumpadDot}  
     1033  ; geht nicht, weil sonst AltGr nur noch , macht 
     1034 
     1035 
     1036 
     1037;6. Ebene (AltGr+Shift) 
    10301038;----------------------- 
    10311039 
    1032 #^+4::Send +{Prev} 
    1033  
    1034 #^+�:: ; ring obendrauf, soll tot 
     1040<^>!+4::Send +{Prev} 
     1041 
     1042<^>!+�:: ; ring obendrauf, soll tot 
    10351043MyUTF_String = ˚ 
    10361044Gosub Unicode 
    10371045return 
    10381046 
    1039 #^+q:: ; Xi? 
     1047<^>!+q:: ; Xi? 
    10401048MyUTF_String = Ξ 
    10411049Gosub Unicode 
    10421050return 
    10431051  
    1044 #^+w:: ; Lambda 
     1052<^>!+w:: ; Lambda 
    10451053MyUTF_String = Λ 
    10461054Gosub Unicode 
    10471055return 
    10481056 
    1049 #^+e::Send +{Up} 
    1050 #^+r::Send �  
    1051 #^+t::Send +{Insert} 
    1052  
    1053 #^+u:: ; Phi 
     1057<^>!+e::Send +{Up} 
     1058<^>!+r::Send �  
     1059<^>!+t::Send +{Insert} 
     1060 
     1061<^>!+u:: ; Phi 
    10541062MyUTF_String = Ψ 
    10551063Gosub Unicode 
    10561064return 
    10571065 
    1058 #^+i:: ; Gamma 
     1066<^>!+i:: ; Gamma 
    10591067MyUTF_String = Γ 
    10601068Gosub Unicode 
    10611069return 
    10621070 
    1063 #^+o:: ; Psi 
     1071<^>!+o:: ; Psi 
    10641072MyUTF_String = Φ 
    10651073Gosub Unicode 
    10661074return 
    10671075 
    1068 #^+�:: ; ? 
     1076<^>!+�:: ; ? 
    10691077MyUTF_String = Ə 
    10701078Gosub Unicode 
    10711079return 
    10721080 
    1073 #^++::  ; komma drunter, soll tot  
    1074 MyUTF_String = ˏ 
    1075 Gosub Unicode 
    1076 return 
    1077  
    1078 #^+a::Send +{Home} 
    1079 #^+s::Send +{Left} 
    1080 #^+d::Send +{Down} 
    1081 #^+f::Send +{Right} 
    1082 #^+g::Send +{End} 
    1083 #^+h:: ; Sigma 
    1084 MyUTF_String =  
    1085 Gosub Unicode 
    1086 return 
    1087  
    1088 #^+j:: ; No 
     1081<^>!++::  ; komma drunter, soll tot  
     1082MyUTF_String = ˏ  
     1083Gosub Unicode 
     1084return 
     1085 
     1086<^>!+a::Send +{Home} 
     1087<^>!+s::Send +{Left} 
     1088<^>!+d::Send +{Down} 
     1089<^>!+f::Send +{Right} 
     1090<^>!+g::Send +{End} 
     1091<^>!+h:: ; Sigma 
     1092MyUTF_String = Σ 
     1093Gosub Unicode 
     1094return 
     1095 
     1096<^>!+j:: ; No 
    10891097MyUTF_String = № 
    10901098Gosub Unicode 
    10911099return 
    10921100 
    1093 #^+k:: ; (R) 
     1101<^>!+k:: ; (R) 
    10941102MyUTF_String = ® 
    10951103Gosub Unicode 
    10961104return 
    10971105 
    1098 #^+l:: ; TM 
     1106<^>!+l:: ; TM 
    10991107MyUTF_String = ™ 
    11001108Gosub Unicode 
    11011109return 
    11021110 
    1103 #^+�:: ; Delta 
     1111<^>!+�:: ; Delta 
    11041112MyUTF_String = Δ 
    11051113Gosub Unicode 
    11061114return 
    11071115 
    1108 #^+�:: ; � ( �? ) 
     1116<^>!+�:: ; � ( �? ) 
    11091117MyUTF_String = Þ 
    11101118Gosub Unicode 
    … …  
    11121120 
    11131121 
    1114 #^+y::Send +{Tab} 
    1115  
    1116 #^+c::Send +{PgDn} 
    1117  
    1118 #^+v:: ; Pi 
     1122<^>!+y::Send +{Tab} 
     1123 
     1124<^>!+c::Send +{PgDn} 
     1125 
     1126<^>!+v:: ; Pi 
    11191127MyUTF_String = Π 
    11201128Gosub Unicode 
    11211129return 
    11221130 
    1123 #^+b:: ; Omega 
     1131<^>!+b:: ; Omega 
    11241132MyUTF_String = Ω 
    11251133Gosub Unicode 
    11261134return 
    11271135 
    1128 #^+.:: ; Theta  
     1136<^>!+.:: ; Theta  
    11291137MyUTF_String = Θ 
    11301138Gosub Unicode 
    … …  
    13521360; 3. Ebene 
    13531361; NumLock on  
    1354 ; + AltGr 
     1362; + CapsLock 
    13551363; --> Pfeile 
    13561364; ----------------- 
    13571365 
    1358 <^>!NumpadDiv::send � 
    1359 <^>!NumpadMult::send � 
    1360 <^>!NumpadSub::send - 
    1361 <^>!NumpadAdd::send � 
    1362 <^>!NumpadEnter::    ; neq 
     1366#^NumpadDiv::send � 
     1367#^NumpadMult::send � 
     1368#^NumpadSub::send - 
     1369#^NumpadAdd::send � 
     1370#^NumpadEnter::    ; neq 
    13631371  MyUTF_String = ≠ 
    13641372  Gosub Unicode 
    13651373  return 
    13661374 
    1367 <^>!Numpad7::  ;7/8 
     1375#^Numpad7::  ;7/8 
    13681376  MyUTF_String = ⅞  
    13691377  Gosub Unicode 
    13701378  return 
    1371 <^>!Numpad8::   ; uparrow 
     1379#^Numpad8::   ; uparrow 
    13721380  MyUTF_String = ↑ 
    13731381  Gosub Unicode 
    13741382  return 
    1375 <^>!Numpad9::   ;  3/8 
     1383#^Numpad9::   ;  3/8 
    13761384  MyUTF_String = ⅜ 
    13771385  Gosub Unicode 
    13781386  return 
    1379 <^>!Numpad4::   ; leftarrow 
     1387#^Numpad4::   ; leftarrow 
    13801388  MyUTF_String = ← 
    13811389  Gosub Unicode 
    13821390  return 
    1383 <^>!Numpad5::send � 
    1384 <^>!Numpad6::   ; rightarrow 
     1391#^Numpad5::send � 
     1392#^Numpad6::   ; rightarrow 
    13851393  MyUTF_String = → 
    13861394  Gosub Unicode 
    13871395  return 
    1388 <^>!Numpad1::send �  
    1389 <^>!Numpad2::   ; downarrow 
     1396#^Numpad1::send �  
     1397#^Numpad2::   ; downarrow 
    13901398  MyUTF_String = ↓ 
    13911399  Gosub Unicode 
    13921400  return 
    1393 <^>!Numpad3::send � 
    1394 <^>!Numpad0::send `% 
    1395 <^>!NumPadDot::send . 
     1401#^Numpad3::send � 
     1402#^Numpad0::send `% 
     1403#^NumPadDot::send . 
    13961404 
    13971405 
    … …  
    14061414 
    14071415;  Achtung! Wenn Numlock on: 
    1408 ;  <^>!+Numpad7       ; Log off (AltGr + Pos1) 
    1409 ;  <^>!+Numpad4       ; Ctrl + Left 
    1410 ;  <^>!+Numpad6       ; Ctrl + Right 
    1411 ;  <^>!+Numpad1       ; Shut down (AltGr + Ende) 
     1416;  #^+Numpad7       ; Log off (AltGr + Pos1) 
     1417;  #^+Numpad4       ; Ctrl + Left 
     1418;  #^+Numpad6       ; Ctrl + Right 
     1419;  #^+Numpad1       ; Shut down (AltGr + Ende) 
    14121420;  (Shift schaltet Numpad aus) 
    14131421 
    14141422 
    1415 <^>!+NumpadDiv::send /  
    1416 <^>!+NumpadMult::  ; cdot {ASC 0183} 
     1423#^+NumpadDiv::   ; slash 
     1424  MyUTF_String = ∕ 
     1425  Gosub Unicode 
     1426  return 
     1427#^+NumpadMult::  ; cdot 
    14171428  MyUTF_String = ⋅ 
    14181429  Gosub Unicode 
    14191430  return 
    1420 <^>!+NumpadSub::send - ; eig. unbelegt 
    1421 <^>!+NumpadAdd::    ; -+ 
     1431#^+NumpadSub::send - ; eig. unbelegt 
     1432#^+NumpadAdd::    ; -+ 
    14221433  MyUTF_String = ∓ 
    14231434  Gosub Unicode 
    14241435  return  
    1425 <^>!+NumpadEnter::   ; approx 
     1436#^+NumpadEnter::   ; approx 
    14261437  MyUTF_String = ≈ 
    14271438  Gosub Unicode 
    … …  
    14291440 
    14301441 
    1431 <^>!+NumpadHome::  ; 1/8 
     1442#^+NumpadHome::  ; 1/8 
    14321443  MyUTF_String = ⅛ 
    14331444  Gosub Unicode 
    14341445  return   
    1435 <^>!+NumpadUp::  ; 5/8 
     1446#^+NumpadUp::  ; 5/8 
    14361447  MyUTF_String = ⅝ 
    14371448  Gosub Unicode 
    14381449  return    
    1439 <^>!+NumpadPgUp::  ; 3/8 
     1450#^+NumpadPgUp::  ; 3/8 
    14401451  MyUTF_String = ⅜ 
    14411452  Gosub Unicode 
    14421453  return   
    1443 <^>!+NumpadLeft::send � 
    1444 <^>!+NumpadClear::send � 
    1445 <^>!+NumpadRight::send � 
    1446 <^>!+NumpadEnd::send �  
    1447 <^>!+NumpadDown::send �  
    1448 <^>!+NumpadPgDn::send �  
    1449 <^>!+NumpadIns::send �  
    1450 <^>!+NumPadDel::send `, 
     1454#^+NumpadLeft::send � 
     1455#^+NumpadClear::send � 
     1456#^+NumpadRight::send � 
     1457#^+NumpadEnd::send �  
     1458#^+NumpadDown::send �  
     1459#^+NumpadPgDn::send �  
     1460#^+NumpadIns::send �  
     1461#^+NumPadDel::send `, 
    14511462   
    14521463 
    … …  
    14601471 
    14611472 
    1462  
    1463 ^#NumpadDiv::send /  
    1464 ^#NumpadMult::    ; cdot 
    1465  ; MyUTF_String = · ; ={ASC 0183}, sollte eigentlich ⋅ ?? 
    1466  ; Gosub Unicode 
    1467  ; return� 
    1468 ^#NumpadSub::send - ; eig. unbelegt 
    1469 ^#NumpadAdd::    ; -+ 
     1473<^>!NumpadDiv::send /  
     1474<^>!NumpadMult::    ; cdot 
     1475  MyUTF_String = ⋅  
     1476  Gosub Unicode 
     1477  return  
     1478<^>!NumpadSub::send - ; eig. unbelegt 
     1479<^>!NumpadAdd::    ; -+ 
    14701480  MyUTF_String = ∓ 
    14711481  Gosub Unicode 
    14721482  return  
    1473 ^#NumpadEnter::   ; approx 
     1483<^>!NumpadEnter::   ; approx 
    14741484  MyUTF_String = ≈ 
    14751485  Gosub Unicode 
    … …  
    14771487 
    14781488 
    1479 ^#Numpad7::  ; 1/8 
     1489<^>!Numpad7::  ; 1/8 
    14801490  MyUTF_String = ⅛ 
    14811491  Gosub Unicode 
    14821492  return   
    1483 ^#Numpad8::  ; 5/8 
     1493<^>!Numpad8::  ; 5/8 
    14841494  MyUTF_String = ⅝ 
    14851495  Gosub Unicode 
    14861496  return    
    1487 ^#Numpad9::  ; 3/8 
     1497<^>!Numpad9::  ; 3/8 
    14881498  MyUTF_String = ⅜ 
    14891499  Gosub Unicode 
    14901500  return   
    1491 ^#Numpad4::send � 
    1492 ^#Numpad5::send � 
    1493 ^#Numpad6::send � 
    1494 ^#Numpad1::send �  
    1495 ^#Numpad2::send �  
    1496 ^#Numpad3::send �  
    1497 ^#Numpad0::send �  
    1498 ^#NumPadDot::send `, 
     1501<^>!Numpad4::send � 
     1502<^>!Numpad5::send � 
     1503<^>!Numpad6::send � 
     1504<^>!Numpad1::send �  
     1505<^>!Numpad2::send �  
     1506<^>!Numpad3::send �  
     1507<^>!Numpad0::send �  
     1508<^>!NumPadDot::send `, 
    14991509 
    15001510 
    … …  
    15041514 
    15051515Unicode: 
    1506 ; Place Unicode text onto the clipboard: 
    1507 Transform, Clipboard, Unicode, %MyUTF_String%   
    1508 ; Paste the clipboard's Unicode text:  
    1509 send ^v 
     1516   ; Place Unicode text onto the clipboard: 
     1517  Transform, Clipboard, Unicode, %MyUTF_String%   
     1518   ; Paste the clipboard's Unicode text:  
     1519  send ^v 
    15101520return 
    15111521