Blob
1 .nr _0 \n(.c2 .\"**********************************************************************3 .\"* *4 .\"* ****** - M E N R O F F / T R O F F M A C R O S ****** *5 .\"* *6 .\"* Produced for your edification and enjoyment by: *7 .\"* Eric Allman *8 .\"* Electronics Research Laboratory *9 .\"* U.C. Berkeley. *10 .\"* *11 .\"* VERSION 2.9 First Release: 11 Sept 1978 *12 .\"* See file \*(||/revisions for revision history *13 .\"* *14 .\"* Documentation is available. *15 .\"* *16 .\"**********************************************************************17 .\"18 .\" @(#)tmac.e 2.9 12/10/8019 .\" This version has had comments stripped; an unstripped version is available.20 .if !\n(.V .tm You are using the wrong version of NROFF/TROFF!!21 .if !\n(.V .tm This macro package works only on the version seven22 .if !\n(.V .tm release of NROFF and TROFF.23 .if !\n(.V .ex24 .if \n(pf \25 . nx \*(||/null.me26 .de @C27 .nr _S \\n(.s28 .nr _V \\n(.v29 .nr _F \\n(.f30 .nr _I \\n(.i31 .ev \\$132 .ps \\n(_Su33 .vs \\n(_Vu34 .ft \\n(_F35 'in \\n(_Iu36 .xl \\n($lu37 .lt \\n($lu38 .rr _S39 .rr _V40 .rr _F41 .rr _I42 .ls 143 'ce 044 ..45 .de @D46 .ds |p "\\$347 .nr _d \\$148 .ie "\\$2"C" \49 . nr _d 150 .el .ie "\\$2"L" \51 . nr _d 252 .el .ie "\\$2"I" \53 . nr _d 354 .el .ie "\\$2"M" \55 . nr _d 456 .el \57 . ds |p "\\$258 ..59 .de @z60 .if !"\\n(.z"" \61 \{\62 . tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)63 . di64 . ex65 .\}66 .if \\n(?a \67 . bp68 .rm bp69 .rm @b70 .if t \71 . wh -1p @m72 .br73 ..74 .de @I75 .rm th76 .rm ac77 .rm lo78 .rm sc79 .rm @I80 ..81 .de he82 .ie !\\n(.$ \83 \{\84 . rm |485 . rm |586 .\}87 .el \88 \{\89 . ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$990 . ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$991 .\}92 ..93 .de eh94 .ie !\\n(.$ \95 . rm |496 .el \97 . ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$998 ..99 .de oh100 .ie !\\n(.$ \101 . rm |5102 .el \103 . ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9104 ..105 .de fo106 .ie !\\n(.$ \107 \{\108 . rm |6109 . rm |7110 .\}111 .el \112 \{\113 . ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9114 . ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9115 .\}116 ..117 .de ef118 .ie !\\n(.$ \119 . rm |6120 .el \121 . ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9122 ..123 .de of124 .ie !\\n(.$ \125 . rm |7126 .el \127 . ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9128 ..129 .de ep130 .if \\n(nl>0 \131 \{\132 . wh 0133 . rs134 . @b135 .\}136 ..137 .de @h138 .if (\\n(.i+\\n(.o)>=\\n(.l \139 . tm Line \\n(c. -- Offset + indent exceeds line length140 .if t .if (\\n(.l+\\n(.o)>7.75i \141 . tm Line \\n(c. -- Offset + line length exceeds paper width142 .nr ?h \\n(?H143 .rr ?H144 .nr ?c \\n(?C145 .rr ?C146 .rn |4 |0147 .rn |5 |1148 .rn |6 |2149 .rn |7 |3150 .nr _w 0151 .nr ?W 0152 .nr ?I 1153 .ev 2154 .rs155 .if t .@m156 .if \\n(hm>0 \157 . sp |\\n(hmu158 .if \\n($T=2 \\!.159 .@t $h160 .if \\n(tm<=0 \161 . nr tm \n(.Vu162 .sp |\\n(tmu163 .ev164 .mk _k165 .if \\n(?n .nm 1166 .nr $c 1167 .ie \\n(?s \168 \{\169 . rr ?s170 . rs171 ' @b172 .\}173 .el \174 . @n175 ..176 .de @m177 .@O 0178 .lt 7.5i179 .tl '\(rn''\(rn'180 .@O181 .lt182 ..183 .de @n184 .if \\n(bm<=0 \185 . nr bm \\n(.Vu186 .if (\\n(_w<=\\n($l)&(\\n(?W=0) \187 \{\188 . nr _b (\\n(ppu*\\n($ru)/2u189 . if \\n(_bu>((\\n(bmu-\\n(fmu-(\\n(tpu*\\n($ru))/2u) \190 . nr _b (\\n(ppu*\\n($ru)-\n(.Vu191 . nr _b +\\n(bmu192 .\}193 .nr _B \\n(_bu194 .ch @f195 .wh -\\n(_bu @f196 .nr ?f 0197 .if \\n(?o \198 \{\199 . (f _200 . nf201 . |o202 . fi203 . )f204 . rm |o205 .\}206 .nr ?o 0207 .if \\n(?T \208 \{\209 . nr _i \\n(.i210 . in \\n($iu211 . |h212 . in \\n(_iu213 . rr _i214 . mk #T215 . ns216 .\}217 .if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \218 \{\219 . nr ?a 0220 . @k |t221 . if \\n(?w \222 . mk _k223 . nr ?w 0224 .\}225 .os226 .$H227 .ns228 ..229 .de @f230 .ec231 .if \\n(?T \232 \{\233 . nr T. 1234 . T# 1235 . br236 .\}237 .ev 2238 .ce 0239 .if \\n(?b \240 \{\241 . nr ?b 0242 . @k |b243 .\}244 .if \\n(?f \245 . @o246 .ie \\n($c<\\n($m \247 . @c248 .el \249 . @e250 .ev251 ..252 .de @o253 .nf254 .ls 1255 .in 0256 .wh -\\n(_Bu @r257 .|f258 .fi259 .if \\n(?o \260 . di261 . if \\n(dn=0 \262 \{\263 . rm |o264 . nr ?o 0265 . \}266 . nr dn \\n(_D267 . rr _D268 .\}269 .rm |f270 .ch @r271 ..272 .de @c273 .rs274 .sp |\\n(_ku275 .@O +\\n($lu+\\n($su276 .nr $c +1277 .@n278 ..279 .de @e280 .@O \\n(_ou281 .rs282 .sp |\\n(.pu-\\n(fmu-(\\n(tpu*\\n($ru)283 .@t $f284 .nr ?h 0285 .bp286 ..287 .de @t288 .if !\\n(?h \289 \{\290 . sz \\n(tp291 . @F \\n(tf292 . lt \\n(_Lu293 . nf294 . \\$1295 . br296 .\}297 ..298 .de $h299 .rm |z300 .if !\\n(?c \301 \{\302 . if e .ds |z "\\*(|0303 . if o .ds |z "\\*(|1304 .\}305 .if !\(ts\\*(|z\(ts\(ts \306 ' tl \\*(|z307 .rm |z308 ..309 .de $f310 .rm |z311 .if \\n(?c \312 \{\313 . if e .ds |z "\\*(|0314 . if o .ds |z "\\*(|1315 .\}316 .if \(ts\\*(|z\(ts\(ts \317 \{\318 . if e .ds |z "\\*(|2319 . if o .ds |z "\\*(|3320 .\}321 .if !\(ts\\*(|z\(ts\(ts \322 ' tl \\*(|z323 .rm |z324 ..325 .de @r326 .di |o327 .nr ?o 1328 .nr _D \\n(dn329 .ns330 ..331 .rn bp @b332 .de bp333 .nr $c \\n($m334 .ie \\n(nl>0 \335 . @b \\$1336 .el \337 \{\338 . if \\n(.$>0 \339 . pn \\$1340 . if \\n(?I \341 . @h342 .\}343 .br344 .wh 0 @h345 ..346 .rn ll xl347 .de ll348 .xl \\$1349 .lt \\$1350 .nr $l \\n(.l351 .if (\\n($m<=1):(\\n($l>\\n(_L) \352 . nr _L \\n(.l353 ..354 .rn po @O355 .de po356 .@O \\$1357 .nr _o \\n(.o358 ..359 .de hx360 .nr ?H 1361 ..362 .de ix363 'in \\$1364 ..365 .de bl366 .br367 .ne \\$1368 .rs369 .sp \\$1370 ..371 .de n1372 .nm 1373 .xl -\w'0000'u374 .nr ?n 1375 ..376 .de n2377 .nm \\$1378 .ie \\n(.$ \379 . xl -\w'0000'u380 .el \381 . xl \\n($lu382 ..383 .de pa384 .bp \\$1385 ..386 .de ro387 .af % i388 ..389 .de ar390 .af % 1391 ..392 .de m1393 .nr _0 \\n(hmu394 .nr hm \\$1v395 .nr tm +\\n(hmu-\\n(_0u396 .rr _0397 ..398 .de m2399 .nr tm \\n(hmu+\\n(tpp+\\$1v400 ..401 .de m3402 .nr bm \\n(fmu+\\n(tpp+\\$1v403 ..404 .de m4405 .nr _0 \\n(fmu406 .nr fm \\$1v407 .nr bm +\\n(fmu-\\n(_0u408 ..409 .de sk410 .if \\n(.$>0 \411 . tm Line \\n(c. -- I cannot skip multiple pages412 .nr ?s 1413 ..414 .de re415 .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.5i416 ..417 .if t .ig418 .de re419 .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.8i420 ..421 .de ba422 .ie \\n(.$ \423 . nr $i \\$1n424 .el \425 . nr $i \\n(siu*\\n($0u426 ..427 .de hl428 .br429 \l'\\n(.lu-\\n(.iu'430 .sp431 ..432 .de pp433 .lp \\n(piu434 ..435 .de lp436 .@p437 .if \\n(.$ \438 . ti +\\$1439 .nr $p 0 1440 ..441 .de ip442 .if (\\n(ii>0)&(\\n(ii<1n) \443 . nr ii \\n(iin444 .nr _0 \\n(ii445 .if \\n(.$>1 \446 . nr _0 \\$2n447 .@p \\n(_0u448 .if \\w"\\$1" \449 \{\450 . ti -\\n(_0u451 . ie \\w"\\$1">=\\n(_0 \452 \{\453 \&\\$1454 . br455 . \}456 . el \&\\$1\h'|\\n(_0u'\c457 .\}458 .rr _0459 ..460 .de np461 .nr $p +1462 .ip (\\n($p)463 ..464 .de @p465 .@I466 .if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation467 .in \\n($iu+\\n(pou468 .if \\n(.$ \469 . in +\\$1n470 .ce 0471 .fi472 .@F \\n(pf473 .sz \\n(ppu474 .sp \\n(psu475 .ne \\n(.Lv+\\n(.Vu476 .ns477 ..478 .de sh479 .rn sh @T480 .so \\*(||/sh.me481 .sh "\\$1" "\\$2" \\$3 \\$4 \\$5 \\$6 \\$7 \\$8482 .rm @T483 ..484 .de $p485 .if (\\n(si>0)&(\\n(.$>2) \486 . nr $i \\$3*\\n(si487 .in \\n($iu488 .ie !"\\$1\\$2"" \489 \{\490 . sp \\n(ssu491 . ne \\n(.Lv+\\n(.Vu+\\n(psu+(\\n(spu*\\n($ru*\\n(.Lu)492 . ie \\n(.$>2 \493 . ti -(\\n(siu-\\n(sou)494 . el \495 . ti +\\n(sou496 . @F \\n(sf497 . sz \\n(spu498 . if \\$3>0 \499 . $\\$3500 . if \w"\\$2">0 \\$2.501 . if \w"\\$1">0 \\$1\f1\ \ \"502 .\}503 .el \504 . sp \\n(psu505 .@F \\n(pf506 .sz \\n(ppu507 ..508 .de uh509 .rn uh @T510 .so \\*(||/sh.me511 .uh "\\$1"512 .rm @T513 ..514 .de 2c515 .br516 .if \\n($m>1 \517 . 1c518 .nr $c 1519 .nr $m 2520 .if \\n(.$>1 \521 . nr $m \\$2522 .if \\n(.$>0 \523 . nr $s \\$1n524 .nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m525 .xl \\n($lu526 .mk _k527 .ns528 ..529 .de 1c530 .br531 .nr $c 1532 .nr $m 1533 .ll \\n(_Lu534 .sp |\\n(.hu535 .@O \\n(_ou536 ..537 .de bc538 .sp 24i539 ..540 .de (z541 .rn (z @V542 .so \\*(||/float.me543 .(z \\$1 \\$2544 .rm @V545 ..546 .de )z547 .tm Line \\n(c. -- unmatched .)z548 ..549 .de (t550 .(z \\$1 \\$2551 ..552 .de )t553 .)z \\$1 \\$2554 ..555 .de (b556 .br557 .@D 3 \\$1 \\$2558 .sp \\n(bsu559 .@(560 ..561 .de )b562 .br563 .@)564 .if (\\n(bt=0):(\\n(.t<\\n(bt) \565 . ne \\n(dnu566 .ls 1567 .nf568 .|k569 .ec570 .fi571 .in 0572 .xl \\n($lu573 .ev574 .rm |k575 .sp \\n(bsu+\\n(.Lv-1v576 ..577 .de @(578 .if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z579 .@M580 .di |k581 \!'rs582 ..583 .de @M584 .nr ?k 1585 .@C 1586 .@F \\n(df587 .vs \\n(.su*\\n($Ru588 .nf589 .if "\\*(|p"F" \590 . fi591 .if \\n(_d=4 \592 . in 0593 .if \\n(_d=3 \594 \{\595 . in +\\n(biu596 . xl -\\n(biu597 .\}598 .if \\n(_d=1 \599 . ce 10000600 ..601 .de @)602 .br603 .if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened604 .nr ?k 0605 .di606 .in 0607 .ce 0608 ..609 .de (c610 .if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests611 .di |c612 ..613 .de )c614 .if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c615 .br616 .di617 .ev 1618 .ls 1619 .in (\\n(.lu-\\n(.iu-\\n(dlu)/2u620 .nf621 .|c622 .ec623 .in624 .ls625 .ev626 .rm |c627 ..628 .de (q629 .br630 .@C 1631 .fi632 .sp \\n(qsu633 .in +\\n(qiu634 .xl -\\n(qiu635 .sz \\n(qp636 ..637 .de )q638 .br639 .ev640 .sp \\n(qsu+\\n(.Lv-1v641 .nr ?k 0642 ..643 .de (l644 .br645 .sp \\n(bsu646 .@D 3 \\$1 \\$2647 .@M648 ..649 .de )l650 .br651 .ev652 .sp \\n(bsu+\\n(.Lv-1v653 .nr ?k 0654 ..655 .de EQ656 .rn EQ @T657 .so \\*(||/eqn.me658 .EQ \\$1 \\$2659 .rm @T660 ..661 .de TS662 .rn TS @W663 .so \\*(||/tbl.me664 .TS \\$1 \\$2665 .rm @W666 ..667 .de sz668 .ps \\$1669 .vs \\n(.su*\\n($ru670 .bd S B \\n(.su/3u671 ..672 .de r673 .nr _F \\n(.f674 .ul 0675 .ft 1676 .if \\n(.$ \&\\$1\f\\n(_F\\$2677 .rr _F678 ..679 .de i680 .nr _F \\n(.f681 .ul 0682 .ft 2683 .if \\n(.$ \&\\$1\f\\n(_F\\$2684 .rr _F685 ..686 .de b687 .nr _F \\n(.f688 .ul 0689 .ie t \690 . ft 3691 .el \692 . ul 10000693 .if \\n(.$ \&\\$1\f\\n(_F\\$2694 .if \\n(.$ \695 . ul 0696 .rr _F697 ..698 .de rb699 .nr _F \\n(.f700 .ul 0701 .ft 3702 .if \\n(.$ \&\\$1\f\\n(_F\\$2703 .rr _F704 ..705 .de u706 \&\\$1\l'|0\(ul'\\$2707 ..708 .de q709 \&\\*(lq\\$1\\*(rq\\$2710 ..711 .de bi712 .ft 2713 .ie t \&\k~\\$1\h'|\\n~u+(\\n(.su/3u)'\\$1\fP\\$2714 .el \&\\$1\fP\\$2715 ..716 .de bx717 .ie \\n($T \&\f2\\$1\fP\\$2718 .el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2719 ..720 .de @F721 .nr ~ \\$1722 .if \\n~>0 \723 \{\724 . ul 0725 . ie \\n~>4 \726 \{\727 . if n .ul 10000728 . if t .ft 3729 . \}730 . el \731 . ft \\n~732 .\}733 .rr ~734 ..735 .de (f736 .rn (f @U737 .so \\*(||/footnote.me738 .(f \\$1 \\$2739 .rm @U740 ..741 .de )f742 .tm Line \\n(c. -- unmatched .)f743 ..744 .de $s745 \l'2i'746 .if n \747 . sp 0.3748 ..749 .de (d750 .rn (d @U751 .so \\*(||/deltext.me752 .(d \\$1 \\$2753 .rm @U754 ..755 .de )d756 .tm Line \\n(c. -- unmatched .)d757 ..758 .de (x759 .rn (x @U760 .so \\*(||/index.me761 .(x \\$1 \\$2762 .rm @U763 ..764 .de )x765 .tm Line \\n(c. -- unmatched .)x766 ..767 .de th768 .so \\*(||/thesis.me769 .rm th770 ..771 .de +c772 .ep773 .if \\n(?o:\\n(?a \774 \{\775 . bp776 . rs777 . ep778 .\}779 .nr ?C 1780 .nr $f 1 1781 .ds * \\*[1\\*]\k*782 .if \\n(?R \783 . pn 1784 .bp785 .in \\n($iu786 .rs787 .ie \\n(.$ \788 . $c "\\$1"789 .el \790 . sp 3791 ..792 .de ++793 .nr _0 0794 .if "\\$1"C" \795 . nr _0 1796 .if "\\$1"RC" \797 . nr _0 11798 .if "\\$1"A" \799 . nr _0 2800 .if "\\$1"RA" \801 . nr _0 12802 .if "\\$1"P" \803 . nr _0 3804 .if "\\$1"B" \805 . nr _0 4806 .if "\\$1"AB" \807 . nr _0 5808 .if \\n(_0=0 \809 . tm Line \\n(c. -- Bad mode to .++810 .nr ?R 0811 .if \\n(_0>10 \812 .\{813 . nr ?R 1814 . nr _0 -10815 .\}816 .nr ch 0 1817 .if (\\n(_0=3):(\\n(_0=5) \818 . pn 1819 .ep820 .if \\n(_0=1 \821 \{\822 . af ch 1823 . af % 1824 .\}825 .if \\n(_0=2 \826 \{\827 . af ch A828 . af % 1829 .\}830 .if \\n(_0=3 \831 . af % i832 .if \\n(_0=4 \833 . af % 1834 .if \\n(_0=5 \835 . af % 1836 .if \\n(.$>1 \837 . he \\$2838 .if !\\n(_0=\\n(_M .if \\n(_M=3 \839 . pn 1840 .nr _M \\n(_0841 .rr _0842 ..843 .de $c844 .sz 12845 .ft B846 .ce 1000847 .if \\n(_M<3 \848 . nr ch +1849 .ie \\n(_M=1 CHAPTER\ \ \\n(ch850 .el .if \\n(_M=2 APPENDIX\ \ \\n(ch851 .if \w"\\$1" .sp 3-\\n(.L852 .if \w"\\$1" \\$1853 .if (\\n(_M<3):(\w"\\$1") \854 . sp 4-\\n(.L855 .ce 0856 .ft857 .sz858 .ie \\n(_M=1 \859 . $C Chapter \\n(ch "\\$1"860 .el .if \\n(_M=2 \861 . $C Appendix \\n(ch "\\$1"862 ..863 .de tp864 .hx865 .bp866 .br867 .rs868 .pn \\n%869 ..870 .de ac871 .rn ac @T872 .so \\*(||/acm.me873 .ac "\\$1" "\\$2"874 .rm @T875 ..876 .de lo877 .so \\*(||/local.me878 .rm lo879 ..880 .if \n(mo=1 .ds mo January881 .if \n(mo=2 .ds mo February882 .if \n(mo=3 .ds mo March883 .if \n(mo=4 .ds mo April884 .if \n(mo=5 .ds mo May885 .if \n(mo=6 .ds mo June886 .if \n(mo=7 .ds mo July887 .if \n(mo=8 .ds mo August888 .if \n(mo=9 .ds mo September889 .if \n(mo=10 .ds mo October890 .if \n(mo=11 .ds mo November891 .if \n(mo=12 .ds mo December892 .if \n(dw=1 .ds dw Sunday893 .if \n(dw=2 .ds dw Monday894 .if \n(dw=3 .ds dw Tuesday895 .if \n(dw=4 .ds dw Wednesday896 .if \n(dw=5 .ds dw Thursday897 .if \n(dw=6 .ds dw Friday898 .if \n(dw=7 .ds dw Saturday899 .ds td \*(mo \n(dy, 20\n(yr900 .if (1m<0.1i)&(\nx!=0) \901 . vs 9p902 .rr x903 .nr $r \n(.v/\n(.s904 .nr $R \n($r905 .nr hm 4v906 .nr tm 7v907 .nr bm 6v908 .nr fm 3v909 .nr tf 3910 .nr tp 10911 .hy 14912 .nr bi 4n913 .nr pi 5n914 .nr pf 1915 .nr pp 10916 .nr qi 4n917 .nr qp -1918 .nr ii 5n919 .nr $m 1920 .nr $s 4n921 .ds || #9/tmac/me922 .bd S B 3923 .ds [ \u\x'-0.25v'924 .ds ] \d925 .ds < \d\x'0.25v'926 .ds > \u927 .ds - --928 .if t \929 \{\930 . ds [ \v'-0.4m'\x'-0.2m'\s-3931 . ds ] \s0\v'0.4m'932 . ds < \v'0.4m'\x'0.2m'\s-3933 . ds > \s0\v'-0.4m'934 . ds - \-935 . nr fi 0.3i936 .\}937 .if n \938 \{\939 . nr fi 3n940 .\}941 .nr _o \n(.o942 .if n .po 1i943 .if \n(.V=1v \944 . nr $T 2945 .if \n(.T=0 \946 . nr $T 1947 .if t \948 \{\949 . nr $T 0950 . po -0.5i951 .\}952 .if \nv \953 . po 1i954 .if \n($T \955 \{\956 . if \n($T=1 \957 . po 0958 . ds [ [959 . ds ] ]960 . ds < <961 . ds > >962 .\}963 .nr ps 0.5v964 .if \n($T \965 . nr ps 1v966 .if t .nr ps 0.35v967 .nr bs \n(ps968 .nr qs \n(ps969 .nr zs 1v970 .nr xs 0.2v971 .nr fs 0.2v972 .if \n($T \973 . nr fs 0974 .if n .nr es 1v975 .if t .nr es 0.5v976 .wh 0 @h977 .nr $l \n(.lu978 .nr _L \n(.lu979 .nr $c 1980 .nr $f 1 1981 .ds * \*[1\*]\k*\"982 .nr $d 1 1983 .ds # [1]\k#\"984 .nr _M 1985 .ds lq \&"\"986 .ds rq \&"\"987 .if t \988 . ds lq ``989 .if t \990 . ds rq ''991 .em @z992 .de sc993 .so \\*(||/chars.me994 .rm sc995 ..996 .ll 6.0i997 .lt 6.0i