|
|
1.1 ! root 1: . \"DS - display. If .DS C, center; L, left-adjust; I, indent. ! 2: .de DS ! 3: .KS ! 4: .nf ! 5: .\\$1D \\$2 \\$1 ! 6: .ft 1 ! 7: .ps \\n(PS ! 8: .if \\n(VS>40 .vs \\n(VSu ! 9: .if \\n(VS<=39 .vs \\n(VSp ! 10: .. ! 11: .de D ! 12: .ID \\$1 ! 13: .. ! 14: .de CD ! 15: .XD ! 16: .ce 1000 ! 17: .. ! 18: .de ID ! 19: .XD ! 20: .if t .in +0.5i ! 21: .if n .in +8 ! 22: .if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in \\n(OIu ! 23: .if \\n(.$ .if !"\\$1"I" .if !"\\$1"" .in +\\$1n ! 24: .. ! 25: .de LD ! 26: .XD ! 27: .. ! 28: .de XD ! 29: .nf ! 30: .nr OI \\n(.i ! 31: .sp \\n(DVu ! 32: .. ! 33: .de BD \" block display: save everything, then center it. ! 34: .XD ! 35: .nr BD 1 ! 36: .nf ! 37: .in \\n(OIu ! 38: .di DD ! 39: .. ! 40: . \"DE - display end ! 41: .de DE ! 42: .ce 0 ! 43: .if \\n(BD>0 .DF ! 44: .nr BD 0 ! 45: .in \\n(OIu ! 46: .KE ! 47: .sp \\n(DVu ! 48: .fi ! 49: .. ! 50: .de DF \" finish a block display to be recentered. ! 51: .di ! 52: .if \\n(dl>\\n(BD .nr BD \\n(dl ! 53: .if \\n(BD<\\n(.l .in (\\n(.lu-\\n(BDu)/2u ! 54: .nr EI \\n(.l-\\n(.i ! 55: .ta \\n(EIuR ! 56: .nf ! 57: .DD ! 58: .in \\n(OIu ! 59: ..
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.