.\" $Header: /smsa/bsd:usr.lib/me/footnote.me:bsd  1.3  $
.\" $Source: /smsa/bsd:usr.lib/me/footnote.me: $
.\"
.\" Copyright (c) 1988 Acorn Computers Ltd., Cambridge, England
.\" $Desc$
.\" $Log:	footnote.me,v $
.\" Revision 1.3  88/06/14  21:26:54  beta
.\" Acorn Unix initial beta version
.\" 
.\"
.nr _0 \n(c.
.\"	@(#)footnote.me	2.6	3/10/86
.\" 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(fp
.	vs \\n(.su*\\n($Ru
.	if !\\n(?f \
\{\
.		nr _b +1v
.		$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(fp
.		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
