| .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 |