Edit File: e.tmac
.\" @(#)e.tmac 2.31 (Berkeley) 5/21/88 .\" Modified by James Clark for use with groff. .\" .\" Copyright (c) 1988 Regents of the University of California. .\" All rights reserved. .\" .\" Redistribution and use in source and binary forms are permitted .\" provided that this notice is preserved and that due credit is given .\" to the University of California at Berkeley. The name of the University .\" may not be used to endorse or promote products derived from this .\" software without specific prior written permission. This software .\" is provided ``as is'' without express or implied warranty. .if !\n(.g .ig .de @R .if !r\\$1 .nr \\$1 0 .. .@R pf .if \n(pf .nx .if !\n(.g .ig .de @S .if !d\\$1 .ds \\$1 .. .@R @ .de @C .nr _S \\n(.s .nr _V \\n(.v .nr _F \\n(.f .do ds _A \\n[.fam] .nr _I \\n(.i .ev \\$1 .ps \\n(_S .vs \\n(_Vu .ft \\n(_F .do @fam \\*(_A 'in \\n(_Iu .xl \\n($lu .lt \\n($lu .rr _S .rr _V .rr _F .rr _I .ls 1 'ce 0 .. .de @D .ds |p "\\$3 .nr _d 0 .if "\\$2"C" \ .nr _d 1 .if "\\$2"L" \ .nr _d 2 .if "\\$2"I" \ .nr _d 3 .if "\\$2"M" \ .nr _d 4 .if !\\n(_d \{\ .nr _d \\$1 .ds |p "\\$2 .\} .. .de @z .if \n@>1 .tm >> @z, .z=\\n(.z ?a=\\n(?a .if !"\\n(.z"" \ \{\ .tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z) .di .ex .\} .if \\n(?a \ .bp .ds bp .ds @b .br .if \n@>1 .tm << @z .. .ie \n(.g .ds $* \\\\$* .el .ds $* \\\\$1 \\\\$2 \\\\$3 \\\\$4 \\\\$5 \\\\$6 \\\\$7 \\\\$8 \\\\$9 .de he .ie !\\n(.$ \ \{\ .rm |4 .rm |5 .\} .el \ \{\ .ds |4 "\*($* .ds |5 "\*($* .\} .. .de eh .ie !\\n(.$ \ .rm |4 .el \ .ds |4 "\*($* .. .de oh .ie !\\n(.$ \ .rm |5 .el \ .ds |5 "\*($* .. .de fo .ie !\\n(.$ \ \{\ .rm |6 .rm |7 .\} .el \ \{\ .ds |6 "\*($* .ds |7 "\*($* .\} .. .de ef .ie !\\n(.$ \ .rm |6 .el \ .ds |6 "\*($* .. .de of .ie !\\n(.$ \ .rm |7 .el \ .ds |7 "\*($* .. .de ep .if \\n(nl>0 \ \{\ .wh 0 .rs .@b .\} .. .de @h .if \n@>1 .tm >> @h %=\\n% ?a=\\n(?a ?b=\\n(?b ?w=\\n(?w .if (\\n(.i+\\n(.o)>=\\n(.l \ .tm Line \\n(c. -- Offset + indent exceeds line length .nr ?h \\n(?H .nr ?H 0 .nr ?c \\n(?C .nr ?C 0 .rn |4 |0 .rn |5 |1 .rn |6 |2 .rn |7 |3 .nr _w 0 .nr ?W 0 .nr ?I 1 .ev 2 .rs .if \\n(hm>0 \ .sp |\\n(hmu .@t $h .if \\n(tm<=0 \ .nr tm \n(.Vu .sp |\\n(tmu .ev .mk _k .if \\n(?n .nm 1 .nr $c 1 .if \n@>4 .tm -- @h >> .ns nl=\\n(nl %=\\n% _k=\\n(_k tm=\\n(tm .ie \\n(?s \ \{\ .nr ?s 0 .rs ' @b .\} .el \ .@n .if \n@>2 .tm << @h .. .de @n .if \n@>3 .tm >> @n nl=\\n(nl %=\\n% ?f=\\n(?f ?o=\\n(?o .if \\n(bm<=0 \ .nr bm \\n(.Vu .if (\\n(_w<=\\n($l)&(\\n(?W=0) \ \{\ .nr _b (\\n(ppp*\\n($vu)/200u .if \\n(_bu>((\\n(bmu-\\n(fmu-((\\n(tpp*\\n($vu)/100u))/2u) \ .nr _b (\\n(ppp*\\n($vu)/100u-\n(.Vu .nr _b +\\n(bmu .\} .nr _B \\n(_bu .ch @f .wh -\\n(_bu @f .nr _b +(\\n(ppp*\\n($vu)/100u .if \n@>2 .tm @n .p=\\n(.p bm=\\n(bm _b=\\n(_b _B=\\n(_B .nr ?f 0 .if \\n(?o \ \{\ .(f _ .nf .|o .fi .)f .rm |o .\} .nr ?o 0 .if \\n(?T \ \{\ .nr _i \\n(.i .in 0 .|h .in \\n(_iu .rr _i .mk #T .ns .\} .if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \ \{\ .nr ?a 0 .@k |t .if \\n(?w \ .mk _k .nr ?w 0 .\} .os .$H .ns .. .de @f .if \n@>1 .tm >> @f %=\\n% nl=\\n(nl ?a=\\n(?a ?b=\\n(?b ?f=\\n(?f .if \n@>2 .nr VL \\n(.pu-\\n(nlu .if \n@>2 .tm @f bm=\\n(bm _B=\\n(_B _b=\\n(_b .p-nl=\\n(VL .ec .if \\n(?T \ \{\ .nr T. 1 .T# 1 .br .\} .ev 2 .ce 0 .if \\n(?b \ \{\ .nr ?b 0 .@k |b .\} .if \\n(?f \ .@o .ie \\n($c<\\n($m \ .@c .el \ .@e .ev .if \n@>2 .tm << @f .. .de @o .nf .ls 1 .in 0 .if \n@>2 .tm @o last printed text = \\n(nl placing @r trap at -\\n(_B .wh -\\n(_Bu @r .|f .fi .if \n@>2 .tm @o triggered @r (?o) = \\n(?o .if \\n(?o \ \{\ .di .if \\n(dn=0 \ \{\ .rm |o .nr ?o 0 .\} .nr dn \\n(_D .rr _D .\} .rm |f .ch @r .. .de @c .if \n@>2 .tm >> @c %=\\n% .rs .sp |\\n(_ku .@O +\\n($lu+\\n($su .nr $c +1 .@n .. .de @e .if \n@>2 .tm >> @e .@O \\n(_ou .rs .sp |\\n(.pu-\\n(fmu-((\\n(tpp*\\n($vu)/100u) .@t $f .nr ?h 0 .bp .. .de @t .if !\\n(?h \ \{\ .sz \\n(tp .@F \\n(tf .lt \\n(_Lu .nf .\\$1 .br .\} .. .de $h .ds |z .if !\\n(?c \ \{\ .if e .ds |z "\\*(|0 .if o .ds |z "\\*(|1 .\} .if !\(ts\\*(|z\(ts\(ts \ ' tl \\*(|z .rm |z .. .de $f .ds |z .if \\n(?c \ \{\ .if e .ds |z "\\*(|0 .if o .ds |z "\\*(|1 .\} .if \(ts\\*(|z\(ts\(ts \ \{\ .if e .ds |z "\\*(|2 .if o .ds |z "\\*(|3 .\} .if !\(ts\\*(|z\(ts\(ts \ ' tl \\*(|z .rm |z .. .de @r .if \n@>3 .tm >> @r .z=\\n(.z ?f=\\n(?f ?a=\\n(?a ?b=\\n(?b _b=\\n(_b .di |o .nr ?o 1 .nr _D \\n(dn .ns .. .rn bp @b .de bp .nr $c \\n($m .ie \\n(nl>0 \ .@b \\$1 .el \ \{\ .if \\n(.$>0 \ .pn \\$1 .if \\n(?I \ .@h .\} .br .wh 0 @h .. .rn ll xl .de ll .xl \\$1 .lt \\$1 .nr $l \\n(.l .if (\\n($m<=1):(\\n($l>\\n(_L) \ .nr _L \\n(.l .. .rn po @O .de po .@O \\$1 .nr _o \\n(.o .. .if !\n(.g .ig .do rn fam @fam .do de fam .do @fam \\$1 .ev 2 .do @fam \\$1 .ev .. .de hx .nr ?H 1 .. .de ix 'in \\$1 .. .de bl .br .ne \\$1 .rs .sp \\$1 .. .de n1 .nm 1 .xl -\w'0000'u .nr ?n 1 .. .de n2 .nm \\$1 .ie \\n(.$ \ .xl -\w'0000'u .el \ .xl \\n($lu .. .de pa .bp \\$1 .. .de ro .af % i .. .de ar .af % 1 .. .de m1 .nr _0 \\n(hmu .nr hm \\$1v .nr tm +\\n(hmu-\\n(_0u .rr _0 .. .de m2 .nr tm \\n(hmu+\\n(tpp+\\$1v .. .de m3 .nr bm \\n(fmu+\\n(tpp+\\$1v .. .de m4 .nr _0 \\n(fmu .nr fm \\$1v .nr bm +\\n(fmu-\\n(_0u .. .de sk .if \\n(.$>0 \ .tm Line \\n(c. -- I cannot skip multiple pages .nr ?s 1 .. .if !\n(.g .ig .de re .ta T 0.5i .. .if \n(.g .ig .de re .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 .. .de ba .ie \\n(.$ \ .nr $i \\$1n .el \ .nr $i \\n(siu*\\n($0u .. .de hl .br .ie \n(.g .do nr _I \\n[.in] .el .nr _I \\n(.i \l'\\n(.lu-\\n(_Iu' .sp .. .de pp .lp \\n(piu .. .de lp .@p .if \\n(.$ \ .ti +\\$1 .nr $p 0 1 .. .de ip .if (\\n(ii>0)&(\\n(ii<1n) \ .nr ii \\n(iin .nr _0 \\n(ii .if \\n(.$>1 \ .nr _0 \\$2n .@p \\n(_0u .nr _I \\n(.iu .in 0 .di |i \&\\$1 .br .di .in \\n(_Iu .ds |j \\*(|i\\ .if \\w"\\*(|j" \ \{\ .ti -\\n(_0u .ie \\w"\\*(|j">=\\n(_0 \ \{\ \\*(|j .br .\} .el \\*(|j\h'|\\n(_0u'\c .\} .rr _0 .rm |i |j .. .de np .if '\\n($p'-1' \ .nr $p 0 .nr $p +1 .@p \w'\0(000)\0'u .ti -\w'\0(000)\0'u \0(\\n($p)\h'|\w'\0(000)\0'u'\c .. .de bu .br .if '\\n($p'-1' \ .ns .nr $p 0-1 .@p \w'\0\(bu\0'u .ti -\w'\0\(bu\0'u \0\(bu\0\c .. .de @p .if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation .in \\n($iu+\\n(pou .if \\n(.$ \ .in +\\$1n .ce 0 .fi .@F \\n(pf .sz \\n(pp .sp \\n(psu .ne \\n(.Lv+\\n(.Vu .ns .. .de sh .fi .if (\\n(si>0)&(\\n(si<1n) \ .nr si \\n(sin .ce 0 .@d "\\$1" +1 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 .if !"\\$2"_" \ \{\ .ds |n \&\\$2 .$p "\\*(|n" "\\*($n" \\n($0 .$0 "\\*(|n" "\\*($n" \\n($0 .rm |n .\} .nr $p 0 1 .. .de @d .if !""\\$1" \ .nr $0 \\$1 .if \\n($0&(\\n(.$>1) \ .nr $\\n($0 \\$2 .ds $n \& .ie \\n($0>=1 \ \{\ .if '\\n($1'0' \ .nr $1 1 .if (\\n(.$>=3) .if !"\\$3"-" \ .nr $1 \\$3 .as $n \\n($1 .\} .el \ .nr $1 0 .ie \\n($0>=2 \ \{\ .if '\\n($2'0' \ .nr $2 1 .if (\\n(.$>=4) .if !"\\$4"-" \ .nr $2 \\$4 .as $n .\\n($2 .\} .el \ .nr $2 0 .ie \\n($0>=3 \ \{\ .if '\\n($3'0' \ .nr $3 1 .if (\\n(.$>=5) .if !"\\$5"-" \ .nr $3 \\$5 .as $n .\\n($3 .\} .el \ .nr $3 0 .ie \\n($0>=4 \ \{\ .if '\\n($4'0' \ .nr $4 1 .if (\\n(.$>=6) .if !"\\$6"-" \ .nr $4 \\$6 .as $n .\\n($4 .\} .el \ .nr $4 0 .ie \\n($0>=5 \ \{\ .if '\\n($5'0' \ .nr $5 1 .if (\\n(.$>=7) .if !"\\$7"-" \ .nr $5 \\$7 .as $n .\\n($5 .\} .el \ .nr $5 0 .ie \\n($0>=6 \ \{\ .if '\\n($6'0' \ .nr $6 1 .if (\\n(.$>=8) .if !"\\$8"-" \ .nr $6 \\$8 .as $n .\\n($6 .\} .el \ .nr $6 0 .. .de sx .ce 0 .ul 0 .nr _0 \\n($0-1 .if \\n(.$ .nr _0 +1 .if \\n(.$ .nr _0 \\$1 .@d \\n(_0 .rr _0 .$p "" "" \\n($0 .nr $p 0 1 .. .de uh .$p "\\$1" .$0 "\\$1" .. .de $p .if (\\n(si>0)&(\\n(.$>2) \ .nr $i \\$3*\\n(si .in \\n($iu .ie !"\\$1\\$2"" \ \{\ .sp \\n(ssu .ne \\n(.Lv+\\n(.Vu+\\n(psu+((\\n(spp*\\n($vu*\\n(.Lu)/100u) .ie 0\\$3 \ .ti -(\\n(siu-\\n(sou) .el \ .ti +\\n(sou .@F \\n(sf .sz \\n(sp .if 0\\$3 \ .$\\$3 .if \w"\\$2">0 \\$2. .if \w"\\$1">0 \\$1\f1\ \ \& .\} .el \ .sp \\n(psu .@F \\n(pf .sz \\n(pp .. .de 2c .br .if \\n($m>1 \ .1c .nr $c 1 .nr $m 2 .if \\n(.$>1 \ .nr $m \\$2 .if \\n(.$>0 \ .nr $s \\$1n .nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m .xl \\n($lu .mk _k .ns .. .de 1c .br .nr $c 1 .nr $m 1 .ll \\n(_Lu .sp |\\n(.hu .@O \\n(_ou .. .de bc .sp 24i .. .de (z .if \n@>4 .tm >> (z, .z=\n(.z .@D 4 \\$1 \\$2 .@( .. .de )z .if \n@>4 .tm >> )z, .z=\n(.z .sp \\n(zsu .@) .if \n@>4 .tm -- )z << @), .z=\n(.z .rr _0 .if !\\n(?b \ .nr dn +(\\n(ppp*\\n($vu)/200u+\\n(zsu .nr dl -\n(.H .ie ((\\n(dn+\n(.V)>=\\n(.t):(\\n(?a):((\\n(dl>\\n($l)&(\\n($c>1)) \ \{\ .nr ?a 1 .if (\\n(dl>\\n($l)&(\\n($m>1) \ .nr ?w 1 .ds |x |t .\} .el \ \{\ .nr ?b 1 .if (\\n(dl>\\n($l)&(\\n($m>1) \ .nr ?W 1 .nr _b +\\n(dnu .if \\n(.p-\\n(nl-\n(.V<\\n(_b \ .nr _b \\n(.p-\\n(nl-\n(.V .ch @f -\\n(_bu .ds |x |b .\} .da \\*(|x .nf .ls 1 .nr ?k 1 .if \n@>4 .tm -- )z >> \\*(|x \!.if \\\\n(nl>(\\\\n(tm+2v) .ne \\n(dnu-\\n(zsu .|k .ec .if \n@>4 .tm -- )z << \\*(|x, .z=\\n(.z .nr ?k 0 .rm |k .da .in 0 .ls 1 .xl \\n($lu .ev .if \n@>4 .tm << )z, .z=\\n(.z .. .de @k .if \n@>4 .tm >> @k, $1=\\$1, .z=\\n(.z .ev 1 .nf .ls 1 .in 0 .sp \\n(zsu .\\$1 .ec .br .rm \\$1 .ev .. .de (t .(z \\$1 \\$2 .. .de )t .)z \\$1 \\$2 .. .de (b .br .@D 3 \\$1 \\$2 .sp \\n(bsu .@( .. .de )b .br .@) .if (\\n(bt=0):(\\n(.t<\\n(bt) \ .ne \\n(dnu .ls 1 .nf .|k .ec .fi .in 0 .xl \\n($lu .ev .rm |k .sp \\n(bsu+\\n(.Lv-1v .. .de @( .if !"\\n(.z"" .tm Line \\n(c. -- Invalid nested keep \\n(.z .@M .di |k \!'rs .. .de @M .nr ?k 1 .@C 1 .@F \\n(df .if \\n($R .@V .vs \\n(.sp*\\n($Vu/100u .nf .if "\\*(|p"F" \ .fi .if \\n(_d=4 \ .in 0 .if \\n(_d=3 \ \{\ .in +\\n(biu .xl -\\n(biu .\} .if \\n(_d=1 \ .ce 10000 .. .de @) .br .if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened .nr ?k 0 .di .in 0 .ce 0 .. .de (c .if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests .di |c .. .de )c .if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c .br .di .if \n@>4 .tm >> .)c .l=\\n(.l .i=\\n(.i $i=\\n($i dl=\\n(dl .ev 1 .ls 1 .in (\\n(.lu-\\n(.iu-\\n(dlu)/2u .if \n@>4 .tm -- .)c << .in .l=\\n(.l .i=\\n(.i dl=\\n(dl .nf .|c .ec .in .ls .ev .rm |c .. .de (q .br .@C 1 .fi .sp \\n(qsu .in +\\n(qiu .xl -\\n(qiu .sz \\n(qp .. .de )q .br .ev .sp \\n(qsu+\\n(.Lv-1v .nr ?k 0 .. .de (l .br .sp \\n(bsu .@D 3 \\$1 \\$2 .@M .. .de )l .br .ev .sp \\n(bsu+\\n(.Lv-1v .nr ?k 0 .. .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 .ev .\} .. .de @q .nr _Q \\n(dnu .ev .sp \\n(esu .if !"\\n(.z"" \!.ne \\n(_Qu .ne \\n(_Qu+\n(.Vu .@C 2 .if \\n(_d=1 \ .in (\\n(.lu+\\n($iu-\\n(dlu)/2u .if \\n(_d=2 \ .in \\n($iu .if \\n(_d=3 \ .in \\n(biu+\\n($iu .if \\n(_d=4 \ .in 0 .mk _q .if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p .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 .. .de TS .sp \\n(bsu .@C 1 .fi .if "\\$1"H" \ \{\ .di |h .nr ?T 1 .\} .ls 1 .ch @f -(\\n(_bu+1v) .if \\n(.p-\\n(_b-1v<=\\n(nl \ .ch @f \\n(nlu+\n(.Vu .. .de TH .nr T. 0 .T# 0 .di .nr _T \\n(?T .nr ?T 0 .ne \\n(dnu+1v .nr ?T \\n(_T .nr _i \\n(.i .in 0 .|h .in \\n(_iu .rr _i .mk #T .. .de TE .nr ?T 0 .ch @f -\\n(_bu .if \\n(.p-\\n(_b<=\\n(nl \ .ch @f \\n(nlu+\n(.Vu .ev .sp \\n(bsu+\\n(.Lv-1v .re .. .de T& .. .de ][ .if \\$1>5 .tm Bad arg to [] .[\\$1 .. .de [0 .(f .ip "\\*([F.\0" .if !"\\*([A"" \\*([A, .if !"\\*([T"" \\f2\\*([T\\f1\c .if !"\\*([T"" .if !"\\*([O"" ,\ .ie !"\\*([O"" \\*([O .el .if !"\\*([T"" \&. .if !"\\*([D"" \\*([D. .@p .)f .. .de [1 .(f .ip "\\*([F.\0" \\*([A, .if !"\\*([T"" \\*(lq\\*([T,\\*(rq .if "\\*([V"" \\f2\\*([J\\f1, .if !"\\*([V"" \\f2\\*([J\\f1 .if !"\\*([V"" \\f3\\*([V\\f1\c .if !"\\*([N"" (\\*([N)\c .if !"\\*([P"" \ \{\ .ie \\n([P>0 \ pp.\& .el \ p.\& \\*([P .\} .if !"\\*([I"" .if "\\*([R"" \\*([I, (\\*([D). .if !"\\*([O"" \\*([O .)f .. .de [2 .(f .ip "\\*([F.\0" \\*([A, \\f2\\*([T,\\f1 \\*([I\c .if !"\\*([C"" , \\*([C\c (\\*([D). .if !"\\*([G"" Gov't. ordering no. \\*([G .if !"\\*([O"" \\*([O .)f .. .de [3 .(f .ip "\\*([F.\0" \\*([A, \\*(lq\\*([T,\\*(rq .if !"\\*([P"" pp. \\*([P in \\f2\\*([B\\f1, \c .if !"\\*([E"" ed. \\*([E, \c .if !"\\*([I"" \\*([I\c .if !"\\*([C"" , \\*([C\c (\\*([D). .if !"\\*([O"" \\*([O .)f .. .de [4 .(f .ip "\\*([F.\0" \\*([A, \\*(lq\\*([T,\\*(rq \\*([R\c .if !"\\*([G"" \& (\\*([G)\c .if !"\\*([I"" , \\*([I\c .if !"\\*([C"" , \\*([C\c (\\*([D). .if !"\\*([O"" \\*([O .)f .. .de [5 .(f .ip "\\*([F.\0" \\*([A, \\f2\\*([T\\f1, .ie \\n(TN \\*([M. .el Bell Laboratories internal memorandum (\\*([D). .)f .. .de ]< .$p References .lp .rm (f )f .. .de ]> .sp .. .de ]- .rm [V [P [A [T [N [C [B [O [R [I [E [D .. .ie \n(.V<1v \ \{\ .ds [. \s-2\v'-.4m'\f1 .ds .] \v'.4m'\s+2\fP .\} .el \ \{\ .ds [. " [ .ds .] ] .\} .de IS .nr g7 \\n(.u .ls 1 .. .de IF .if \\n(g7 .fi .ls .. .de IE .if \\n(g7 .fi .ls .. .de PS .sp 0.3 .nr g7 \\$2 .in (u;\\n(.l-\\n(g7>?0/2) .ne \\$1u .nr g7 \\n(.u .ls 1 .. .de PE .ls .in .if \\n(g7 .fi .sp .6 .. .de GS .nr g7 (\\n(.lu-\\n(g1u)/2u .if "\\$1"L" .nr g7 \\n(.iu .if "\\$1"R" .nr g7 \\n(.lu-\\n(g1u .in \\n(g7u .nr g7 \\n(.u .ls 1 .nf .ne \\n(g2u .. .de GE .GF .sp .6 .. .de GF .ls .in .if \\n(g7 .fi .. .de sz .ps \\$1 .if \\n($r .@v .vs \\n(.sp*\\n($vu/100u .. .de @v .if (1i>=240u)&(1p<=\\n($r)&(\\n($r<=4p) .nr $v \\n($r00/1p .. .de @V .if (1i>=240u)&(1p<=\\n($R)&(\\n($R<=4p) .nr $V \\n($R00/1p .. .de @E .ie \\n(.f<10 \ .ds _F \\n(.f .el \ \{\ .ie \\n(.f<100&\n(.g \ .ds _F (\\n(.f .el \ .ds _F P .\} .. .de r .@E .ft 1 .if \\n(.$ \&\\$1\f\\*(_F\\$2 .. .de i .@E .ft 2 .if \\n(.$ \&\\$1\f\\*(_F\\$2 .. .de b .@E .ft 3 .if \\n(.$ \&\\$1\f\\*(_F\\$2 .. .de rb .@E .ft 3 .if \\n(.$ \&\\$1\f\\*(_F\\$2 .. .de bi .@E .ft 4 .if \\n(.$ \&\\$1\f\\*(_F\\$2 .. .de u \&\\$1\l'|0\(ul'\\$2 .. .if !\n(.g .ig .de u \Z'\\$1'\v'.25m'\D'l \w'\\$1'u 0'\v'-.25m'\\$2 .. .de q \&\\*(lq\\$1\\*(rq\\$2 .. .de bx \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2 .. .de sm \s-1\\$1\\s0\\$2 .. .de @F .nr ~ \\$1 .if \\n~>0 \ .ft \\n~ .rr ~ .. .de (f .ec .if "\\n(.z"|f" .tm Line \\n(c. -- Invalid 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(.sp*\\n($Vu/100u .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(.sp*\\n($Vu/100u .if !\\n(?f \ .$s .br .\} .rr _0 .sp \\n(fsu .nr ?f 1 .fi .if !"\\$1"_" \ .ti \\n(fiu .if \n@>2 .tm << (f $f=\\n($f .\} .el \ \{\ .ev 2 .in 0 .xl \\n($lu-\\n(fuu .@F \\n(ff .sz \\n(fp .vs \\n(.sp*\\n($Vu/100u .fi \!.(f \\$1 \!.@N .\} .. .de @N .ie "\\n(.z"" .nf .el \!.@N .. .de )f .ie "\\n(.z"|f" \ \{\ .if \\n* \ .nr $f +1 .ds * \\*{\\n($f\\*}\k* .nr * 0 .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 \\n(_D .rr _D .\} .el \ \{\ .br \!.)f .ev .\} .. .@R ff .if \n(ff<=0 \ .nr ff 1 .@R fp .if \n(fp<=0 \ .nr fp 8 .de $s \l'2i' .. .de (d .am |d )d .sp \\n(bsu .. .de )d .if \\n# \ .nr $d +1 .ds # [\\n($d]\k# .rr # .. .de pd .|d .rm |d .nr $d 1 1 .ds # [1]\k# .. .nr _x 0 1 .af _x a .de (x .if \n@>4 .tm >> (x, .z=\\n(.z .ds |X x .if \\n(.$>0 \ .ds |X \\$1 .ie "\\n(.z"" \ .nr _z 0 .el \ .nr _z 1 .@\\n(_z .. .de @0 .am %\\*(|X )x .sp \\n(xsu .ti -\\n(piu .. .de @1 .if "\\n(_x"z" .nr _x 0 .de =\\n+(_x )x .. .de )x .if \n@>4 .tm >> )x, .z=\\n(.z .ie "\\n(.z"" \ \{\ .ds |x \\n% .if \\n(.$>0 \ .ds |x \\$1 .if "\\*(|x"_" \ .ig .. .am %\\*(|X .. .if \w"\\$2">(\\n(.l-\\n(.i-\\n(.k) \ .ti +\\n(xuu \\\\a\\\\t\\$2\\*(|x ... .rm |x .rm |X .\} .el \ \{\ \!.(x \\*(|X \!\\\\*(=\\n(_x\\\\ \!.)x \\$1 \\$2 \!.rm =\\n(_x .\} .. .de xp .br .@C 2 .ls 1 .vs \\n(.sp*\\n($Vu/100u .fi .in +\\n(piu .ds |X x .if \\n(.$>0 \ .ds |X \\$1 .xl -(\\n(xuu+\w'...'u) .di |x .%\\*(|X .br .di .rm %\\*(|X .xl \\n($lu .rm |X .ev .nf .in 0 .ta \\n(.lu-\\n(xuuR \\n(.luR .|x .fi .in .rm |x .. .de +c .ep .if \\n(?o:\\n(?a \ \{\ .bp .rs .ep .\} .nr ?C 1 .nr $f 1 1 .ds * \\*{1\\*}\k* .if \\n(?R \ .pn 1 .bp .in \\n($iu .rs .ie \\n(.$ \ .$c "\\$1" .el \ .sp 3 .. .de ++ .nr _0 0 .if "\\$1"C" \ .nr _0 1 .if "\\$1"RC" \ .nr _0 11 .if "\\$1"A" \ .nr _0 2 .if "\\$1"RA" \ .nr _0 12 .if "\\$1"P" \ .nr _0 3 .if "\\$1"B" \ .nr _0 4 .if "\\$1"AB" \ .nr _0 5 .if \\n(_0=0 \ .tm Line \\n(c. -- Bad mode to .++ .nr ?R 0 .if \\n(_0>10 \ .\{ .nr ?R 1 .nr _0 -10 .\} .nr ch 0 1 .if (\\n(_0=3):(\\n(_0=5) \ .pn 1 .if !\\n(_0=\\n(_M .if \\n(_M=3 \ .pn 1 .ep .if \\n(_0=1 \ \{\ .af ch 1 .af % 1 .\} .if \\n(_0=2 \ \{\ .af ch A .af % 1 .\} .if \\n(_0=3 \ .af % i .if \\n(_0=4 \ .af % 1 .if \\n(_0=5 \ .af % 1 .if \\n(.$>1 \ .he \\$2 .nr _M \\n(_0 .rr _0 .. .de $c .sz 12 .ft 3 .ce 1000 .if \\n(_M<3 \ .nr ch +1 .ie \\n(_M=1 CHAPTER\ \ \\n(ch .el .if \\n(_M=2 APPENDIX\ \ \\n(ch .if \w"\\$1" .sp 3-\\n(.L .if \w"\\$1" \\$1 .if (\\n(_M<3):(\w"\\$1") \ .sp 4-\\n(.L .ce 0 .ft .sz .ie \\n(_M=1 \ .$C Chapter \\n(ch "\\$1" .el .if \\n(_M=2 \ .$C Appendix \\n(ch "\\$1" .. .de tp .hx .bp .br .rs .pn \\n% .. .if \n(mo=1 .ds mo January .if \n(mo=2 .ds mo February .if \n(mo=3 .ds mo March .if \n(mo=4 .ds mo April .if \n(mo=5 .ds mo May .if \n(mo=6 .ds mo June .if \n(mo=7 .ds mo July .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 .nr y2 \n(yr%100 .af y2 00 .nr y4 \n(yr+1900 .ds td \*(mo \n(dy, \n(y4 .rr x .nr $v \n(.v00+\n(.sp-1/\n(.sp .nr $V \n($v .nr hm 4v .nr tm 7v .nr bm 6v .nr fm 3v .nr tf 3 .nr tp 10 .hy 14 .nr bi 4m .nr pi 5n .nr pf 1 .nr pp 10 .nr qi 4n .nr qp -1 .nr ii 5n .nr $m 1 .nr $s 4n .nr sf 3 .nr sp 10 .nr ss 12p .nr si 0 .@R 0x .ds { \v'-0.4m'\x'\\n(0x=0*-0.2m'\s-3 .ds } \s0\v'0.4m' .ds [ \*{ .ds ] \*} .ds < \v'0.4m'\x'\\n(0x=0*0.2m'\s-3 .ds > \s0\v'-0.4m' .ds - \(em .@S |0 .@S |1 .@S |2 .@S |3 .@S $H .@S $0 .@S $1 .@S $2 .@S $3 .@S $4 .@S $5 .@S $6 .@S $7 .@S $8 .@S $9 .@S .. .@R po .@R $0 .@R $i .@R $p .@R $r .@R $R .@R df .@R so .@R fu .@R bt .@R * .@R ?a .@R ?b .@R ?C .@R ?e .@R ?H .@R ?I .@R ?n .@R ?o .@R ?R .@R ?s .@R ?T .@R ?W .@R ?w .nr fi 0.3i .nr _o \n(.o .nr $b 3 .nr ps 0.35v .if \n(ps<\n(.V .nr ps \n(.V .nr bs \n(ps .nr qs \n(ps .nr zs 1v .nr xs 0.2v .nr xu 0.5i .nr fs 0.2v .nr es 0.5v .if \n(es<\n(.V .nr es \n(.V .wh 0 @h .nr $l \n(.lu .nr _L \n(.lu .nr $c 1 .nr $f 1 1 .ds * \*{1\*}\k* .nr $d 1 1 .ds # [1]\k# .nr _M 1 .ds lq \(lq .ds rq \(rq .em @z .ds #h ((1u-(\\\\n(.fu%2u))*0.13m) .ds #v 0.6m .ds ' \k_\h'-(\\n(.wu*8/10-\*(#h)'\(aa\h'|\\n_u' .ds ` \k_\h'-(\\n(.wu*7/10-\*(#h)'\(ga\h'|\\n_u' .ds : \k_\h'-(\\n(.wu*8/10-\*(#h+0.1m)'\v'-\*(#v'\z.\h'0.2m'.\h'|\\n_u'\v'\*(#v' .ds ^ \k_\h'-(\\n(.wu-\*(#h-0.05m)'^\h'|\\n_u' .ds ~ \k_\h'-(\\n(.wu-\*(#h-0.05m)'~\h'|\\n_u' .ds , \k_\h'-(\\n(.wu)',\h'|\\n_u' .ds v \k_\h'-(\\n(.wu*9/10-\*(#h)'\v'-\*(#v'\s-4v\s0\v'\*(#v'\h'|\\n_u' .ds o \k_\h'-(\\n(.wu+\w'\(de'u-\*(#h)/2u'\v'-0.4n'\z\(de\v'0.4n'\h'|\\n_u' .ds qe \s-2\v'0.45m'\z\(em\v'-0.625m'\z\(em\v'-0.625m'\(em\v'0.8m'\s0\h'-0.1m'\v'-0.05m'\(br\v'0.05m'\h'0.1m' .ds qa \z\e\h'0.35m'\z\(sl\h'-0.33m'\v'-0.3m'\s-4\(em\s0\v'0.3m'\h'0.15m' .rm #h #v .ll 6.0i .lt 6.0i .de @U .tm The \\$1 macro has been removed from this version of the -me macros. .. .de lo .@U lo .. .de th .@U th .. .de ac .@U ac ..
Back to File Manager