blob: dc206e730164620d97e2b19205b6abed827429c2 (
plain) (
blame)
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
|
function digit/1
if \or(\equals(\1 0) \equals(\1 "0"))
"0"
else if \or(\equals(\1 1) \equals(\1 "1"))
"1"
else if \or(\equals(\1 2) \equals(\1 "2"))
"2"
else if \or(\equals(\1 3) \equals(\1 "3"))
"3"
else if \or(\equals(\1 4) \equals(\1 "4"))
"4"
else if \or(\equals(\1 5) \equals(\1 "5"))
"5"
else if \or(\equals(\1 6) \equals(\1 "6"))
"6"
else if \or(\equals(\1 7) \equals(\1 "7"))
"7"
else if \or(\equals(\1 8) \equals(\1 "8"))
"8"
else
"9"
end if
end function
for "0" to "9" as \1
<letter \1> : "\digit(\1)"
end for
for "a" to "z" as \1
let \2 : "\sub(\1 \sub("a" "A"))"
<letter \1> : "\1"
<shift letter \1> : "\2"
<caps letter \1> : "\2"
<shift caps letter \1> : "\1"
end for
|
