.\" $Header: /smsa/bsd:usr.lib/me/eqn.me:bsd  1.3  $
.\" $Source: /smsa/bsd:usr.lib/me/eqn.me: $
.\"
.\" Copyright (c) 1988 Acorn Computers Ltd., Cambridge, England
.\" $Desc$
.\" $Log:	eqn.me,v $
.\" Revision 1.3  88/06/14  21:26:46  beta
.\" Acorn Unix initial beta version
.\" 
.\"
.nr _0 \n(c.
.\"	@(#)eqn.me	2.1	8/18/80
.\" This version has had comments stripped; an unstripped version is available.
.de EQ
.ec
.if !\\n(?e \
\{\
.	if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
.	@D 1 "\\$1" "\\$2"
.	@C 2
.	di |e
.\}
.ls 1
.in 0
.nf
..
.de EN
.br
.ie "\\$1"C" \
\{\
.	nr ?e 1
.	sp \\n(esu
.\}
.el \
\{\
.	nr ?e 0
.	di
.	if \\n(dn \
.		@q
.	rm |e
.	rm 10
.	rm 11
.	rm 12
.	rm 13
.	rm 14
.	rm 15
.	rm 16
.	rm 17
.	rm 18
.	rm 19
.	rm 20
.	rm 21
.	rm 22
.	rm 23
.	ev
.\}
..
.de @q
.nr _Q \\n(dnu
.ev
.sp \\n(esu
.@C 2
.ie \\n(_d=1 \
.	in (\\n(.lu+\\n($iu-\\n(dlu)/2u
.el .ie \\n(_d=2 \
.	in \\n($iu
.el .ie \\n(_d=3 \
.	in \\n(biu+\\n($iu
.el .if \\n(_d=4 \
.	in 0
.if !"\\n(.z"" \!.ne \\n(_Qu
.ne \\n(_Qu+\n(.Vu
.mk _q
.if !"\\*(|p"" \
\{\
.	rs
.	sp (\\n(_Qu-\\n(.vu)/2u
.	tl """\\*(|p"
.	rt \\n(_qu
.\}
.|e
.sp |\\n(_qu+\\n(_Qu
.sp \\n(esu+\\n(.Lv-1v
.rr _q
.rr _Q
..
.nr c. \n(_0
