.;
.;	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
.;		^# turns on blinking chars.
.;		\# turns off blinking chars.
.;		^% turns on vt100 graphics set
.;		\% turns off vt100 graphics
.;
.;	^+ turns on upper double width and height
.;	\+ turns off upper double width and height
.;	^- turns on lower double width and height
.;	\- turns off lower double width and height
.;
.;	^< will produce subscripts
.;	^> produces superscripts
.;
.;
.;NOTE:  underlining, bolding, reverse and blinking can not be independently
.;	combined.
.;	Multiple features must be turned on and off in tandem.
.;	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 ''
.define escape "^<" VSP 2 10
.define subscript 10
.define escape "^>" VSP -2 27 '[1A'
.define superscript 27 '[1A'
.define escape "^#" CHR LCK 27 "[5m"
.define escape "\#" CHR LCK 27 "[0m"
.define escape "^%" CHR LCK 14
.define escape "\%" CHR LCK 15
.no flags underline
.flags special *&
.flags escape
.define ESCAPE '^+' 27 '#3'
.define escape '^-' 27 '#4'
.define escape '\-'  LCK PSP HSP 1 ''
.define escape '\+'  LCK PSP HSP 1 ''