1 .nr _0 \n(c.
2 .\"	@(#)chars.me	2.2	8/29/80
3 .\" This version has had comments stripped; an unstripped version is available.
4 .if n \
5 \{\
6 .	ds #[ \f1
7 .	ds #] \fP
8 .	ds #h 0
9 .	ds #v 0.8m
10 .	ds #f 0.3m
11 .\}
12 .if t \
13 \{\
14 .	ds #[ \&
15 .	ds #] \&
16 .	ds #h ((1u-(\\\\n(.fu%2u))*0.13m)
17 .	ds #v 0.6m
18 .	ds #f 0
19 .\}
20 .ds ' \k_\h'-(\\n(.wu*8/10-\*(#h)'\*(#[\(aa\h'|\\n_u'\*(#]
21 .ds ` \k_\h'-(\\n(.wu*7/10-\*(#h)'\*(#[\(ga\h'|\\n_u'\*(#]
22 .ds : \k_\h'-(\\n(.wu*8/10-\*(#h+0.1m+\*(#f)'\v'-\*(#v'\*(#[\z.\h'0.2m+\*(#f'.\h'|\\n_u'\v'\*(#v'\*(#]
23 .ds ^ \k_\h'-(\\n(.wu-\*(#h-0.05m)'\*(#[^\h'|\\n_u'\*(#]
24 .ds ~ \k_\h'-(\\n(.wu-\*(#h-0.05m)'\*(#[~\h'|\\n_u'\*(#]
25 .ds , \k_\h'-(\\n(.wu)'\*(#[,\h'|\\n_u'\*(#]
26 .ds v \k_\h'-(\\n(.wu*9/10-\*(#h)'\v'-\*(#v'\*(#[\s-4v\s0\v'\*(#v'\h'|\\n_u'\*(#]
27 .ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\*(#[\z\(de\v'0.4n'\h'|\\n_u'\*(#]
28 .ds qe \*(#[\v'0.5m'\z\(em\v'-0.65m'\z\(em\v'-0.65m'\z\(em\v'0.8m'\h'0.3m'|\h'-0.3m'\*(#]
29 .ds qa \*(#[\h'-0.24m'\z\e\h'0.48m'\z\(sl\h'-0.24m'\v'-0.15m'\(em\v'0.15m'\*(#]
30 .if t \
31 \{\
32 .	ds qe \s-2\v'0.45m'\z\(em\v'-0.625m'\z\(em\v'-0.625m'\(em\v'0.8m'\s0\h'-0.1m'\v'-0.05m'\(br\v'0.05m'\h'0.1m'
33 .	ds qa \z\e\h'0.35m'\z\(sl\h'-0.33m'\v'-0.3m'\s-4\(em\s0\v'0.3m'\h'0.15m'
34 .\}
35 .if \n($T \
36 \{\
37 .	ds ' \*(#[\h'-1'\(aa\*(#]
38 .	ds ` \*(#[\h'-1'\(ga\*(#]
39 .	ds : \&
40 .	ds ^ \*(#[\h'-1'^\*(#]
41 .	ds ~ \*(#[\h'-1'~\*(#]
42 .	ds , \*(#[\h'-1',\*(#]
43 .	ds v \&
44 .	ds o \&
45 .	ds qe EXISTS
46 .	ds qa FORALL
47 .\}
48 .rm #[
49 .rm #]
50 .rm #h
51 .rm #v
52 .rm #f
53 .nr c. \n(_0