tmac.e (11986B)
1 .nr _0 \n(.c 2 .\"********************************************************************** 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/80 19 .\" 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 seven 22 .if !\n(.V .tm release of NROFF and TROFF. 23 .if !\n(.V .ex 24 .if \n(pf \ 25 . nx \*(||/null.me 26 .de @C 27 .nr _S \\n(.s 28 .nr _V \\n(.v 29 .nr _F \\n(.f 30 .nr _I \\n(.i 31 .ev \\$1 32 .ps \\n(_Su 33 .vs \\n(_Vu 34 .ft \\n(_F 35 'in \\n(_Iu 36 .xl \\n($lu 37 .lt \\n($lu 38 .rr _S 39 .rr _V 40 .rr _F 41 .rr _I 42 .ls 1 43 'ce 0 44 .. 45 .de @D 46 .ds |p "\\$3 47 .nr _d \\$1 48 .ie "\\$2"C" \ 49 . nr _d 1 50 .el .ie "\\$2"L" \ 51 . nr _d 2 52 .el .ie "\\$2"I" \ 53 . nr _d 3 54 .el .ie "\\$2"M" \ 55 . nr _d 4 56 .el \ 57 . ds |p "\\$2 58 .. 59 .de @z 60 .if !"\\n(.z"" \ 61 \{\ 62 . tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z) 63 . di 64 . ex 65 .\} 66 .if \\n(?a \ 67 . bp 68 .rm bp 69 .rm @b 70 .if t \ 71 . wh -1p @m 72 .br 73 .. 74 .de @I 75 .rm th 76 .rm ac 77 .rm lo 78 .rm sc 79 .rm @I 80 .. 81 .de he 82 .ie !\\n(.$ \ 83 \{\ 84 . rm |4 85 . rm |5 86 .\} 87 .el \ 88 \{\ 89 . ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 90 . ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 91 .\} 92 .. 93 .de eh 94 .ie !\\n(.$ \ 95 . rm |4 96 .el \ 97 . ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 98 .. 99 .de oh 100 .ie !\\n(.$ \ 101 . rm |5 102 .el \ 103 . ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 104 .. 105 .de fo 106 .ie !\\n(.$ \ 107 \{\ 108 . rm |6 109 . rm |7 110 .\} 111 .el \ 112 \{\ 113 . ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 114 . ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 115 .\} 116 .. 117 .de ef 118 .ie !\\n(.$ \ 119 . rm |6 120 .el \ 121 . ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 122 .. 123 .de of 124 .ie !\\n(.$ \ 125 . rm |7 126 .el \ 127 . ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9 128 .. 129 .de ep 130 .if \\n(nl>0 \ 131 \{\ 132 . wh 0 133 . rs 134 . @b 135 .\} 136 .. 137 .de @h 138 .if (\\n(.i+\\n(.o)>=\\n(.l \ 139 . tm Line \\n(c. -- Offset + indent exceeds line length 140 .if t .if (\\n(.l+\\n(.o)>7.75i \ 141 . tm Line \\n(c. -- Offset + line length exceeds paper width 142 .nr ?h \\n(?H 143 .rr ?H 144 .nr ?c \\n(?C 145 .rr ?C 146 .rn |4 |0 147 .rn |5 |1 148 .rn |6 |2 149 .rn |7 |3 150 .nr _w 0 151 .nr ?W 0 152 .nr ?I 1 153 .ev 2 154 .rs 155 .if t .@m 156 .if \\n(hm>0 \ 157 . sp |\\n(hmu 158 .if \\n($T=2 \\!. 159 .@t $h 160 .if \\n(tm<=0 \ 161 . nr tm \n(.Vu 162 .sp |\\n(tmu 163 .ev 164 .mk _k 165 .if \\n(?n .nm 1 166 .nr $c 1 167 .ie \\n(?s \ 168 \{\ 169 . rr ?s 170 . rs 171 ' @b 172 .\} 173 .el \ 174 . @n 175 .. 176 .de @m 177 .@O 0 178 .lt 7.5i 179 .tl '\(rn''\(rn' 180 .@O 181 .lt 182 .. 183 .de @n 184 .if \\n(bm<=0 \ 185 . nr bm \\n(.Vu 186 .if (\\n(_w<=\\n($l)&(\\n(?W=0) \ 187 \{\ 188 . nr _b (\\n(ppu*\\n($ru)/2u 189 . if \\n(_bu>((\\n(bmu-\\n(fmu-(\\n(tpu*\\n($ru))/2u) \ 190 . nr _b (\\n(ppu*\\n($ru)-\n(.Vu 191 . nr _b +\\n(bmu 192 .\} 193 .nr _B \\n(_bu 194 .ch @f 195 .wh -\\n(_bu @f 196 .nr ?f 0 197 .if \\n(?o \ 198 \{\ 199 . (f _ 200 . nf 201 . |o 202 . fi 203 . )f 204 . rm |o 205 .\} 206 .nr ?o 0 207 .if \\n(?T \ 208 \{\ 209 . nr _i \\n(.i 210 . in \\n($iu 211 . |h 212 . in \\n(_iu 213 . rr _i 214 . mk #T 215 . ns 216 .\} 217 .if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \ 218 \{\ 219 . nr ?a 0 220 . @k |t 221 . if \\n(?w \ 222 . mk _k 223 . nr ?w 0 224 .\} 225 .os 226 .$H 227 .ns 228 .. 229 .de @f 230 .ec 231 .if \\n(?T \ 232 \{\ 233 . nr T. 1 234 . T# 1 235 . br 236 .\} 237 .ev 2 238 .ce 0 239 .if \\n(?b \ 240 \{\ 241 . nr ?b 0 242 . @k |b 243 .\} 244 .if \\n(?f \ 245 . @o 246 .ie \\n($c<\\n($m \ 247 . @c 248 .el \ 249 . @e 250 .ev 251 .. 252 .de @o 253 .nf 254 .ls 1 255 .in 0 256 .wh -\\n(_Bu @r 257 .|f 258 .fi 259 .if \\n(?o \ 260 . di 261 . if \\n(dn=0 \ 262 \{\ 263 . rm |o 264 . nr ?o 0 265 . \} 266 . nr dn \\n(_D 267 . rr _D 268 .\} 269 .rm |f 270 .ch @r 271 .. 272 .de @c 273 .rs 274 .sp |\\n(_ku 275 .@O +\\n($lu+\\n($su 276 .nr $c +1 277 .@n 278 .. 279 .de @e 280 .@O \\n(_ou 281 .rs 282 .sp |\\n(.pu-\\n(fmu-(\\n(tpu*\\n($ru) 283 .@t $f 284 .nr ?h 0 285 .bp 286 .. 287 .de @t 288 .if !\\n(?h \ 289 \{\ 290 . sz \\n(tp 291 . @F \\n(tf 292 . lt \\n(_Lu 293 . nf 294 . \\$1 295 . br 296 .\} 297 .. 298 .de $h 299 .rm |z 300 .if !\\n(?c \ 301 \{\ 302 . if e .ds |z "\\*(|0 303 . if o .ds |z "\\*(|1 304 .\} 305 .if !\(ts\\*(|z\(ts\(ts \ 306 ' tl \\*(|z 307 .rm |z 308 .. 309 .de $f 310 .rm |z 311 .if \\n(?c \ 312 \{\ 313 . if e .ds |z "\\*(|0 314 . if o .ds |z "\\*(|1 315 .\} 316 .if \(ts\\*(|z\(ts\(ts \ 317 \{\ 318 . if e .ds |z "\\*(|2 319 . if o .ds |z "\\*(|3 320 .\} 321 .if !\(ts\\*(|z\(ts\(ts \ 322 ' tl \\*(|z 323 .rm |z 324 .. 325 .de @r 326 .di |o 327 .nr ?o 1 328 .nr _D \\n(dn 329 .ns 330 .. 331 .rn bp @b 332 .de bp 333 .nr $c \\n($m 334 .ie \\n(nl>0 \ 335 . @b \\$1 336 .el \ 337 \{\ 338 . if \\n(.$>0 \ 339 . pn \\$1 340 . if \\n(?I \ 341 . @h 342 .\} 343 .br 344 .wh 0 @h 345 .. 346 .rn ll xl 347 .de ll 348 .xl \\$1 349 .lt \\$1 350 .nr $l \\n(.l 351 .if (\\n($m<=1):(\\n($l>\\n(_L) \ 352 . nr _L \\n(.l 353 .. 354 .rn po @O 355 .de po 356 .@O \\$1 357 .nr _o \\n(.o 358 .. 359 .de hx 360 .nr ?H 1 361 .. 362 .de ix 363 'in \\$1 364 .. 365 .de bl 366 .br 367 .ne \\$1 368 .rs 369 .sp \\$1 370 .. 371 .de n1 372 .nm 1 373 .xl -\w'0000'u 374 .nr ?n 1 375 .. 376 .de n2 377 .nm \\$1 378 .ie \\n(.$ \ 379 . xl -\w'0000'u 380 .el \ 381 . xl \\n($lu 382 .. 383 .de pa 384 .bp \\$1 385 .. 386 .de ro 387 .af % i 388 .. 389 .de ar 390 .af % 1 391 .. 392 .de m1 393 .nr _0 \\n(hmu 394 .nr hm \\$1v 395 .nr tm +\\n(hmu-\\n(_0u 396 .rr _0 397 .. 398 .de m2 399 .nr tm \\n(hmu+\\n(tpp+\\$1v 400 .. 401 .de m3 402 .nr bm \\n(fmu+\\n(tpp+\\$1v 403 .. 404 .de m4 405 .nr _0 \\n(fmu 406 .nr fm \\$1v 407 .nr bm +\\n(fmu-\\n(_0u 408 .. 409 .de sk 410 .if \\n(.$>0 \ 411 . tm Line \\n(c. -- I cannot skip multiple pages 412 .nr ?s 1 413 .. 414 .de re 415 .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 416 .. 417 .if t .ig 418 .de re 419 .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 420 .. 421 .de ba 422 .ie \\n(.$ \ 423 . nr $i \\$1n 424 .el \ 425 . nr $i \\n(siu*\\n($0u 426 .. 427 .de hl 428 .br 429 \l'\\n(.lu-\\n(.iu' 430 .sp 431 .. 432 .de pp 433 .lp \\n(piu 434 .. 435 .de lp 436 .@p 437 .if \\n(.$ \ 438 . ti +\\$1 439 .nr $p 0 1 440 .. 441 .de ip 442 .if (\\n(ii>0)&(\\n(ii<1n) \ 443 . nr ii \\n(iin 444 .nr _0 \\n(ii 445 .if \\n(.$>1 \ 446 . nr _0 \\$2n 447 .@p \\n(_0u 448 .if \\w"\\$1" \ 449 \{\ 450 . ti -\\n(_0u 451 . ie \\w"\\$1">=\\n(_0 \ 452 \{\ 453 \&\\$1 454 . br 455 . \} 456 . el \&\\$1\h'|\\n(_0u'\c 457 .\} 458 .rr _0 459 .. 460 .de np 461 .nr $p +1 462 .ip (\\n($p) 463 .. 464 .de @p 465 .@I 466 .if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation 467 .in \\n($iu+\\n(pou 468 .if \\n(.$ \ 469 . in +\\$1n 470 .ce 0 471 .fi 472 .@F \\n(pf 473 .sz \\n(ppu 474 .sp \\n(psu 475 .ne \\n(.Lv+\\n(.Vu 476 .ns 477 .. 478 .de sh 479 .rn sh @T 480 .so \\*(||/sh.me 481 .sh "\\$1" "\\$2" \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 482 .rm @T 483 .. 484 .de $p 485 .if (\\n(si>0)&(\\n(.$>2) \ 486 . nr $i \\$3*\\n(si 487 .in \\n($iu 488 .ie !"\\$1\\$2"" \ 489 \{\ 490 . sp \\n(ssu 491 . 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(sou 496 . @F \\n(sf 497 . sz \\n(spu 498 . if \\$3>0 \ 499 . $\\$3 500 . if \w"\\$2">0 \\$2. 501 . if \w"\\$1">0 \\$1\f1\ \ \" 502 .\} 503 .el \ 504 . sp \\n(psu 505 .@F \\n(pf 506 .sz \\n(ppu 507 .. 508 .de uh 509 .rn uh @T 510 .so \\*(||/sh.me 511 .uh "\\$1" 512 .rm @T 513 .. 514 .de 2c 515 .br 516 .if \\n($m>1 \ 517 . 1c 518 .nr $c 1 519 .nr $m 2 520 .if \\n(.$>1 \ 521 . nr $m \\$2 522 .if \\n(.$>0 \ 523 . nr $s \\$1n 524 .nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m 525 .xl \\n($lu 526 .mk _k 527 .ns 528 .. 529 .de 1c 530 .br 531 .nr $c 1 532 .nr $m 1 533 .ll \\n(_Lu 534 .sp |\\n(.hu 535 .@O \\n(_ou 536 .. 537 .de bc 538 .sp 24i 539 .. 540 .de (z 541 .rn (z @V 542 .so \\*(||/float.me 543 .(z \\$1 \\$2 544 .rm @V 545 .. 546 .de )z 547 .tm Line \\n(c. -- unmatched .)z 548 .. 549 .de (t 550 .(z \\$1 \\$2 551 .. 552 .de )t 553 .)z \\$1 \\$2 554 .. 555 .de (b 556 .br 557 .@D 3 \\$1 \\$2 558 .sp \\n(bsu 559 .@( 560 .. 561 .de )b 562 .br 563 .@) 564 .if (\\n(bt=0):(\\n(.t<\\n(bt) \ 565 . ne \\n(dnu 566 .ls 1 567 .nf 568 .|k 569 .ec 570 .fi 571 .in 0 572 .xl \\n($lu 573 .ev 574 .rm |k 575 .sp \\n(bsu+\\n(.Lv-1v 576 .. 577 .de @( 578 .if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z 579 .@M 580 .di |k 581 \!'rs 582 .. 583 .de @M 584 .nr ?k 1 585 .@C 1 586 .@F \\n(df 587 .vs \\n(.su*\\n($Ru 588 .nf 589 .if "\\*(|p"F" \ 590 . fi 591 .if \\n(_d=4 \ 592 . in 0 593 .if \\n(_d=3 \ 594 \{\ 595 . in +\\n(biu 596 . xl -\\n(biu 597 .\} 598 .if \\n(_d=1 \ 599 . ce 10000 600 .. 601 .de @) 602 .br 603 .if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened 604 .nr ?k 0 605 .di 606 .in 0 607 .ce 0 608 .. 609 .de (c 610 .if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests 611 .di |c 612 .. 613 .de )c 614 .if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c 615 .br 616 .di 617 .ev 1 618 .ls 1 619 .in (\\n(.lu-\\n(.iu-\\n(dlu)/2u 620 .nf 621 .|c 622 .ec 623 .in 624 .ls 625 .ev 626 .rm |c 627 .. 628 .de (q 629 .br 630 .@C 1 631 .fi 632 .sp \\n(qsu 633 .in +\\n(qiu 634 .xl -\\n(qiu 635 .sz \\n(qp 636 .. 637 .de )q 638 .br 639 .ev 640 .sp \\n(qsu+\\n(.Lv-1v 641 .nr ?k 0 642 .. 643 .de (l 644 .br 645 .sp \\n(bsu 646 .@D 3 \\$1 \\$2 647 .@M 648 .. 649 .de )l 650 .br 651 .ev 652 .sp \\n(bsu+\\n(.Lv-1v 653 .nr ?k 0 654 .. 655 .de EQ 656 .rn EQ @T 657 .so \\*(||/eqn.me 658 .EQ \\$1 \\$2 659 .rm @T 660 .. 661 .de TS 662 .rn TS @W 663 .so \\*(||/tbl.me 664 .TS \\$1 \\$2 665 .rm @W 666 .. 667 .de sz 668 .ps \\$1 669 .vs \\n(.su*\\n($ru 670 .bd S B \\n(.su/3u 671 .. 672 .de r 673 .nr _F \\n(.f 674 .ul 0 675 .ft 1 676 .if \\n(.$ \&\\$1\f\\n(_F\\$2 677 .rr _F 678 .. 679 .de i 680 .nr _F \\n(.f 681 .ul 0 682 .ft 2 683 .if \\n(.$ \&\\$1\f\\n(_F\\$2 684 .rr _F 685 .. 686 .de b 687 .nr _F \\n(.f 688 .ul 0 689 .ie t \ 690 . ft 3 691 .el \ 692 . ul 10000 693 .if \\n(.$ \&\\$1\f\\n(_F\\$2 694 .if \\n(.$ \ 695 . ul 0 696 .rr _F 697 .. 698 .de rb 699 .nr _F \\n(.f 700 .ul 0 701 .ft 3 702 .if \\n(.$ \&\\$1\f\\n(_F\\$2 703 .rr _F 704 .. 705 .de u 706 \&\\$1\l'|0\(ul'\\$2 707 .. 708 .de q 709 \&\\*(lq\\$1\\*(rq\\$2 710 .. 711 .de bi 712 .ft 2 713 .ie t \&\k~\\$1\h'|\\n~u+(\\n(.su/3u)'\\$1\fP\\$2 714 .el \&\\$1\fP\\$2 715 .. 716 .de bx 717 .ie \\n($T \&\f2\\$1\fP\\$2 718 .el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2 719 .. 720 .de @F 721 .nr ~ \\$1 722 .if \\n~>0 \ 723 \{\ 724 . ul 0 725 . ie \\n~>4 \ 726 \{\ 727 . if n .ul 10000 728 . if t .ft 3 729 . \} 730 . el \ 731 . ft \\n~ 732 .\} 733 .rr ~ 734 .. 735 .de (f 736 .rn (f @U 737 .so \\*(||/footnote.me 738 .(f \\$1 \\$2 739 .rm @U 740 .. 741 .de )f 742 .tm Line \\n(c. -- unmatched .)f 743 .. 744 .de $s 745 \l'2i' 746 .if n \ 747 . sp 0.3 748 .. 749 .de (d 750 .rn (d @U 751 .so \\*(||/deltext.me 752 .(d \\$1 \\$2 753 .rm @U 754 .. 755 .de )d 756 .tm Line \\n(c. -- unmatched .)d 757 .. 758 .de (x 759 .rn (x @U 760 .so \\*(||/index.me 761 .(x \\$1 \\$2 762 .rm @U 763 .. 764 .de )x 765 .tm Line \\n(c. -- unmatched .)x 766 .. 767 .de th 768 .so \\*(||/thesis.me 769 .rm th 770 .. 771 .de +c 772 .ep 773 .if \\n(?o:\\n(?a \ 774 \{\ 775 . bp 776 . rs 777 . ep 778 .\} 779 .nr ?C 1 780 .nr $f 1 1 781 .ds * \\*[1\\*]\k* 782 .if \\n(?R \ 783 . pn 1 784 .bp 785 .in \\n($iu 786 .rs 787 .ie \\n(.$ \ 788 . $c "\\$1" 789 .el \ 790 . sp 3 791 .. 792 .de ++ 793 .nr _0 0 794 .if "\\$1"C" \ 795 . nr _0 1 796 .if "\\$1"RC" \ 797 . nr _0 11 798 .if "\\$1"A" \ 799 . nr _0 2 800 .if "\\$1"RA" \ 801 . nr _0 12 802 .if "\\$1"P" \ 803 . nr _0 3 804 .if "\\$1"B" \ 805 . nr _0 4 806 .if "\\$1"AB" \ 807 . nr _0 5 808 .if \\n(_0=0 \ 809 . tm Line \\n(c. -- Bad mode to .++ 810 .nr ?R 0 811 .if \\n(_0>10 \ 812 .\{ 813 . nr ?R 1 814 . nr _0 -10 815 .\} 816 .nr ch 0 1 817 .if (\\n(_0=3):(\\n(_0=5) \ 818 . pn 1 819 .ep 820 .if \\n(_0=1 \ 821 \{\ 822 . af ch 1 823 . af % 1 824 .\} 825 .if \\n(_0=2 \ 826 \{\ 827 . af ch A 828 . af % 1 829 .\} 830 .if \\n(_0=3 \ 831 . af % i 832 .if \\n(_0=4 \ 833 . af % 1 834 .if \\n(_0=5 \ 835 . af % 1 836 .if \\n(.$>1 \ 837 . he \\$2 838 .if !\\n(_0=\\n(_M .if \\n(_M=3 \ 839 . pn 1 840 .nr _M \\n(_0 841 .rr _0 842 .. 843 .de $c 844 .sz 12 845 .ft B 846 .ce 1000 847 .if \\n(_M<3 \ 848 . nr ch +1 849 .ie \\n(_M=1 CHAPTER\ \ \\n(ch 850 .el .if \\n(_M=2 APPENDIX\ \ \\n(ch 851 .if \w"\\$1" .sp 3-\\n(.L 852 .if \w"\\$1" \\$1 853 .if (\\n(_M<3):(\w"\\$1") \ 854 . sp 4-\\n(.L 855 .ce 0 856 .ft 857 .sz 858 .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 tp 864 .hx 865 .bp 866 .br 867 .rs 868 .pn \\n% 869 .. 870 .de ac 871 .rn ac @T 872 .so \\*(||/acm.me 873 .ac "\\$1" "\\$2" 874 .rm @T 875 .. 876 .de lo 877 .so \\*(||/local.me 878 .rm lo 879 .. 880 .if \n(mo=1 .ds mo January 881 .if \n(mo=2 .ds mo February 882 .if \n(mo=3 .ds mo March 883 .if \n(mo=4 .ds mo April 884 .if \n(mo=5 .ds mo May 885 .if \n(mo=6 .ds mo June 886 .if \n(mo=7 .ds mo July 887 .if \n(mo=8 .ds mo August 888 .if \n(mo=9 .ds mo September 889 .if \n(mo=10 .ds mo October 890 .if \n(mo=11 .ds mo November 891 .if \n(mo=12 .ds mo December 892 .if \n(dw=1 .ds dw Sunday 893 .if \n(dw=2 .ds dw Monday 894 .if \n(dw=3 .ds dw Tuesday 895 .if \n(dw=4 .ds dw Wednesday 896 .if \n(dw=5 .ds dw Thursday 897 .if \n(dw=6 .ds dw Friday 898 .if \n(dw=7 .ds dw Saturday 899 .ds td \*(mo \n(dy, 20\n(yr 900 .if (1m<0.1i)&(\nx!=0) \ 901 . vs 9p 902 .rr x 903 .nr $r \n(.v/\n(.s 904 .nr $R \n($r 905 .nr hm 4v 906 .nr tm 7v 907 .nr bm 6v 908 .nr fm 3v 909 .nr tf 3 910 .nr tp 10 911 .hy 14 912 .nr bi 4n 913 .nr pi 5n 914 .nr pf 1 915 .nr pp 10 916 .nr qi 4n 917 .nr qp -1 918 .nr ii 5n 919 .nr $m 1 920 .nr $s 4n 921 .ds || #9/tmac/me 922 .bd S B 3 923 .ds [ \u\x'-0.25v' 924 .ds ] \d 925 .ds < \d\x'0.25v' 926 .ds > \u 927 .ds - -- 928 .if t \ 929 \{\ 930 . ds [ \v'-0.4m'\x'-0.2m'\s-3 931 . ds ] \s0\v'0.4m' 932 . ds < \v'0.4m'\x'0.2m'\s-3 933 . ds > \s0\v'-0.4m' 934 . ds - \- 935 . nr fi 0.3i 936 .\} 937 .if n \ 938 \{\ 939 . nr fi 3n 940 .\} 941 .nr _o \n(.o 942 .if n .po 1i 943 .if \n(.V=1v \ 944 . nr $T 2 945 .if \n(.T=0 \ 946 . nr $T 1 947 .if t \ 948 \{\ 949 . nr $T 0 950 . po -0.5i 951 .\} 952 .if \nv \ 953 . po 1i 954 .if \n($T \ 955 \{\ 956 . if \n($T=1 \ 957 . po 0 958 . ds [ [ 959 . ds ] ] 960 . ds < < 961 . ds > > 962 .\} 963 .nr ps 0.5v 964 .if \n($T \ 965 . nr ps 1v 966 .if t .nr ps 0.35v 967 .nr bs \n(ps 968 .nr qs \n(ps 969 .nr zs 1v 970 .nr xs 0.2v 971 .nr fs 0.2v 972 .if \n($T \ 973 . nr fs 0 974 .if n .nr es 1v 975 .if t .nr es 0.5v 976 .wh 0 @h 977 .nr $l \n(.lu 978 .nr _L \n(.lu 979 .nr $c 1 980 .nr $f 1 1 981 .ds * \*[1\*]\k*\" 982 .nr $d 1 1 983 .ds # [1]\k#\" 984 .nr _M 1 985 .ds lq \&"\" 986 .ds rq \&"\" 987 .if t \ 988 . ds lq `` 989 .if t \ 990 . ds rq '' 991 .em @z 992 .de sc 993 .so \\*(||/chars.me 994 .rm sc 995 .. 996 .ll 6.0i 997 .lt 6.0i