1 .nr _0 \n(c.
2 .\"	@(#)footnote.me	2.4	9/23/80
3 .\" This version has had comments stripped; an unstripped version is available.
4 .de (f
5 .ec
6 .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
7 .ie "\\n(.z"" \
8 \{\
9 .	nr _D \\n(dn
10 .	nr _0 1v+\\n(nlu
11 .	ev 2
12 .	da |f
13 .	in 0
14 .	xl \\n($lu-\\n(fuu
15 .	@F \\n(ff
16 .	sz \\n(fpu
17 .	vs \\n(.su*\\n($Ru
18 .	if !\\n(?f \
19 \{\
20 .		nr _b +2u*\n(.Vu
21 .		$s
22 .	\}
23 .	br
24 .	if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
25 \{\
26 .		da\"
27 .		bc
28 .		if !\\n(?f \
29 .			rm |f
30 .		da |f
31 .		in 0
32 .		xl \\n($lu-\\n(fuu
33 .		@F \\n(ff
34 .		sz \\n(fpu
35 .		vs \\n(.su*\\n($Ru
36 .		if !\\n(?f \
37 .			$s
38 .		br
39 .	\}
40 .	rr _0
41 .	sp \\n(fsu
42 .	nr ?f 1
43 .	fi
44 .	if !"\\$1"_" \
45 .		ti \\n(fiu
46 .\}
47 .el \
48 \{\
49 .	ev 2
50 \!.(f \\$1
51 .\}
52 ..
53 .de )f
54 .ie "\\n(.z"|f" \
55 \{\
56 .	if \\n* \
57 .		nr $f +1
58 .	ds * \\*[\\n($f\\*]\k*
59 .	rr *
60 .	in 0
61 .	da
62 .	ev
63 .	if \\n(_w<\\n(dl \
64 .		nr _w \\n(dl
65 .	nr _b +\\n(dn
66 .	ch @f -\\n(_bu
67 .	if \\n(.p-\\n(_b<=\\n(nl \
68 .		ch @f \\n(nlu+\n(.Vu
69 .	nr dn _D
70 .	rr _D
71 .\}
72 .el \
73 \{\
74 .	br
75 \!.)f
76 .	ev
77 .\}
78 ..
79 .if \n(ff<=0 \
80 .	nr ff 1
81 .if \n(fp<=0 \
82 .	nr fp 8
83 .nr c. \n(_0