nr _0 \n(c.
\" @(#)footnote.me 2.4 9/23/80
\" This version has had comments stripped; an unstripped version is available.
de (f
ec
if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
ie "\\n(.z"" \
\{\
nr _D \\n(dn
nr _0 1v+\\n(nlu
ev 2
da |f
in 0
xl \\n($lu-\\n(fuu
@F \\n(ff
sz \\n(fpu
vs \\n(.su*\\n($Ru
if !\\n(?f \
\{\
nr _b +2u*\n(.Vu
$s
\}
br
if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
\{\
da\"
bc
if !\\n(?f \
rm |f
da |f
in 0
xl \\n($lu-\\n(fuu
@F \\n(ff
sz \\n(fpu
vs \\n(.su*\\n($Ru
if !\\n(?f \
$s
br
\}
rr _0
sp \\n(fsu
nr ?f 1
fi
if !"\\$1"_" \
ti \\n(fiu
\}
el \
\{\
ev 2
\!.(f \\$1
\}
.
de )f
ie "\\n(.z"|f" \
\{\
if \\n* \
nr $f +1
ds * \\*[\\n($f\\*]\k*
rr *
in 0
da
ev
if \\n(_w<\\n(dl \
nr _w \\n(dl
nr _b +\\n(dn
ch @f -\\n(_bu
if \\n(.p-\\n(_b<=\\n(nl \
ch @f \\n(nlu+\n(.Vu
nr dn _D
rr _D
\}
el \
\{\
br
\!.)f
ev
\}
.
if \n(ff<=0 \
nr ff 1
if \n(fp<=0 \
nr fp 8
nr c. \n(_0