\"DS - display. If .DS C, center; L, left-adjust; I, indent.
de DS
KS
nf
\\$1D \\$2 \\$1
ft 1
if !\\n(IF \{\
ps \\n(PS
ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n
ie \\n(VS>=41 .vs \\n(VSu
el .vs \\n(VSp\}
.
de D
ID \\$1
.
de CD
XD
ce 1000
.
de ID
XD
if t .in +0.5i
if n .in +8
if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu
if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n
.
de LD
XD
.
de XD
nf
nr OI \\n(.i
sp \\n(DVu
.
de BD \" block display: save everything, then center it.
XD
nr BD 1
nf
in \\n(OIu
di DD
.
\"DE - display end
de DE
ce 0
if \\n(BD>0 .DF
nr BD 0
in \\n(OIu
KE
sp \\n(DVu
fi
.
de DF \" finish a block display to be recentered.
di
if \\n(dl>\\n(BD .nr BD \\n(dl
if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u
nr EI \\n(.l-\\n(.i
ta \\n(EIuR
nf
DD
in \\n(OIu
.
