.\"**********************************************************************
.\"* ****** - M E N R O F F / T R O F F M A C R O S ****** *
.\"* Produced for your edification and enjoyment by: *
.\"* Electronics Research Laboratory *
.\"* VERSION 2.8 First Release: 11 Sept 1978 *
.\"* See file \*(||/revisions for revision history *
.\"* Documentation is available. *
.\"**********************************************************************
.\" @(#)tmac.e 2.8 11/10/80
.\" This version has had comments stripped; an unstripped version is available.
.if !\n(.V .tm You are using the wrong version of NROFF/TROFF!!
.if !\n(.V .tm This macro package works only on the version seven
.if !\n(.V .tm release of NROFF and TROFF.
. tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
. ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
. ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
.if (\\n(.i+\\n(.o)>=\\n(.l \
. tm Line \\n(c. -- Offset + indent exceeds line length
.if t .if (\\n(.l+\\n(.o)>7.75i \
. tm Line \\n(c. -- Offset + line length exceeds paper width
.if (\\n(_w<=\\n($l)&(\\n(?W=0) \
. nr _b (\\n(ppu*\\n($ru)/2u
. if \\n(_bu>((\\n(bmu-\\n(fmu-(\\n(tpu*\\n($ru))/2u) \
. nr _b (\\n(ppu*\\n($ru)-\n(.Vu
.if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
.sp |\\n(.pu-\\n(fmu-(\\n(tpu*\\n($ru)
.if !\(ts\\*(|z\(ts\(ts \
.if !\(ts\\*(|z\(ts\(ts \
.if (\\n($m<=1):(\\n($l>\\n(_L) \
.nr tm \\n(hmu+\\n(tpp+\\$1v
.nr bm \\n(fmu+\\n(tpp+\\$1v
. tm Line \\n(c. -- I cannot skip multiple pages
.ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
.ta 0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i
.if (\\n(ii>0)&(\\n(ii<1n) \
. el \&\\$1\h'|\\n(_0u'\c
.if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
.sh "\\$1" "\\$2" \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
.if (\\n(si>0)&(\\n(.$>2) \
. ne \\n(.Lv+\\n(.Vu+\\n(psu+(\\n(spu*\\n($ru*\\n(.Lu)
. if \w"\\$1">0 \\$1\f1\ \ \"
.nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
.tm Line \\n(c. -- unmatched .)z
.if (\\n(bt=0):(\\n(.t<\\n(bt) \
.if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z
.if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
.if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
.if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
.in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
.if \\n(.$ \&\\$1\f\\n(_F\\$2
.if \\n(.$ \&\\$1\f\\n(_F\\$2
.if \\n(.$ \&\\$1\f\\n(_F\\$2
.if \\n(.$ \&\\$1\f\\n(_F\\$2
.ie t \&\k~\\$1\h'|\\n~u+(\\n(.su/3u)'\\$1\fP\\$2
.ie \\n($T \&\f2\\$1\fP\\$2
.el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
.tm Line \\n(c. -- unmatched .)f
.tm Line \\n(c. -- unmatched .)d
.tm Line \\n(c. -- unmatched .)x
. tm Line \\n(c. -- Bad mode to .++
.if (\\n(_0=3):(\\n(_0=5) \
.if !\\n(_0=\\n(_M .if \\n(_M=3 \
.ie \\n(_M=1 CHAPTER\ \ \\n(ch
.el .if \\n(_M=2 APPENDIX\ \ \\n(ch
.if \w"\\$1" .sp 3-\\n(.L
.if (\\n(_M<3):(\w"\\$1") \
. $C Chapter \\n(ch "\\$1"
. $C Appendix \\n(ch "\\$1"
.if \n(mo=1 .ds mo January
.if \n(mo=2 .ds mo February
.if \n(mo=8 .ds mo August
.if \n(mo=9 .ds mo September
.if \n(mo=10 .ds mo October
.if \n(mo=11 .ds mo November
.if \n(mo=12 .ds mo December
.if \n(dw=1 .ds dw Sunday
.if \n(dw=2 .ds dw Monday
.if \n(dw=3 .ds dw Tuesday
.if \n(dw=4 .ds dw Wednesday
.if \n(dw=5 .ds dw Thursday
.if \n(dw=6 .ds dw Friday
.if \n(dw=7 .ds dw Saturday
.ds td \*(mo \n(dy, 19\n(yr
. ds [ \v'-0.4m'\x'-0.2m'\s-3
. ds < \v'0.4m'\x'0.2m'\s-3