.ie 0 .tm "check WA, WE, IA, IE, LT sequence"
.el .if 0 .ie !0 .tm "check TL, AU, AS, AE, MT sequence"
.el .tm "check TL, AU, AS, AE, NS, NE, MT sequence"
.if 1 \{.ie 1 \{
.tm OK-1
.tm OK-2\}
.el\{
.ie 1 \{
.tm OK-3
.tm OK-4\}
.el\{
.ie 1 \{
.tm OK-5
.tm OK-6 \}
.el\{.if 1 \{
.tm OK-7
.tm OK-8 \\$1 \}\}\}\}\}
.di >K
.nf
.ce
This is a diversion/center test.
And the end.
.fi
.di
.sp
THE MACRO
.sp
.>K
.sp
THE STRING
.sp
\*(>K
.de>Z
This is the macro/string test.
..
.sp
THE MACRO
.sp
.>Z
.sp
THE STRING
.sp
\*(>Z
.ev 1
.ev
.ev aaaa
.ev
.cp 0
.open xx-stream tmp.tmp
.write xx-stream .write stdout <EM>from write to stdout</EM>
.write xx-stream .write stderr from write to stderr
.close xx-stream
.so tmp.tmp
.sy rm tmp.tmp
.ce 3
center
three
lines
.rj 4
right
justify
four
lines
then the last line
