blob: a8ae88d109c45bf4705f84d9073b751356f79109 (
plain)
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
|
\count@128\relax
\loop
\bgroup
\uccode`\~\count@
\uppercase{
\egroup
\xdef~{\noexpand\utfeightb\string^^c2\string~}
}
\ifnum\count@<191\relax
\advance\count@\@ne
\repeat
\count@192\relax
\loop
\bgroup
\uccode`\~\count@
\advance\count@-64
\uccode`\!\count@
\uppercase{
\egroup
\xdef~{\noexpand\utfeightb\string^^c3\string!}
}
\ifnum\count@<255\relax
\advance\count@\@ne
\repeat
|
