ref: ec98c2e178ee0e247e0e425e5e74393c62d4ce36
dir: /sys/lib/tmac/me/footnote.me/
.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