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