tmac/tmac.e

   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(_S
  33 .vs \\n(_V
  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 \{\
 261 .       di
 262 .       if \\n(dn=0 \
 263 \{\
 264 .               rm |o
 265 .               nr ?o 0
 266 .       \}
 267 .       nr dn \\n(_D
 268 .       rr _D
 269 .\}
 270 .rm |f
 271 .ch @r
 272 ..
 273 .de @c
 274 .rs
 275 .sp |\\n(_ku
 276 .@O +\\n($lu+\\n($su
 277 .nr $c +1
 278 .@n
 279 ..
 280 .de @e
 281 .@O \\n(_ou
 282 .rs
 283 .sp |\\n(.pu-\\n(fmu-(\\n(tpu*\\n($ru)
 284 .@t $f
 285 .nr ?h 0
 286 .bp
 287 ..
 288 .de @t
 289 .if !\\n(?h \
 290 \{\
 291 .       sz \\n(tp
 292 .       @F \\n(tf
 293 .       lt \\n(_Lu
 294 .       nf
 295 .       \\$1
 296 .       br
 297 .\}
 298 ..
 299 .de $h
 300 .rm |z
 301 .if !\\n(?c \
 302 \{\
 303 .       if e .ds |z "\\*(|0
 304 .       if o .ds |z "\\*(|1
 305 .\}
 306 .if !\(ts\\*(|z\(ts\(ts \
 307 '       tl \\*(|z
 308 .rm |z
 309 ..
 310 .de $f
 311 .rm |z
 312 .if \\n(?c \
 313 \{\
 314 .       if e .ds |z "\\*(|0
 315 .       if o .ds |z "\\*(|1
 316 .\}
 317 .if \(ts\\*(|z\(ts\(ts \
 318 \{\
 319 .       if e .ds |z "\\*(|2
 320 .       if o .ds |z "\\*(|3
 321 .\}
 322 .if !\(ts\\*(|z\(ts\(ts \
 323 '       tl \\*(|z
 324 .rm |z
 325 ..
 326 .de @r
 327 .di |o
 328 .nr ?o 1
 329 .nr _D \\n(dn
 330 .ns
 331 ..
 332 .rn bp @b
 333 .de bp
 334 .nr $c \\n($m
 335 .ie \\n(nl>0 \
 336 .       @b \\$1
 337 .el \
 338 \{\
 339 .       if \\n(.$>0 \
 340 .               pn \\$1
 341 .       if \\n(?I \
 342 .               @h
 343 .\}
 344 .br
 345 .wh 0 @h
 346 ..
 347 .rn ll xl
 348 .de ll
 349 .xl \\$1
 350 .lt \\$1
 351 .nr $l \\n(.l
 352 .if (\\n($m<=1):(\\n($l>\\n(_L) \
 353 .       nr _L \\n(.l
 354 ..
 355 .rn po @O
 356 .de po
 357 .@O \\$1
 358 .nr _o \\n(.o
 359 ..
 360 .de hx
 361 .nr ?H 1
 362 ..
 363 .de ix
 364 'in \\$1
 365 ..
 366 .de bl
 367 .br
 368 .ne \\$1
 369 .rs
 370 .sp \\$1
 371 ..
 372 .de n1
 373 .nm 1
 374 .xl -\w'0000'u
 375 .nr ?n 1
 376 ..
 377 .de n2
 378 .nm \\$1
 379 .ie \\n(.$ \
 380 .       xl -\w'0000'u
 381 .el \
 382 .       xl \\n($lu
 383 ..
 384 .de pa
 385 .bp \\$1
 386 ..
 387 .de ro
 388 .af % i
 389 ..
 390 .de ar
 391 .af % 1
 392 ..
 393 .de m1
 394 .nr _0 \\n(hmu
 395 .nr hm \\$1v
 396 .nr tm +\\n(hmu-\\n(_0u
 397 .rr _0
 398 ..
 399 .de m2
 400 .nr tm \\n(hmu+\\n(tpp+\\$1v
 401 ..
 402 .de m3
 403 .nr bm \\n(fmu+\\n(tpp+\\$1v
 404 ..
 405 .de m4
 406 .nr _0 \\n(fmu
 407 .nr fm \\$1v
 408 .nr bm +\\n(fmu-\\n(_0u
 409 ..
 410 .de sk
 411 .if \\n(.$>0 \
 412 .       tm Line \\n(.c -- I cannot skip multiple pages
 413 .nr ?s 1
 414 ..
 415 .de re
 416 .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
 417 ..
 418 .if t .ig
 419 .de re
 420 .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
 421 ..
 422 .de ba
 423 .ie \\n(.$ \
 424 .       nr $i \\$1n
 425 .el \
 426 .       nr $i \\n(siu*\\n($0u
 427 ..
 428 .de hl
 429 .br
 430 \l'\\n(.lu-\\n(.iu'
 431 .sp
 432 ..
 433 .de pp
 434 .lp \\n(piu
 435 ..
 436 .de lp
 437 .@p
 438 .if \\n(.$ \
 439 .       ti +\\$1
 440 .nr $p 0 1
 441 ..
 442 .de ip
 443 .if (\\n(ii>0)&(\\n(ii<1n) \
 444 .       nr ii \\n(iin
 445 .nr _0 \\n(ii
 446 .if \\n(.$>1 \
 447 .       nr _0 \\$2n
 448 .@p \\n(_0u
 449 .if \\w"\\$1" \
 450 \{\
 451 .       ti -\\n(_0u
 452 .       ie \\w"\\$1">=\\n(_0 \
 453 \{\
 454 \&\\$1
 455 .               br
 456 .       \}
 457 .       el \&\\$1\h'|\\n(_0u'\c
 458 .\}
 459 .rr _0
 460 ..
 461 .de np
 462 .nr $p +1
 463 .ip (\\n($p)
 464 ..
 465 .de @p
 466 .@I
 467 .if "\\n(.z"|e" .tm Line \\n(.c -- Unmatched continued equation
 468 .in \\n($iu+\\n(pou
 469 .if \\n(.$ \
 470 .       in +\\$1n
 471 .ce 0
 472 .fi
 473 .@F \\n(pf
 474 .sz \\n(pp
 475 .sp \\n(psu
 476 .ne \\n(.Lv+\\n(.Vu
 477 .ns
 478 ..
 479 .de sh
 480 .rn sh @T
 481 .so \\*(||/sh.me
 482 .sh "\\$1" "\\$2" \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
 483 .rm @T
 484 ..
 485 .de $p
 486 .if (\\n(si>0)&(\\n(.$>2) \
 487 .       nr $i \\$3*\\n(si
 488 .in \\n($iu
 489 .ie !"\\$1\\$2"" \
 490 \{\
 491 .       sp \\n(ssu
 492 .       ne \\n(.Lv+\\n(.Vu+\\n(psu+(\\n(spu*\\n($ru*\\n(.Lu)
 493 .       ie \\n(.$>2 \
 494 .               ti -(\\n(siu-\\n(sou)
 495 .       el \
 496 .               ti +\\n(sou
 497 .       @F \\n(sf
 498 .       sz \\n(sp
 499 .       if \\$3>0 \
 500 .               $\\$3
 501 .       if \w"\\$2">0 \\$2.
 502 .       if \w"\\$1">0 \\$1\f1\ \  \"
 503 .\}
 504 .el \
 505 .       sp \\n(psu
 506 .@F \\n(pf
 507 .sz \\n(pp
 508 ..
 509 .de uh
 510 .rn uh @T
 511 .so \\*(||/sh.me
 512 .uh "\\$1"
 513 .rm @T
 514 ..
 515 .de 2c
 516 .br
 517 .if \\n($m>1 \
 518 .       1c
 519 .nr $c 1
 520 .nr $m 2
 521 .if \\n(.$>1 \
 522 .       nr $m \\$2
 523 .if \\n(.$>0 \
 524 .       nr $s \\$1n
 525 .nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
 526 .xl \\n($lu
 527 .mk _k
 528 .ns
 529 ..
 530 .de 1c
 531 .br
 532 .nr $c 1
 533 .nr $m 1
 534 .ll \\n(_Lu
 535 .sp |\\n(.hu
 536 .@O \\n(_ou
 537 ..
 538 .de bc
 539 .sp 24i
 540 ..
 541 .de (z
 542 .rn (z @V
 543 .so \\*(||/float.me
 544 .(z \\$1 \\$2
 545 .rm @V
 546 ..
 547 .de )z
 548 .tm Line \\n(.c -- unmatched .)z
 549 ..
 550 .de (t
 551 .(z \\$1 \\$2
 552 ..
 553 .de )t
 554 .)z \\$1 \\$2
 555 ..
 556 .de (b
 557 .br
 558 .@D 3 \\$1 \\$2
 559 .sp \\n(bsu
 560 .@(
 561 ..
 562 .de )b
 563 .br
 564 .@)
 565 .if (\\n(bt=0):(\\n(.t<\\n(bt) \
 566 .       ne \\n(dnu
 567 .ls 1
 568 .nf
 569 .|k
 570 .ec
 571 .fi
 572 .in 0
 573 .xl \\n($lu
 574 .ev
 575 .rm |k
 576 .sp \\n(bsu+\\n(.Lv-1v
 577 ..
 578 .de @(
 579 .if !"\\n(.z"" .tm Line \\n(.c -- Illegal nested keep \\n(.z
 580 .@M
 581 .di |k
 582 \!'rs
 583 ..
 584 .de @M
 585 .nr ?k 1
 586 .@C 1
 587 .@F \\n(df
 588 .vs \\n(.su*\\n($Ru
 589 .nf
 590 .if "\\*(|p"F" \
 591 .       fi
 592 .if \\n(_d=4 \
 593 .       in 0
 594 .if \\n(_d=3 \
 595 \{\
 596 .       in +\\n(biu
 597 .       xl -\\n(biu
 598 .\}
 599 .if \\n(_d=1 \
 600 .       ce 10000
 601 ..
 602 .de @)
 603 .br
 604 .if !"\\n(.z"|k" .tm Line \\n(.c -- Close of a keep which has never been opened
 605 .nr ?k 0
 606 .di
 607 .in 0
 608 .ce 0
 609 ..
 610 .de (c
 611 .if "\\n(.z"|c" .tm Line \\n(.c -- Nested .(c requests
 612 .di |c
 613 ..
 614 .de )c
 615 .if !"\\n(.z"|c" .tm Line \\n(.c -- Unmatched .)c
 616 .br
 617 .di
 618 .ev 1
 619 .ls 1
 620 .in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
 621 .nf
 622 .|c
 623 .ec
 624 .in
 625 .ls
 626 .ev
 627 .rm |c
 628 ..
 629 .de (q
 630 .br
 631 .@C 1
 632 .fi
 633 .sp \\n(qsu
 634 .in +\\n(qiu
 635 .xl -\\n(qiu
 636 .sz \\n(qp
 637 ..
 638 .de )q
 639 .br
 640 .ev
 641 .sp \\n(qsu+\\n(.Lv-1v
 642 .nr ?k 0
 643 ..
 644 .de (l
 645 .br
 646 .sp \\n(bsu
 647 .@D 3 \\$1 \\$2
 648 .@M
 649 ..
 650 .de )l
 651 .br
 652 .ev
 653 .sp \\n(bsu+\\n(.Lv-1v
 654 .nr ?k 0
 655 ..
 656 .de EQ
 657 .rn EQ @T
 658 .so \\*(||/eqn.me
 659 .EQ \\$1 \\$2
 660 .rm @T
 661 ..
 662 .de TS
 663 .rn TS @W
 664 .so \\*(||/tbl.me
 665 .TS \\$1 \\$2
 666 .rm @W
 667 ..
 668 .de sz
 669 .ps \\$1
 670 .vs \\n(.su*\\n($ru
 671 .bd S B \\n(.su/3u
 672 ..
 673 .de r
 674 .nr _F \\n(.f
 675 .ul 0
 676 .ft 1
 677 .if \\n(.$ \&\\$1\f\\n(_F\\$2
 678 .rr _F
 679 ..
 680 .de i
 681 .nr _F \\n(.f
 682 .ul 0
 683 .ft 2
 684 .if \\n(.$ \&\\$1\f\\n(_F\\$2
 685 .rr _F
 686 ..
 687 .de b
 688 .nr _F \\n(.f
 689 .ul 0
 690 .ie t \
 691 .       ft 3
 692 .el \
 693 .       ul 10000
 694 .if \\n(.$ \&\\$1\f\\n(_F\\$2
 695 .if \\n(.$ \
 696 .       ul 0
 697 .rr _F
 698 ..
 699 .de rb
 700 .nr _F \\n(.f
 701 .ul 0
 702 .ft 3
 703 .if \\n(.$ \&\\$1\f\\n(_F\\$2
 704 .rr _F
 705 ..
 706 .de u
 707 \&\\$1\l'|0\(ul'\\$2
 708 ..
 709 .de q
 710 \&\\*(lq\\$1\\*(rq\\$2
 711 ..
 712 .de bi
 713 .ft 2
 714 .ie t \&\k~\\$1\h'|\\n~u+(\\n(.su/3u)'\\$1\fP\\$2
 715 .el \&\\$1\fP\\$2
 716 ..
 717 .de bx
 718 .ie \\n($T \&\f2\\$1\fP\\$2
 719 .el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
 720 ..
 721 .de @F
 722 .nr ~ \\$1
 723 .if \\n~>0 \
 724 \{\
 725 .       ul 0
 726 .       ie \\n~>4 \
 727 \{\
 728 .               if n .ul 10000
 729 .               if t .ft 3
 730 .       \}
 731 .       el \
 732 .               ft \\n~
 733 .\}
 734 .rr ~
 735 ..
 736 .de (f
 737 .rn (f @U
 738 .so \\*(||/footnote.me
 739 .(f \\$1 \\$2
 740 .rm @U
 741 ..
 742 .de )f
 743 .tm Line \\n(.c -- unmatched .)f
 744 ..
 745 .de $s
 746 \l'2i'
 747 .if n \
 748 .       sp 0.3
 749 ..
 750 .de (d
 751 .rn (d @U
 752 .so \\*(||/deltext.me
 753 .(d \\$1 \\$2
 754 .rm @U
 755 ..
 756 .de )d
 757 .tm Line \\n(.c -- unmatched .)d
 758 ..
 759 .de (x
 760 .rn (x @U
 761 .so \\*(||/index.me
 762 .(x \\$1 \\$2
 763 .rm @U
 764 ..
 765 .de )x
 766 .tm Line \\n(.c -- unmatched .)x
 767 ..
 768 .de th
 769 .so \\*(||/thesis.me
 770 .rm th
 771 ..
 772 .de +c
 773 .ep
 774 .if \\n(?o:\\n(?a \
 775 \{\
 776 .       bp
 777 .       rs
 778 .       ep
 779 .\}
 780 .nr ?C 1
 781 .nr $f 1 1
 782 .ds * \\*[1\\*]\k*
 783 .if \\n(?R \
 784 .       pn 1
 785 .bp
 786 .in \\n($iu
 787 .rs
 788 .ie \\n(.$ \
 789 .       $c "\\$1"
 790 .el \
 791 .       sp 3
 792 ..
 793 .de ++
 794 .nr _0 0
 795 .if "\\$1"C" \
 796 .       nr _0 1
 797 .if "\\$1"RC" \
 798 .       nr _0 11
 799 .if "\\$1"A" \
 800 .       nr _0 2
 801 .if "\\$1"RA" \
 802 .       nr _0 12
 803 .if "\\$1"P" \
 804 .       nr _0 3
 805 .if "\\$1"B" \
 806 .       nr _0 4
 807 .if "\\$1"AB" \
 808 .       nr _0 5
 809 .if \\n(_0=0 \
 810 .       tm Line \\n(.c -- Bad mode to .++
 811 .nr ?R 0
 812 .if \\n(_0>10 \
 813 .\{
 814 .       nr ?R 1
 815 .       nr _0 -10
 816 .\}
 817 .nr ch 0 1
 818 .if (\\n(_0=3):(\\n(_0=5) \
 819 .       pn 1
 820 .ep
 821 .if \\n(_0=1 \
 822 \{\
 823 .       af ch 1
 824 .       af % 1
 825 .\}
 826 .if \\n(_0=2 \
 827 \{\
 828 .       af ch A
 829 .       af % 1
 830 .\}
 831 .if \\n(_0=3 \
 832 .       af % i
 833 .if \\n(_0=4 \
 834 .       af % 1
 835 .if \\n(_0=5 \
 836 .       af % 1
 837 .if \\n(.$>1 \
 838 .       he \\$2
 839 .if !\\n(_0=\\n(_M .if \\n(_M=3 \
 840 .       pn 1
 841 .nr _M \\n(_0
 842 .rr _0
 843 ..
 844 .de $c
 845 .sz 12
 846 .ft B
 847 .ce 1000
 848 .if \\n(_M<3 \
 849 .       nr ch +1
 850 .ie \\n(_M=1 CHAPTER\ \ \\n(ch
 851 .el .if \\n(_M=2 APPENDIX\ \ \\n(ch
 852 .if \w"\\$1" .sp 3-\\n(.L
 853 .if \w"\\$1" \\$1
 854 .if (\\n(_M<3):(\w"\\$1") \
 855 .       sp 4-\\n(.L
 856 .ce 0
 857 .ft
 858 .sz
 859 .ie \\n(_M=1 \
 860 .       $C Chapter \\n(ch "\\$1"
 861 .el .if \\n(_M=2 \
 862 .       $C Appendix \\n(ch "\\$1"
 863 ..
 864 .de tp
 865 .hx
 866 .bp
 867 .br
 868 .rs
 869 .pn \\n%
 870 ..
 871 .de ac
 872 .rn ac @T
 873 .so \\*(||/acm.me
 874 .ac "\\$1" "\\$2"
 875 .rm @T
 876 ..
 877 .de lo
 878 .so \\*(||/local.me
 879 .rm lo
 880 ..
 881 .if \n(mo=1 .ds mo January
 882 .if \n(mo=2 .ds mo February
 883 .if \n(mo=3 .ds mo March
 884 .if \n(mo=4 .ds mo April
 885 .if \n(mo=5 .ds mo May
 886 .if \n(mo=6 .ds mo June
 887 .if \n(mo=7 .ds mo July
 888 .if \n(mo=8 .ds mo August
 889 .if \n(mo=9 .ds mo September
 890 .if \n(mo=10 .ds mo October
 891 .if \n(mo=11 .ds mo November
 892 .if \n(mo=12 .ds mo December
 893 .if \n(dw=1 .ds dw Sunday
 894 .if \n(dw=2 .ds dw Monday
 895 .if \n(dw=3 .ds dw Tuesday
 896 .if \n(dw=4 .ds dw Wednesday
 897 .if \n(dw=5 .ds dw Thursday
 898 .if \n(dw=6 .ds dw Friday
 899 .if \n(dw=7 .ds dw Saturday
 900 .ds td \*(mo \n(dy, 20\n(yr
 901 .if (1m<0.1i)&(\nx!=0) \
 902 .       vs 9p
 903 .rr x
 904 .nr $r \n(.v/\n(.s
 905 .nr $R \n($r
 906 .nr hm 4v
 907 .nr tm 7v
 908 .nr bm 6v
 909 .nr fm 3v
 910 .nr tf 3
 911 .nr tp 10
 912 .hy 14
 913 .nr bi 4n
 914 .nr pi 5n
 915 .nr pf 1
 916 .nr pp 10
 917 .nr qi 4n
 918 .nr qp -1
 919 .nr ii 5n
 920 .nr $m 1
 921 .nr $s 4n
 922 .ds || \n(.D/me
 923 .bd S B 3
 924 .ds [ \u\x'-0.25v'
 925 .ds ] \d
 926 .ds < \d\x'0.25v'
 927 .ds > \u
 928 .ds - --
 929 .if t \
 930 \{\
 931 .       ds [ \v'-0.4m'\x'-0.2m'\s-3
 932 .       ds ] \s0\v'0.4m'
 933 .       ds < \v'0.4m'\x'0.2m'\s-3
 934 .       ds > \s0\v'-0.4m'
 935 .       ds - \-
 936 .       nr fi 0.3i
 937 .\}
 938 .if n \
 939 \{\
 940 .       nr fi 3n
 941 .\}
 942 .nr _o \n(.o
 943 .if n .po 1i
 944 .if \n(.V=1v \
 945 .       nr $T 2
 946 .if \n(.T=0 \
 947 .       nr $T 1
 948 .if t \
 949 \{\
 950 .       nr $T 0
 951 .       po -0.5i
 952 .\}
 953 .if \nv \
 954 .       po 1i
 955 .if \n($T \
 956 \{\
 957 .       if \n($T=1 \
 958 .               po 0
 959 .       ds [ [
 960 .       ds ] ]
 961 .       ds < <
 962 .       ds > >
 963 .\}
 964 .nr ps 0.5v
 965 .if \n($T \
 966 .       nr ps 1v
 967 .if t .nr ps 0.35v
 968 .nr bs \n(ps
 969 .nr qs \n(ps
 970 .nr zs 1v
 971 .nr xs 0.2v
 972 .nr fs 0.2v
 973 .if \n($T \
 974 .       nr fs 0
 975 .if n .nr es 1v
 976 .if t .nr es 0.5v
 977 .wh 0 @h
 978 .nr $l \n(.lu
 979 .nr _L \n(.lu
 980 .nr $c 1
 981 .nr $f 1 1
 982 .ds * \*[1\*]\k*\"
 983 .nr $d 1 1
 984 .ds # [1]\k#\"
 985 .nr _M 1
 986 .ds lq \&"\"
 987 .ds rq \&"\"
 988 .if t \
 989 .       ds lq ``
 990 .if t \
 991 .       ds rq ''
 992 .em @z
 993 .de sc
 994 .so \\*(||/chars.me
 995 .rm sc
 996 ..
 997 .ll 6.0i
 998 .lt 6.0i