83 lines
1 KiB
Text
83 lines
1 KiB
Text
.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
|