.;
.;	Define escape sequences for VT-100 terminal
.;		^& turns on underlining
.;		\& turns off underlining
.;		&  underline 1 char
.;		^* turns on bolding
.;		\* turns off bolding
.;		*  bolds 1 char
.;		^~ turns on reverse video
.;		\~ turns off reverse video
.;		^= turns on double width
.;		/= turns off double width
.;
.;	NOTE:  underlining, bolding, reverse can not be combined.
.;	Double width applies to the whole line
.;
.reset escape
.define escape "^*" CHR LCK 27 "[1m"
.define escape "\*" CHR LCK 27 "[0m"
.define escape "^&" CHR LCK 27 "[4m"
.define escape "\&" CHR LCK 27 "[0m"
.define escape "^~" CHR LCK 27 "[7m"
.define escape "\~" CHR LCK 27 "[0m"
.define escape "^=" LCK PSP HSP 2 27 "#6"
.define escape "\=" LCK PSP HSP 1 ''
.no flags underline
.flags special *
.flags special &
.flags escape