Interdata732/usr/lib/tmac.n

.nh
.pl 66
.ll 64
.lt \n(.lu
.nr xi 0\" in-out value
.nr n 0 1\" level of section
.nr l 0 1\" level of indent
.nr s\nn 0\" level zero inc indent for section
.nr i\nl 0\" level zero indent
.nr o\nl 0\" level zero outdent
.nr w 0\" .sp indicator for levels
.de BP\" $1 - .in +$1, $2 - .ti -$2
.br
.if \\nw .sp 1
.nr w 1
.if \\n(.n\" .sp 1
.ne 6
.nr zi \\n(i\\nl
.nr l \\n+l
.nr t\\nl \\$2
.nr i\\nl \\n(zi+\\$1
.nr o\\nl \\n(zi+\\$1-\\$2
.ta \\n(t\\nl
.in \\n(i\\nl
.ti \\n(o\\nl
..
.de NP\" reset indent, tab, and temp indent
.br
.ne 6
.if \\nw .sp 1
.nr w 1
.if \\n(.n\" .sp 1
.ta \\n(t\\nl
.in \\n(i\\nl
.ti \\n(o\\nl
..
.de EP\" pop indent level
.br
.if \\nw .sp 1
.nr w 0
.if \\n(.n\" .sp 1
.if \\nl .in \\n(i\\n-l
.if !\\nl .ta 8 16 24 32 40 48 56 64 72 80 88 96
..
.de IN\" $1 - the increment if given
.br
.if \\nw .sp 1
.nr w 1
.if \\n(.n\" .sp 1
.ne 6
.nr xi 7m
.if \\$1 .nr xi \\$1m
.in \\n(.iu+\\n(xiu
.ta 8 16 24 32 40 48 56 64 72 80 88 96
.nf
..
.de OT\" restore to previous indent
.br
.if \\nw .sp 1
.nr w 0
.if \\n(.n\" .sp 1
.in \\n(.iu-\\n(xiu
.fi
..
.de PA\" paragraph
.br
.if \\nw .sp 1
.nr w 1
.if \\n(.n\" .sp 1
.ne 6
..
.de NS\"new section. $1=inc indent $2=section no if given
.br
.if \\nw .sp 1
.nr w 1
.if \\n(.n\" .sp 1
.ne 6
.nr n \\n+n
.nr s\\nn \\$1
.in +\\n(s\\nn
.nr zi \\n(i\\nl
.nr i\\nl \\n(zi+\\n(s\\nn
\\$2
'cu 1
..
.de ES\" end section and pop back things
.br
.if \\nw .sp 1
.nr w 0
.if \\n(.n\" .sp 1
.nr zi \\n(i\\nl
.nr i\\nl \\n(zi-\\n(s\\nn
.in -\\n(s\\nn
.nr n \\n-n
..
.de UL\" lynnies choice
.ul 1
..
.de FO\" foot title macro
.de x1
'sp 2
'ie '\\$2'date' 'tl '\\$1'- % -'\\n(dy/\\n(mo/\\n(yr'
'el 'tl '\\$1'- % -'\\$2'
'bp
\\..
.wh -5 x1
..
.de HE\" header title macro
.de x2
'sp 2
'tl '\\$1'\\$2'\\$3'
'sp 2
\\..
.wh 0 x2
..
.de AR\" make page nos arabic - no leading zeros
.nr % 1
.af % 1
..
.de BR\" make page nos big roman eg I, IV, XLM
.nr % 1
.af % I
..
.de LR\" make page nos little roman eg i, iv, xlm
.nr % 1
.af % i
..