footnote.me (1057B)
1 .nr _0 \n(c. 2 .\" @(#)footnote.me 2.4 9/23/80 3 .\" This version has had comments stripped; an unstripped version is available. 4 .de (f 5 .ec 6 .if "\\n(.z"|f" .tm Line \\n(c. -- Illegal footnote nesting 7 .ie "\\n(.z"" \ 8 \{\ 9 . nr _D \\n(dn 10 . nr _0 1v+\\n(nlu 11 . ev 2 12 . da |f 13 . in 0 14 . xl \\n($lu-\\n(fuu 15 . @F \\n(ff 16 . sz \\n(fpu 17 . vs \\n(.su*\\n($Ru 18 . if !\\n(?f \ 19 \{\ 20 . nr _b +2u*\n(.Vu 21 . $s 22 . \} 23 . br 24 . if \\n(.p-\\n(_b-\\n(_0-\\n(.h-1v-\\n(fs<0 \ 25 \{\ 26 . da\" 27 . bc 28 . if !\\n(?f \ 29 . rm |f 30 . da |f 31 . in 0 32 . xl \\n($lu-\\n(fuu 33 . @F \\n(ff 34 . sz \\n(fpu 35 . vs \\n(.su*\\n($Ru 36 . if !\\n(?f \ 37 . $s 38 . br 39 . \} 40 . rr _0 41 . sp \\n(fsu 42 . nr ?f 1 43 . fi 44 . if !"\\$1"_" \ 45 . ti \\n(fiu 46 .\} 47 .el \ 48 \{\ 49 . ev 2 50 \!.(f \\$1 51 .\} 52 .. 53 .de )f 54 .ie "\\n(.z"|f" \ 55 \{\ 56 . if \\n* \ 57 . nr $f +1 58 . ds * \\*[\\n($f\\*]\k* 59 . rr * 60 . in 0 61 . da 62 . ev 63 . if \\n(_w<\\n(dl \ 64 . nr _w \\n(dl 65 . nr _b +\\n(dn 66 . ch @f -\\n(_bu 67 . if \\n(.p-\\n(_b<=\\n(nl \ 68 . ch @f \\n(nlu+\n(.Vu 69 . nr dn _D 70 . rr _D 71 .\} 72 .el \ 73 \{\ 74 . br 75 \!.)f 76 . ev 77 .\} 78 .. 79 .if \n(ff<=0 \ 80 . nr ff 1 81 .if \n(fp<=0 \ 82 . nr fp 8 83 .nr c. \n(_0