1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
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
|
