Blob
1 . \"DS - display. If .DS C, center; L, left-adjust; I, indent.2 .de DS3 .KS4 .nf5 .\\$1D \\$2 \\$16 .ft 17 .if !\\n(IF \{\8 . ps \\n(PS9 . ta 5n 10n 15n 20n 25n 30n 35n 40n 45n 50n 55n 60n 65n 70n 75n 80n10 . ie \\n(VS>=41 .vs \\n(VSu11 . el .vs \\n(VSp\}12 ..13 .de D14 .ID \\$115 ..16 .de CD17 .XD18 .ce 100019 ..20 .de ID21 .XD22 .if t .in +0.5i23 .if n .in +824 .if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu25 .if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n26 ..27 .de LD28 .XD29 ..30 .de XD31 .nf32 .nr OI \\n(.i33 .sp \\n(DVu34 ..35 .de BD \" block display: save everything, then center it.36 .XD37 .nr BD 138 .nf39 .in \\n(OIu40 .di DD41 ..42 . \"DE - display end43 .de DE44 .ce 045 .if \\n(BD>0 .DF46 .nr BD 047 .in \\n(OIu48 .KE49 .sp \\n(DVu50 .fi51 ..52 .de DF \" finish a block display to be recentered.53 .di54 .if \\n(dl>\\n(BD .nr BD \\n(dl55 .if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u56 .nr EI \\n(.l-\\n(.i57 .ta \\n(EIuR58 .nf59 .DD60 .in \\n(OIu61 ..