| . \"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 |
| .. |
