Changeset 1064

Show
Ignore:
Timestamp:
10/30/08 01:59:52 (5 years ago)
Author:
martin_r
Message:

Römische Ziffern angepasst.
Skript modularisiert.

Location:
windows/neo-vars
Files:
3 added
1 modified

Legend:

Unmodified
Added
Removed

  • windows/neo-vars/neo20-vars.ahk

    r1056 r1064  
    11#MaxThreadsPerHotKey 4 
     2 
    23/* 
    34CM* == 1: Await more compose chars after this sequence?  
    … …  
    1314#Include %a_scriptdir%\en_us.ahk 
    1415#Include %a_scriptdir%\neocomp.ahk 
    15 CMSCompU002D := 1 
    16 CDSCompU002DSLeft := "U2190" 
    17 CDSCompU002DS__Up := "U2191" 
    18 CDSCompU002DSRght := "U2192" 
    19 CDSCompU002DSDown := "U2193" 
    20 CDSCompU002DSHome := "U2196" 
    21 CDSCompU002DSPgUp := "U2197" 
    22 CDSCompU002DSPgDn := "U2198" 
    23 CDSCompU002DS_End := "U2199" 
    24 CMSCompU003D := 1 
    25 CDSCompU003DSLeft := "U21D0" 
    26 CDSCompU003DS__Up := "U21D1" 
    27 CDSCompU003DSRght := "U21D2" 
    28 CDSCompU003DSDown := "U21D3" 
    29 CDSCompU003DSHome := "U21D6" 
    30 CDSCompU003DSPgUp := "U21D7" 
    31 CDSCompU003DSPgDn := "U21D8" 
    32 CDSCompU003DS_End := "U21D9" 
    33 CDSCompSComp := "U266B" 
    34 CDSCompU000D := "U240D" 
    35 CDSCompSNEnt := "U2318" 
    36  
    37 CDSCompU0072U0072 := "P_rom" 
    38 CDSCompU0072U0052 := "P_rom" 
    39 CDSCompU0052U0072 := "P_Rom" 
    40 CDSCompU0052U0052 := "P_Rom" 
    41 CMSCompU0075 := 1 
    42 CMSCompU0055 := 1 
    43 CDSCompU0075U0075 := "P_Uni" 
    44 CDSCompU0075U0055 := "P_Uni" 
    45 CDSCompU0055U0075 := "P_Uni" 
    46 CDSCompU0055U0055 := "P_Uni" 
    47 CMSCompU0064 := 1 
    48 CMSCompU0044 := 1 
    49 CDSCompU0064U0064 := "PDUni" 
    50 CDSCompU0064U0044 := "PDUni" 
    51 CDSCompU0044U0064 := "PDUni" 
    52 CDSCompU0044U0044 := "PDUni" 
    53  
    54 ED(pos,e1,e2,e3,e4,e5,e6,e7="",e8="") { 
    55   global 
    56   if (e1 != "")  
    57     CP1%pos% := e1 
    58   if (e2 != "")  
    59     CP2%pos% := e2 
    60   if (e3 != "")  
    61     CP3%pos% := e3 
    62   if (e4 != "")  
    63     CP4%pos% := e4 
    64   if (e5 != "")  
    65     CP5%pos% := e5 
    66   if (e6 != "")  
    67     CP6%pos% := e6 
    68   if (e7 != "")  
    69     CP7%pos% := e7 
    70   if (e8 != "")  
    71     CP8%pos% := e8 
    72 } 
    73  
    74 EDN(pos1,pos2,e1,e2,e3,e4,e5,e6) { 
    75   ED(pos1,e1,e2,e3,e4,e5,e6) 
    76   ED(pos2,e1,e2,e3,e4,e5,e6) 
    77 } 
    78  
    79 ED1(pos,e1) { 
    80  ED(pos,e1,e1,e1,e1,e1,e1) 
    81 } 
    82  
    83 /* 
    84 ****************************************************** 
    85 *** HIER KOMMT NEO! 
    86 ****************************************************** 
    87 */ 
    88 ; Reihe 1 
    89 ED("VKDCSC029","Tcflx","Ttlde","Tobrg","Tcron","Tbrve","Tmcrn") ; circumflex 
    90 ED("VK31SC002","U0031","U00B0","U00B9","U00BA","U2081","U00AC") ; 1 
    91 ED("VK32SC003","U0032","U00A7","U00B2","U00AA","U2082","U2228") ; 2 
    92 ED("VK33SC004","U0033","U2113","U00B3","U2116","U2083","U2227") ; 3 
    93 ED("VK34SC005","U0034","U00BB","U203A","SPgUp","U2020","U22A5") ; 4 
    94 ED("VK35SC006","U0035","U00AB","U2039",""     ,"U2640","U2221") ; 5 
    95 ED("VK36SC007","U0036","U20AC","U00A2","U00A3","U2642","U2225") ; 6 
    96 ED("VK37SC008","U0037","U0024","U00A5","U00A4","U03BA","U2209") ; 7 
    97 ED("VK38SC009","U0038","U201E","U201A","SNDiv","U27E8","U2204") ; 8 
    98 ED("VK39SC00A","U0039","U201C","U2018","SNMul","U27E9","U2226") ; 9 
    99 ED("VK30SC00B","U0030","U201D","U2019","SNSub","U2080","U2205") ; 0 
    100 ED("VKDBSC00C","U002D","U2013","U2014",""     ,"U2011","U00AD") ; - 
    101 ED("VKDDSC00D","Tgrav",""     ,"Tdrss","Tdgrv","U1FFE",""     ) ; grave 
    102 ; Reihe 2 
    103 ED("VK51SC010","U0078","U0058","U2026","U22EE","U03BE","U039E") ; x 
    104 ED("VK57SC011","U0076","U0056","U005F","U0008",""     ,"U2259") ; v 
    105 ED("VK45SC012","U006C","U004C","U005B","S__Up","U03BB","U039B") ; l 
    106 ED("VK52SC013","U0063","U0043","U005D","S_Del","U03C7","U2102") ; c 
    107 ED("VK54SC014","U0077","U0057","U005E","S_Ins","U03C9","U03A9") ; w 
    108 ED("VK5ASC015","U006B","U004B","U0021","U00A1","U03F0","U221A") ; k 
    109 ED("VK55SC016","U0068","U0048","U003C","SN__7","U03C8","U03A8") ; h 
    110 ED("VK49SC017","U0067","U0047","U003E","SN__8","U03B3","U0393") ; g 
    111 ED("VK4FSC018","U0066","U0046","U003D","SN__9","U03C6","U03A6") ; f 
    112 ED("VK50SC019","U0071","U0051","U0026","SNAdd","U03D5","U211A") ; q 
    113 ED("VKBASC01A","U00DF","U1E9E","U017F",""     ,"U03C2","U2218") ; � 
    114 ED("VKBBSC01B","Tacut","Tcedi","Tstrk","Tdbac","U1FBF","Tabdt") ; acute 
    115 ; Reihe 3 
    116 ED("VK41SC01E","U0075","U0055","U005C","SHome","P_Uni","U222E") ; u 
    117 ED("VK53SC01F","U0069","U0049","U002F","SLeft","U03B9","U222B") ; i 
    118 ED("VK44SC020","U0061","U0041","U007B","SDown","U03B1","U2200") ; a 
    119 ED("VK46SC021","U0065","U0045","U007D","SRght","U03B5","U2203") ; e 
    120 ED("VK47SC022","U006F","U004F","U002A","S_End","U03BF","U2208") ; o 
    121 ED("VK48SC023","U0073","U0053","U003F","U00BF","U03C3","U03A3","U017F") ; s 
    122 ED("VK4ASC024","U006E","U004E","U0028","SN__4","U03BD","U2115") ; n 
    123 ED("VK4BSC025","U0072","U0052","U0029","SN__5","U03F1","U211D") ; r 
    124 ED("VK4CSC026","U0074","U0054","U002D","SN__6","U03C4","U2202") ; t 
    125 ED("VKC0SC027","U0064","U0044","U003A","SNDot","U03B4","U0394") ; d 
    126 ED("VKDESC028","U0079","U0059","U0040","U002E","U03C5","U2207") ; y 
    127 ; Reihe 4 
    128 ED("VK59SC02C","U00FC","U00DC","U0023","S_Esc",""     ,"U221C") ; � 
    129 ED("VK58SC02D","U00F6","U00D6","U0024","U0009",""     ,"U2111") ; � 
    130 ED("VK43SC02E","U00E4","U00C4","U007C","SPgDn","U03B7","U2135") ; � 
    131 ED("VK56SC02F","U0070","U0050","U007E","U000D","U03C0","U03A0") ; p 
    132 ED("VK42SC030","U007A","U005A","U0060",""     ,"U03B6","U2124") ; z 
    133 ED("VK4ESC031","U0062","U0042","U002B","U003A","U03B2","U21D0") ; b 
    134 ED("VK4DSC032","U006D","U004D","U0025","SN__1","U03BC","U21D4") ; m 
    135 ED("VKBCSC033","U002C","U2022","U0022","SN__2","U03C1","U21D2") ; , 
    136 ED("VKBESC034","U002E","U2023","U0027","SN__3","U03D1","U0398") ; . 
    137 ED("VKBDSC035","U006A","U004A","U003B","U003B","U03B8","U221D") ; j 
    138 ; Numpad 
    139 ED("VK90SC145","U0009","U0009","U003D","U2260","U2248","U2261") ; NumLock 
    140 ED("VK6FSC135","SNDiv","SNDiv","U00F7","U2300","U2223","U2044") ; NumpadDiv 
    141 ED("VK6ASC037","SNMul","SNMul","U22C5","U00D7","U2299","U2297") ; NumpadMult 
    142 ED("VK6DSC04A","SNSub","SNSub","U2212","U2216","U2296","U2238") ; NumpadSub 
    143 ED("VK6BSC04E","SNAdd","SNAdd","U00B1","U2213","U2295","U2214") ; NumpadAdd 
    144  
    145 EDN("VK67SC047","VK24SC047","SN__7","U2714","U2195","SNHom","U226A","U2308") ; Numpad7, NumpadHome 
    146 EDN("VK68SC048","VK26SC048","SN__8","U2718","U2191","SN_Up","U2229","U22C2") ; Numpad8, NumpadUp 
    147 EDN("VK69SC049","VK21SC049","SN__9",""     ,"U20D7","SNPUp","U226B","U2309") ; Numpad9, NumpadPgUp 
    148  
    149 EDN("VK64SC04B","VK25SC04B","SN__4","U2663","U2190","SN_Le","U2282","U2286") ; Numpad4, NumpadLeft 
    150 EDN("VK65SC04C","VK0CSC04C","SN__5","U20AC","U00A6","SNClr","U22B6","U22B7") ; Numpad5, NumpadClear 
    151 EDN("VK66SC04D","VK27SC04D","SN__6",""     ,"U2192","SN_Ri","U2283","U2287") ; Numpad6, NumpadRight 
    152  
    153 EDN("VK61SC04F","VK23SC04F","SN__1","U2666","U2194","SNEnd","U2264","U230A") ; Numpad1, NumpadEnd 
    154 EDN("VK62SC050","VK28SC050","SN__2","U2665","U2193","SN_Dn","U222A","U22C3") ; Numpad2, NumpadDown 
    155 EDN("VK63SC051","VK22SC051","SN__3","U2660","U21CC","SNPDn","U2265","U230B") ; Numpad3, NumpadPgDn 
    156  
    157 EDN("VK60SC052","VK2DSC052","SN__0","U2423","U0025","SNIns","U2030","U25A1") ; Numpad0, NumpadIns 
    158 EDN("VK6ESC053","VK2ESC053","SNDot","U002E","U002C","SNDel","U2032","U2033") ; NumpadDot, NumpadDel 
    159  
    160  
    161 ; other chars 
    162 ED("space","U0020","U0020","U0020","SN__0","U00A0","U202F") 
    163 ED("esc"  ,"U001B","U001B","U001B","PRlod","U001B","U001B") 
    164 ED("tab"  ,"U0009","U0009","SComp","U0009","U0009","U0009") 
    165 ED("F10"  ,"S_F10","S_F10","S_F10","P_VMt","S_F10","S_F10") 
    166 ED("F11"  ,"S_F11","S_F11","S_F11","PLnSt","S_F11","S_F11") 
    167 ED1("enter"    ,"U000D") 
    168 ED1("backspace","U0008") 
    169 ED1("del"      ,"S_Del") 
    170 ED1("ins"      ,"S_Ins") 
    171 ED1("home"     ,"SHome") 
    172 ED1("end"      ,"S_End") 
    173 ED1("pgup"     ,"SPgUp") 
    174 ED1("pgdn"     ,"SPgDn") 
    175 ED1("up"       ,"S__Up") 
    176 ED1("down"     ,"SDown") 
    177 ED1("left"     ,"SLeft") 
    178 ED1("right"    ,"SRght") 
    179 ED1("numpadenter","SNEnt") 
    180  
    181 ; ###### Shortcuts f�r alle ASCII-Zeichen (0x21 bis 0x7E) 
    182 SetFormat, integer, hex 
    183 char := 0x21 
    184 loop { 
    185   s1 := SubStr(char,3) 
    186   CSU00%s1% := chr(char) 
    187   char += 1 
    188   if (char = 0x7E) 
    189     break 
    190 } 
    191 SetFormat, integer, d 
    192  
    193 ; #### weitere Shortcuts 
    194 CSU0009 := "tab" 
    195 CSU001B := "esc" 
    196 CSU0020 := "space" 
    197 DNCSU005E := "{^}{space}" 
    198 DNCSU0060 := "{``}{space}" 
    199 DNCSU007D := "{}}"                 ; "{} down}" geht nicht, warum auch immer 
    200 DNCSU00B4 := "{�}{space}" 
    201 CSU20AC := chr(128)   ; � 
    202 ; CSU201A := chr(130) ; � 
    203 ; CSU0192 := chr(131) ; � 
    204 ; CSU201E := chr(132) ; � 
    205 ; CSU2026 := chr(133) ; � 
    206 ; CSU2020 := chr(134) ; � 
    207 ; CSU2021 := chr(135) ; � 
    208 ; CSU02C6 := chr(136) ; � 
    209 ; CSU2030 := chr(137) ; � 
    210 ; CSU0160 := chr(138) ; � 
    211 ; CSU2039 := chr(139) ; � 
    212 ; CSU0152 := chr(140) ; � 
    213 ; CSU017D := chr(142) ; � 
    214 ; CSU2018 := chr(145) ; � 
    215 ; CSU2019 := chr(146) ; � 
    216 ; CSU201C := chr(147) ; � 
    217 ; CSU201D := chr(148) ; � 
    218 ; CSU2022 := chr(149) ; � 
    219 ; CSU2013 := chr(150) ; � 
    220 ; CSU2014 := chr(151) ; � 
    221 ; CSU02DC := chr(152) ; � 
    222 ; CSU2122 := chr(153) ; � 
    223 ; CSU0161 := chr(154) ; � 
    224 ; CSU203A := chr(155) ; � 
    225 ; CSU0153 := chr(156) ; � 
    226 ; CSU017E := chr(158) ; � 
    227 ; CSU0178 := chr(159) ; � 
    228 CSU00A7 := chr(167)   ; � 
    229 CSU00B0 := chr(176)   ; � 
    230 CSU00B2 := chr(178)   ; � 
    231 CSU00B3 := chr(179)   ; � 
    232 ; CSU00B4 := chr(180)   ; � 
    233 CSU00B5 := chr(181)   ; � 
    234 CSU00C4 := chr(196)   ; � 
    235 CSU00D6 := chr(214)   ; � 
    236 CSU00DC := chr(220)   ; � 
    237 CSU00DF := chr(223)   ; � 
    238 CSU00E4 := chr(228)   ; � 
    239 CSU00F6 := chr(246)   ; � 
    240 CSU00FC := chr(252)   ; � 
    241 CSU00FF := chr(255)   ; � 
    242  
    243 CSU000D := "Enter" 
    244 CSS_Esc := "Esc" 
    245 CSU0008 := "Backspace" 
    246 CSS_Del := "Delete" 
    247 CSS_Ins := "Insert" 
    248 CSS__Up := "Up" 
    249 CSSDown := "Down" 
    250 CSSRght := "Right" 
    251 CSSLeft := "Left" 
    252 CSSPgUp := "PgUp" 
    253 CSSPgDn := "PgDn" 
    254 CSSHome := "Home" 
    255 CSS_End := "End" 
    256 CSS_F10 := "F10" 
    257 CSS_F11 := "F11" 
    258  
    259 CSSN__0 := "Numpad0" 
    260 CSSN__1 := "Numpad1" 
    261 CSSN__2 := "Numpad2" 
    262 CSSN__3 := "Numpad3" 
    263  
    264 CSSN__4 := "Numpad4" 
    265 CSSN__5 := "Numpad5" 
    266 CSSN__6 := "Numpad6" 
    267  
    268 CSSN__7 := "Numpad7" 
    269 CSSN__8 := "Numpad8" 
    270 CSSN__9 := "Numpad9" 
    271  
    272 CSSNDiv := "NumpadDiv" 
    273 CSSNMul := "NumpadMult" 
    274 CSSNSub := "NumpadSub" 
    275 CSSNAdd := "NumpadAdd" 
    276 CSSNDot := "NumpadDot" 
    277 CSSNEnt := "NumpadEnter" 
    278  
    279 CSSNDel := "NumpadDel" 
    280 CSSNIns := "NumpadIns" 
    281 CSSN_Up := "NumpadUp" 
    282 CSSN_Dn := "NumpadDown" 
    283 CSSN_Ri := "NumpadRight" 
    284 CSSN_Le := "NumpadLeft" 
    285 CSSNPUp := "NumpadPgUp" 
    286 CSSNPDn := "NumpadPgDn" 
    287 CSSNHom := "NumpadHome" 
    288 CSSNEnd := "NumpadEnd" 
    289 CSSNClr := "NumpadClear" 
    290  
    291 Comp := "" 
    292  
     16#Include %a_scriptdir%\neovarscomp.ahk 
     17 
     18#Include %a_scriptdir%\keydefinitions.ahk 
     19#Include %a_scriptdir%\shortcuts.ahk 
    29320#Include %a_scriptdir%\recycle.ahk 
    29421 
    … …  
    526253          RomanSum := RomanSum//10 
    527254          RomanStr := GenRomanDigit(RomanPos,RomanDigit,1,"U2160","U2169","U216D","U216F","U2182","U2188") . RomanStr 
    528           RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"U2161","U2169U2169","U216DU216D","U216FU216F","U2182U2182","U2188U2188") . RomanStr 
    529           RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"U2162","U2169U2169U2169","U216DU216DU216D","U216FU216FU216F","U2182U2182U2182","U2188U2188U2188") . RomanStr 
    530           RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"U2163","U2169U216C","U216DU216E","U2180U2181","U2182U2187","") . RomanStr 
     255          RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"U2160U2160","U2169U2169","U216DU216D","U216FU216F","U2182U2182","U2188U2188") . RomanStr 
     256          RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"U2160U2160U2160","U2169U2169U2169","U216DU216DU216D","U216FU216FU216F","U2182U2182U2182","U2188U2188U2188") . RomanStr 
     257          RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"U2160U2164","U2169U216C","U216DU216E","U2180U2181","U2182U2187","") . RomanStr 
    531258          RomanStr := GenRomanDigit(RomanPos,RomanDigit,5,"U2164","U216C","U216E","U2181","U2187","") . RomanStr 
    532           RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"U2165","U216CU2169","U216EU216D","U2181U2180","U2187U2182","") . RomanStr 
    533           RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"U2166","U216CU2169U2169","U216EU216DU216D","U2181U2180U2180","U2187U2182U2182","") . RomanStr 
    534           RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"U2167","U216CU2169U2169U2169","U216EU216DU216DU216D","U2181U2180U2180U2180","U2187U2182U2182U2182","") . RomanStr 
    535           RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"U2168","U2169U216D","U216DU216F","U2180U2182","U2182U2188","") . RomanStr 
     259          RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"U2164U2160","U216CU2169","U216EU216D","U2181U2180","U2187U2182","") . RomanStr 
     260          RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"U2164U2160U2160","U216CU2169U2169","U216EU216DU216D","U2181U2180U2180","U2187U2182U2182","") . RomanStr 
     261          RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"U2164U2160U2160U2160","U216CU2169U2169U2169","U216EU216DU216DU216D","U2181U2180U2180U2180","U2187U2182U2182U2182","") . RomanStr 
     262          RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"U2160U2169","U2169U216D","U216DU216F","U2180U2182","U2182U2188","") . RomanStr 
    536263          if (RomanSum == 0) 
    537264            break 
    … …  
    543270          RomanSum := RomanSum//10 
    544271          RomanStr := GenRomanDigit(RomanPos,RomanDigit,1,"U2170","U2179","U217D","U217F","U2182","U2188") . RomanStr 
    545           RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"U2171","U2179U2179","U217DU217D","U217FU217F","U2182U2182","U2188U2188") . RomanStr 
    546           RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"U2172","U2179U2179U2179","U217DU217DU217D","U217FU217FU217F","U2182U2182U2182","U2188U2188U2188") . RomanStr 
    547           RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"U2173","U2179U217C","U217DU217E","U2180U2181","U2182U2187","") . RomanStr 
     272          RomanStr := GenRomanDigit(RomanPos,RomanDigit,2,"U2170U2170","U2179U2179","U217DU217D","U217FU217F","U2182U2182","U2188U2188") . RomanStr 
     273          RomanStr := GenRomanDigit(RomanPos,RomanDigit,3,"U2170U2170U2170","U2179U2179U2179","U217DU217DU217D","U217FU217FU217F","U2182U2182U2182","U2188U2188U2188") . RomanStr 
     274          RomanStr := GenRomanDigit(RomanPos,RomanDigit,4,"U2170U2174","U2179U217C","U217DU217E","U2180U2181","U2182U2187","") . RomanStr 
    548275          RomanStr := GenRomanDigit(RomanPos,RomanDigit,5,"U2174","U217C","U217E","U2181","U2187","") . RomanStr 
    549           RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"U2175","U217CU2179","U217EU217D","U2181U2180","U2187U2182","") . RomanStr 
    550           RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"U2176","U217CU2179U2179","U217EU217DU217D","U2181U2180U2180","U2187U2182U2182","") . RomanStr 
    551           RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"U2177","U217CU2179U2179U2179","U217EU217DU217DU217D","U2181U2180U2180U2180","U2187U2182U2182U2182","") . RomanStr 
     276          RomanStr := GenRomanDigit(RomanPos,RomanDigit,6,"U2174U2170","U217CU2179","U217EU217D","U2181U2180","U2187U2182","") . RomanStr 
     277          RomanStr := GenRomanDigit(RomanPos,RomanDigit,7,"U2174U2170U2170","U217CU2179U2179","U217EU217DU217D","U2181U2180U2180","U2187U2182U2182","") . RomanStr 
     278          RomanStr := GenRomanDigit(RomanPos,RomanDigit,8,"U2174U2170U2170U2170","U217CU2179U2179U2179","U217EU217DU217DU217D","U2181U2180U2180U2180","U2187U2182U2182U2182","") . RomanStr 
    552279          RomanStr := GenRomanDigit(RomanPos,RomanDigit,9,"U2178","U2179U217D","U217DU217F","U2180U2182","U2182U2188","") . RomanStr 
    553280          if (RomanSum == 0) 
    … …  
    557284      loop { 
    558285        if (RomanStr == "")  
    559           break                ; erledigt 
     286          break ; erledigt 
    560287        CharOut(SubStr(RomanStr,1,5)) 
    561288        RomanStr := SubStr(RomanStr,6) 
    … …  
    609336    loop { 
    610337      if (OutStr == "")  
    611         break                ; erledigt 
     338        break ; erledigt 
    612339      CharOut(SubStr(OutStr,1,5)) 
    613340      OutStr := SubStr(OutStr,6) 
    … …  
    661388      break 
    662389  } 
    663 SetFormat, Integer, d 
     390  SetFormat, Integer, d 
    664391  StringUpper,result,result 
    665392  return result 
    666393} 
    667394 
    668  
    669395Transform(key) { 
    670396  global 
    671397  return key 
    672398} 
    673