aboutsummaryrefslogtreecommitdiff
path: root/tmac/tmac.e
diff options
context:
space:
mode:
Diffstat (limited to 'tmac/tmac.e')
-rw-r--r--tmac/tmac.e997
1 files changed, 997 insertions, 0 deletions
diff --git a/tmac/tmac.e b/tmac/tmac.e
new file mode 100644
index 00000000..a274c774
--- /dev/null
+++ b/tmac/tmac.e
@@ -0,0 +1,997 @@
+.nr _0 \n(.c
+.\"**********************************************************************
+.\"* *
+.\"* ****** - M E N R O F F / T R O F F M A C R O S ****** *
+.\"* *
+.\"* Produced for your edification and enjoyment by: *
+.\"* Eric Allman *
+.\"* Electronics Research Laboratory *
+.\"* U.C. Berkeley. *
+.\"* *
+.\"* VERSION 2.9 First Release: 11 Sept 1978 *
+.\"* See file \*(||/revisions for revision history *
+.\"* *
+.\"* Documentation is available. *
+.\"* *
+.\"**********************************************************************
+.\"
+.\" @(#)tmac.e 2.9 12/10/80
+.\" This version has had comments stripped; an unstripped version is available.
+.if !\n(.V .tm You are using the wrong version of NROFF/TROFF!!
+.if !\n(.V .tm This macro package works only on the version seven
+.if !\n(.V .tm release of NROFF and TROFF.
+.if !\n(.V .ex
+.if \n(pf \
+. nx \*(||/null.me
+.de @C
+.nr _S \\n(.s
+.nr _V \\n(.v
+.nr _F \\n(.f
+.nr _I \\n(.i
+.ev \\$1
+.ps \\n(_Su
+.vs \\n(_Vu
+.ft \\n(_F
+'in \\n(_Iu
+.xl \\n($lu
+.lt \\n($lu
+.rr _S
+.rr _V
+.rr _F
+.rr _I
+.ls 1
+'ce 0
+..
+.de @D
+.ds |p "\\$3
+.nr _d \\$1
+.ie "\\$2"C" \
+. nr _d 1
+.el .ie "\\$2"L" \
+. nr _d 2
+.el .ie "\\$2"I" \
+. nr _d 3
+.el .ie "\\$2"M" \
+. nr _d 4
+.el \
+. ds |p "\\$2
+..
+.de @z
+.if !"\\n(.z"" \
+\{\
+. tm Line \\n(c. -- Unclosed block, footnote, or other diversion (\\n(.z)
+. di
+. ex
+.\}
+.if \\n(?a \
+. bp
+.rm bp
+.rm @b
+.if t \
+. wh -1p @m
+.br
+..
+.de @I
+.rm th
+.rm ac
+.rm lo
+.rm sc
+.rm @I
+..
+.de he
+.ie !\\n(.$ \
+\{\
+. rm |4
+. rm |5
+.\}
+.el \
+\{\
+. ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+. ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+.\}
+..
+.de eh
+.ie !\\n(.$ \
+. rm |4
+.el \
+. ds |4 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de oh
+.ie !\\n(.$ \
+. rm |5
+.el \
+. ds |5 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de fo
+.ie !\\n(.$ \
+\{\
+. rm |6
+. rm |7
+.\}
+.el \
+\{\
+. ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+. ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+.\}
+..
+.de ef
+.ie !\\n(.$ \
+. rm |6
+.el \
+. ds |6 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de of
+.ie !\\n(.$ \
+. rm |7
+.el \
+. ds |7 "\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
+..
+.de ep
+.if \\n(nl>0 \
+\{\
+. wh 0
+. rs
+. @b
+.\}
+..
+.de @h
+.if (\\n(.i+\\n(.o)>=\\n(.l \
+. tm Line \\n(c. -- Offset + indent exceeds line length
+.if t .if (\\n(.l+\\n(.o)>7.75i \
+. tm Line \\n(c. -- Offset + line length exceeds paper width
+.nr ?h \\n(?H
+.rr ?H
+.nr ?c \\n(?C
+.rr ?C
+.rn |4 |0
+.rn |5 |1
+.rn |6 |2
+.rn |7 |3
+.nr _w 0
+.nr ?W 0
+.nr ?I 1
+.ev 2
+.rs
+.if t .@m
+.if \\n(hm>0 \
+. sp |\\n(hmu
+.if \\n($T=2 \\!.
+.@t $h
+.if \\n(tm<=0 \
+. nr tm \n(.Vu
+.sp |\\n(tmu
+.ev
+.mk _k
+.if \\n(?n .nm 1
+.nr $c 1
+.ie \\n(?s \
+\{\
+. rr ?s
+. rs
+' @b
+.\}
+.el \
+. @n
+..
+.de @m
+.@O 0
+.lt 7.5i
+.tl '\(rn''\(rn'
+.@O
+.lt
+..
+.de @n
+.if \\n(bm<=0 \
+. nr bm \\n(.Vu
+.if (\\n(_w<=\\n($l)&(\\n(?W=0) \
+\{\
+. nr _b (\\n(ppu*\\n($ru)/2u
+. if \\n(_bu>((\\n(bmu-\\n(fmu-(\\n(tpu*\\n($ru))/2u) \
+. nr _b (\\n(ppu*\\n($ru)-\n(.Vu
+. nr _b +\\n(bmu
+.\}
+.nr _B \\n(_bu
+.ch @f
+.wh -\\n(_bu @f
+.nr ?f 0
+.if \\n(?o \
+\{\
+. (f _
+. nf
+. |o
+. fi
+. )f
+. rm |o
+.\}
+.nr ?o 0
+.if \\n(?T \
+\{\
+. nr _i \\n(.i
+. in \\n($iu
+. |h
+. in \\n(_iu
+. rr _i
+. mk #T
+. ns
+.\}
+.if (\\n(?a)&((\\n($c<2):(\\n(?w=0)) \
+\{\
+. nr ?a 0
+. @k |t
+. if \\n(?w \
+. mk _k
+. nr ?w 0
+.\}
+.os
+.$H
+.ns
+..
+.de @f
+.ec
+.if \\n(?T \
+\{\
+. nr T. 1
+. T# 1
+. br
+.\}
+.ev 2
+.ce 0
+.if \\n(?b \
+\{\
+. nr ?b 0
+. @k |b
+.\}
+.if \\n(?f \
+. @o
+.ie \\n($c<\\n($m \
+. @c
+.el \
+. @e
+.ev
+..
+.de @o
+.nf
+.ls 1
+.in 0
+.wh -\\n(_Bu @r
+.|f
+.fi
+.if \\n(?o \
+. di
+. if \\n(dn=0 \
+\{\
+. rm |o
+. nr ?o 0
+. \}
+. nr dn \\n(_D
+. rr _D
+.\}
+.rm |f
+.ch @r
+..
+.de @c
+.rs
+.sp |\\n(_ku
+.@O +\\n($lu+\\n($su
+.nr $c +1
+.@n
+..
+.de @e
+.@O \\n(_ou
+.rs
+.sp |\\n(.pu-\\n(fmu-(\\n(tpu*\\n($ru)
+.@t $f
+.nr ?h 0
+.bp
+..
+.de @t
+.if !\\n(?h \
+\{\
+. sz \\n(tp
+. @F \\n(tf
+. lt \\n(_Lu
+. nf
+. \\$1
+. br
+.\}
+..
+.de $h
+.rm |z
+.if !\\n(?c \
+\{\
+. if e .ds |z "\\*(|0
+. if o .ds |z "\\*(|1
+.\}
+.if !\(ts\\*(|z\(ts\(ts \
+' tl \\*(|z
+.rm |z
+..
+.de $f
+.rm |z
+.if \\n(?c \
+\{\
+. if e .ds |z "\\*(|0
+. if o .ds |z "\\*(|1
+.\}
+.if \(ts\\*(|z\(ts\(ts \
+\{\
+. if e .ds |z "\\*(|2
+. if o .ds |z "\\*(|3
+.\}
+.if !\(ts\\*(|z\(ts\(ts \
+' tl \\*(|z
+.rm |z
+..
+.de @r
+.di |o
+.nr ?o 1
+.nr _D \\n(dn
+.ns
+..
+.rn bp @b
+.de bp
+.nr $c \\n($m
+.ie \\n(nl>0 \
+. @b \\$1
+.el \
+\{\
+. if \\n(.$>0 \
+. pn \\$1
+. if \\n(?I \
+. @h
+.\}
+.br
+.wh 0 @h
+..
+.rn ll xl
+.de ll
+.xl \\$1
+.lt \\$1
+.nr $l \\n(.l
+.if (\\n($m<=1):(\\n($l>\\n(_L) \
+. nr _L \\n(.l
+..
+.rn po @O
+.de po
+.@O \\$1
+.nr _o \\n(.o
+..
+.de hx
+.nr ?H 1
+..
+.de ix
+'in \\$1
+..
+.de bl
+.br
+.ne \\$1
+.rs
+.sp \\$1
+..
+.de n1
+.nm 1
+.xl -\w'0000'u
+.nr ?n 1
+..
+.de n2
+.nm \\$1
+.ie \\n(.$ \
+. xl -\w'0000'u
+.el \
+. xl \\n($lu
+..
+.de pa
+.bp \\$1
+..
+.de ro
+.af % i
+..
+.de ar
+.af % 1
+..
+.de m1
+.nr _0 \\n(hmu
+.nr hm \\$1v
+.nr tm +\\n(hmu-\\n(_0u
+.rr _0
+..
+.de m2
+.nr tm \\n(hmu+\\n(tpp+\\$1v
+..
+.de m3
+.nr bm \\n(fmu+\\n(tpp+\\$1v
+..
+.de m4
+.nr _0 \\n(fmu
+.nr fm \\$1v
+.nr bm +\\n(fmu-\\n(_0u
+..
+.de sk
+.if \\n(.$>0 \
+. tm Line \\n(c. -- I cannot skip multiple pages
+.nr ?s 1
+..
+.de re
+.ta 0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i +0.5i
+..
+.if t .ig
+.de re
+.ta 0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i +0.8i
+..
+.de ba
+.ie \\n(.$ \
+. nr $i \\$1n
+.el \
+. nr $i \\n(siu*\\n($0u
+..
+.de hl
+.br
+\l'\\n(.lu-\\n(.iu'
+.sp
+..
+.de pp
+.lp \\n(piu
+..
+.de lp
+.@p
+.if \\n(.$ \
+. ti +\\$1
+.nr $p 0 1
+..
+.de ip
+.if (\\n(ii>0)&(\\n(ii<1n) \
+. nr ii \\n(iin
+.nr _0 \\n(ii
+.if \\n(.$>1 \
+. nr _0 \\$2n
+.@p \\n(_0u
+.if \\w"\\$1" \
+\{\
+. ti -\\n(_0u
+. ie \\w"\\$1">=\\n(_0 \
+\{\
+\&\\$1
+. br
+. \}
+. el \&\\$1\h'|\\n(_0u'\c
+.\}
+.rr _0
+..
+.de np
+.nr $p +1
+.ip (\\n($p)
+..
+.de @p
+.@I
+.if "\\n(.z"|e" .tm Line \\n(c. -- Unmatched continued equation
+.in \\n($iu+\\n(pou
+.if \\n(.$ \
+. in +\\$1n
+.ce 0
+.fi
+.@F \\n(pf
+.sz \\n(ppu
+.sp \\n(psu
+.ne \\n(.Lv+\\n(.Vu
+.ns
+..
+.de sh
+.rn sh @T
+.so \\*(||/sh.me
+.sh "\\$1" "\\$2" \\$3 \\$4 \\$5 \\$6 \\$7 \\$8
+.rm @T
+..
+.de $p
+.if (\\n(si>0)&(\\n(.$>2) \
+. nr $i \\$3*\\n(si
+.in \\n($iu
+.ie !"\\$1\\$2"" \
+\{\
+. sp \\n(ssu
+. ne \\n(.Lv+\\n(.Vu+\\n(psu+(\\n(spu*\\n($ru*\\n(.Lu)
+. ie \\n(.$>2 \
+. ti -(\\n(siu-\\n(sou)
+. el \
+. ti +\\n(sou
+. @F \\n(sf
+. sz \\n(spu
+. if \\$3>0 \
+. $\\$3
+. if \w"\\$2">0 \\$2.
+. if \w"\\$1">0 \\$1\f1\ \ \"
+.\}
+.el \
+. sp \\n(psu
+.@F \\n(pf
+.sz \\n(ppu
+..
+.de uh
+.rn uh @T
+.so \\*(||/sh.me
+.uh "\\$1"
+.rm @T
+..
+.de 2c
+.br
+.if \\n($m>1 \
+. 1c
+.nr $c 1
+.nr $m 2
+.if \\n(.$>1 \
+. nr $m \\$2
+.if \\n(.$>0 \
+. nr $s \\$1n
+.nr $l (\\n(.l-((\\n($m-1)*\\n($s))/\\n($m
+.xl \\n($lu
+.mk _k
+.ns
+..
+.de 1c
+.br
+.nr $c 1
+.nr $m 1
+.ll \\n(_Lu
+.sp |\\n(.hu
+.@O \\n(_ou
+..
+.de bc
+.sp 24i
+..
+.de (z
+.rn (z @V
+.so \\*(||/float.me
+.(z \\$1 \\$2
+.rm @V
+..
+.de )z
+.tm Line \\n(c. -- unmatched .)z
+..
+.de (t
+.(z \\$1 \\$2
+..
+.de )t
+.)z \\$1 \\$2
+..
+.de (b
+.br
+.@D 3 \\$1 \\$2
+.sp \\n(bsu
+.@(
+..
+.de )b
+.br
+.@)
+.if (\\n(bt=0):(\\n(.t<\\n(bt) \
+. ne \\n(dnu
+.ls 1
+.nf
+.|k
+.ec
+.fi
+.in 0
+.xl \\n($lu
+.ev
+.rm |k
+.sp \\n(bsu+\\n(.Lv-1v
+..
+.de @(
+.if !"\\n(.z"" .tm Line \\n(c. -- Illegal nested keep \\n(.z
+.@M
+.di |k
+\!'rs
+..
+.de @M
+.nr ?k 1
+.@C 1
+.@F \\n(df
+.vs \\n(.su*\\n($Ru
+.nf
+.if "\\*(|p"F" \
+. fi
+.if \\n(_d=4 \
+. in 0
+.if \\n(_d=3 \
+\{\
+. in +\\n(biu
+. xl -\\n(biu
+.\}
+.if \\n(_d=1 \
+. ce 10000
+..
+.de @)
+.br
+.if !"\\n(.z"|k" .tm Line \\n(c. -- Close of a keep which has never been opened
+.nr ?k 0
+.di
+.in 0
+.ce 0
+..
+.de (c
+.if "\\n(.z"|c" .tm Line \\n(c. -- Nested .(c requests
+.di |c
+..
+.de )c
+.if !"\\n(.z"|c" .tm Line \\n(c. -- Unmatched .)c
+.br
+.di
+.ev 1
+.ls 1
+.in (\\n(.lu-\\n(.iu-\\n(dlu)/2u
+.nf
+.|c
+.ec
+.in
+.ls
+.ev
+.rm |c
+..
+.de (q
+.br
+.@C 1
+.fi
+.sp \\n(qsu
+.in +\\n(qiu
+.xl -\\n(qiu
+.sz \\n(qp
+..
+.de )q
+.br
+.ev
+.sp \\n(qsu+\\n(.Lv-1v
+.nr ?k 0
+..
+.de (l
+.br
+.sp \\n(bsu
+.@D 3 \\$1 \\$2
+.@M
+..
+.de )l
+.br
+.ev
+.sp \\n(bsu+\\n(.Lv-1v
+.nr ?k 0
+..
+.de EQ
+.rn EQ @T
+.so \\*(||/eqn.me
+.EQ \\$1 \\$2
+.rm @T
+..
+.de TS
+.rn TS @W
+.so \\*(||/tbl.me
+.TS \\$1 \\$2
+.rm @W
+..
+.de sz
+.ps \\$1
+.vs \\n(.su*\\n($ru
+.bd S B \\n(.su/3u
+..
+.de r
+.nr _F \\n(.f
+.ul 0
+.ft 1
+.if \\n(.$ \&\\$1\f\\n(_F\\$2
+.rr _F
+..
+.de i
+.nr _F \\n(.f
+.ul 0
+.ft 2
+.if \\n(.$ \&\\$1\f\\n(_F\\$2
+.rr _F
+..
+.de b
+.nr _F \\n(.f
+.ul 0
+.ie t \
+. ft 3
+.el \
+. ul 10000
+.if \\n(.$ \&\\$1\f\\n(_F\\$2
+.if \\n(.$ \
+. ul 0
+.rr _F
+..
+.de rb
+.nr _F \\n(.f
+.ul 0
+.ft 3
+.if \\n(.$ \&\\$1\f\\n(_F\\$2
+.rr _F
+..
+.de u
+\&\\$1\l'|0\(ul'\\$2
+..
+.de q
+\&\\*(lq\\$1\\*(rq\\$2
+..
+.de bi
+.ft 2
+.ie t \&\k~\\$1\h'|\\n~u+(\\n(.su/3u)'\\$1\fP\\$2
+.el \&\\$1\fP\\$2
+..
+.de bx
+.ie \\n($T \&\f2\\$1\fP\\$2
+.el \k~\(br\|\\$1\|\(br\l'|\\n~u\(rn'\l'|\\n~u\(ul'\^\\$2
+..
+.de @F
+.nr ~ \\$1
+.if \\n~>0 \
+\{\
+. ul 0
+. ie \\n~>4 \
+\{\
+. if n .ul 10000
+. if t .ft 3
+. \}
+. el \
+. ft \\n~
+.\}
+.rr ~
+..
+.de (f
+.rn (f @U
+.so \\*(||/footnote.me
+.(f \\$1 \\$2
+.rm @U
+..
+.de )f
+.tm Line \\n(c. -- unmatched .)f
+..
+.de $s
+\l'2i'
+.if n \
+. sp 0.3
+..
+.de (d
+.rn (d @U
+.so \\*(||/deltext.me
+.(d \\$1 \\$2
+.rm @U
+..
+.de )d
+.tm Line \\n(c. -- unmatched .)d
+..
+.de (x
+.rn (x @U
+.so \\*(||/index.me
+.(x \\$1 \\$2
+.rm @U
+..
+.de )x
+.tm Line \\n(c. -- unmatched .)x
+..
+.de th
+.so \\*(||/thesis.me
+.rm th
+..
+.de +c
+.ep
+.if \\n(?o:\\n(?a \
+\{\
+. bp
+. rs
+. ep
+.\}
+.nr ?C 1
+.nr $f 1 1
+.ds * \\*[1\\*]\k*
+.if \\n(?R \
+. pn 1
+.bp
+.in \\n($iu
+.rs
+.ie \\n(.$ \
+. $c "\\$1"
+.el \
+. sp 3
+..
+.de ++
+.nr _0 0
+.if "\\$1"C" \
+. nr _0 1
+.if "\\$1"RC" \
+. nr _0 11
+.if "\\$1"A" \
+. nr _0 2
+.if "\\$1"RA" \
+. nr _0 12
+.if "\\$1"P" \
+. nr _0 3
+.if "\\$1"B" \
+. nr _0 4
+.if "\\$1"AB" \
+. nr _0 5
+.if \\n(_0=0 \
+. tm Line \\n(c. -- Bad mode to .++
+.nr ?R 0
+.if \\n(_0>10 \
+.\{
+. nr ?R 1
+. nr _0 -10
+.\}
+.nr ch 0 1
+.if (\\n(_0=3):(\\n(_0=5) \
+. pn 1
+.ep
+.if \\n(_0=1 \
+\{\
+. af ch 1
+. af % 1
+.\}
+.if \\n(_0=2 \
+\{\
+. af ch A
+. af % 1
+.\}
+.if \\n(_0=3 \
+. af % i
+.if \\n(_0=4 \
+. af % 1
+.if \\n(_0=5 \
+. af % 1
+.if \\n(.$>1 \
+. he \\$2
+.if !\\n(_0=\\n(_M .if \\n(_M=3 \
+. pn 1
+.nr _M \\n(_0
+.rr _0
+..
+.de $c
+.sz 12
+.ft B
+.ce 1000
+.if \\n(_M<3 \
+. nr ch +1
+.ie \\n(_M=1 CHAPTER\ \ \\n(ch
+.el .if \\n(_M=2 APPENDIX\ \ \\n(ch
+.if \w"\\$1" .sp 3-\\n(.L
+.if \w"\\$1" \\$1
+.if (\\n(_M<3):(\w"\\$1") \
+. sp 4-\\n(.L
+.ce 0
+.ft
+.sz
+.ie \\n(_M=1 \
+. $C Chapter \\n(ch "\\$1"
+.el .if \\n(_M=2 \
+. $C Appendix \\n(ch "\\$1"
+..
+.de tp
+.hx
+.bp
+.br
+.rs
+.pn \\n%
+..
+.de ac
+.rn ac @T
+.so \\*(||/acm.me
+.ac "\\$1" "\\$2"
+.rm @T
+..
+.de lo
+.so \\*(||/local.me
+.rm lo
+..
+.if \n(mo=1 .ds mo January
+.if \n(mo=2 .ds mo February
+.if \n(mo=3 .ds mo March
+.if \n(mo=4 .ds mo April
+.if \n(mo=5 .ds mo May
+.if \n(mo=6 .ds mo June
+.if \n(mo=7 .ds mo July
+.if \n(mo=8 .ds mo August
+.if \n(mo=9 .ds mo September
+.if \n(mo=10 .ds mo October
+.if \n(mo=11 .ds mo November
+.if \n(mo=12 .ds mo December
+.if \n(dw=1 .ds dw Sunday
+.if \n(dw=2 .ds dw Monday
+.if \n(dw=3 .ds dw Tuesday
+.if \n(dw=4 .ds dw Wednesday
+.if \n(dw=5 .ds dw Thursday
+.if \n(dw=6 .ds dw Friday
+.if \n(dw=7 .ds dw Saturday
+.ds td \*(mo \n(dy, 20\n(yr
+.if (1m<0.1i)&(\nx!=0) \
+. vs 9p
+.rr x
+.nr $r \n(.v/\n(.s
+.nr $R \n($r
+.nr hm 4v
+.nr tm 7v
+.nr bm 6v
+.nr fm 3v
+.nr tf 3
+.nr tp 10
+.hy 14
+.nr bi 4n
+.nr pi 5n
+.nr pf 1
+.nr pp 10
+.nr qi 4n
+.nr qp -1
+.nr ii 5n
+.nr $m 1
+.nr $s 4n
+.ds || #9/sys/lib/tmac/me
+.bd S B 3
+.ds [ \u\x'-0.25v'
+.ds ] \d
+.ds < \d\x'0.25v'
+.ds > \u
+.ds - --
+.if t \
+\{\
+. ds [ \v'-0.4m'\x'-0.2m'\s-3
+. ds ] \s0\v'0.4m'
+. ds < \v'0.4m'\x'0.2m'\s-3
+. ds > \s0\v'-0.4m'
+. ds - \-
+. nr fi 0.3i
+.\}
+.if n \
+\{\
+. nr fi 3n
+.\}
+.nr _o \n(.o
+.if n .po 1i
+.if \n(.V=1v \
+. nr $T 2
+.if \n(.T=0 \
+. nr $T 1
+.if t \
+\{\
+. nr $T 0
+. po -0.5i
+.\}
+.if \nv \
+. po 1i
+.if \n($T \
+\{\
+. if \n($T=1 \
+. po 0
+. ds [ [
+. ds ] ]
+. ds < <
+. ds > >
+.\}
+.nr ps 0.5v
+.if \n($T \
+. nr ps 1v
+.if t .nr ps 0.35v
+.nr bs \n(ps
+.nr qs \n(ps
+.nr zs 1v
+.nr xs 0.2v
+.nr fs 0.2v
+.if \n($T \
+. nr fs 0
+.if n .nr es 1v
+.if t .nr es 0.5v
+.wh 0 @h
+.nr $l \n(.lu
+.nr _L \n(.lu
+.nr $c 1
+.nr $f 1 1
+.ds * \*[1\*]\k*\"
+.nr $d 1 1
+.ds # [1]\k#\"
+.nr _M 1
+.ds lq \&"\"
+.ds rq \&"\"
+.if t \
+. ds lq ``
+.if t \
+. ds rq ''
+.em @z
+.de sc
+.so \\*(||/chars.me
+.rm sc
+..
+.ll 6.0i
+.lt 6.0i