1 13f7391e 2004-05-15 devnull . \"DS - display. If .DS C, center; L, left-adjust; I, indent.
5 13f7391e 2004-05-15 devnull .\\$1D \\$2 \\$1
7 13f7391e 2004-05-15 devnull .if !\\n(IF \{\
8 13f7391e 2004-05-15 devnull . ps \\n(PS
9 13f7391e 2004-05-15 devnull . ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
10 13f7391e 2004-05-15 devnull . ie \\n(VS>=41 .vs \\n(VSu
11 13f7391e 2004-05-15 devnull . el .vs \\n(VSp\}
22 13f7391e 2004-05-15 devnull .if t .in +0.5i
23 13f7391e 2004-05-15 devnull .if n .in +8
24 13f7391e 2004-05-15 devnull .if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu
25 13f7391e 2004-05-15 devnull .if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n
32 13f7391e 2004-05-15 devnull .nr OI \\n(.i
33 13f7391e 2004-05-15 devnull .sp \\n(DVu
35 13f7391e 2004-05-15 devnull .de BD \" block display: save everything, then center it.
39 13f7391e 2004-05-15 devnull .in \\n(OIu
42 13f7391e 2004-05-15 devnull . \"DE - display end
45 13f7391e 2004-05-15 devnull .if \\n(BD>0 .DF
47 13f7391e 2004-05-15 devnull .in \\n(OIu
49 13f7391e 2004-05-15 devnull .sp \\n(DVu
52 13f7391e 2004-05-15 devnull .de DF \" finish a block display to be recentered.
54 13f7391e 2004-05-15 devnull .if \\n(dl>\\n(BD .nr BD \\n(dl
55 13f7391e 2004-05-15 devnull .if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u
56 13f7391e 2004-05-15 devnull .nr EI \\n(.l-\\n(.i
57 13f7391e 2004-05-15 devnull .ta \\n(EIuR
60 13f7391e 2004-05-15 devnull .in \\n(OIu