.nr _0 \n(c.
-.\" This version has had comments stripped; an unstripped version is available.
-.de (f
+.\" @(#)footnote.me 2.4 9/23/80
+.\" %beginstrip%
+.de (f \" *** begin footnote
.ec
.if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting
-.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 \
+.ie "\\n(.z"" \
\{\
-. 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
+. nr _D \\n(dn
+. nr _0 1v+\\n(nlu
+. ev 2
. da |f
. in 0
. xl \\n($lu-\\n(fuu
. sz \\n(fpu
. vs \\n(.su*\\n($Ru
. if !\\n(?f \
+\{\
+. nr _b +2u*\n(.Vu \" fudge factor
. $s
+. \}
. br
+. if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \
+\{\
+. da\" \" won't fit on page at all
+. bc
+. if !\\n(?f \
+. rm |f
+. da |f
+.\" next five lines could be dropped if headers had their own environment
+. in 0 \" reset everything from .bc
+. 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
+. if \n@>2 .tm << (f $f=\\n($f
+.\}
+.el \
+\{\
+. ev 2
+\!.(f \\$1
.\}
-.rr _0
-.sp \\n(fsu
-.nr ?f 1
-.fi
-.if !"\\$1"_" \
-. ti \\n(fiu
..
-.de )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
+.de )f \" *** end footnote
+.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 \" compute maximum fn width
+. 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
+. nr ff 1 \" footnote font: Times Roman
.if \n(fp<=0 \
-. nr fp 8
-.if \n(fi<=0 \
-\{\
-. if n .nr fi 3n
-. if t .nr fi 0.3i
-.\}
+. nr fp 8 \" footnote pointsize
.nr c. \n(_0