.; .; 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' .enable equation 1 .define escape "^#" CHR LCK 27 "[5m" .define escape "\#" CHR LCK 27 "[0m" .define escape "^%" CHR LCK 27 "[?2l" 27 'F' .define escape "\%" CHR LCK 27 'G' 27 '<' .no flags underline .flags special *& .flags escape .define ESCAPE '^+' LCK PSP HSP 2 27 '#3' .define escape '^-' LCK PSP HSP 2 27 '#4' .define escape '\-' LCK PSP HSP 1 '' .define escape '\+' LCK PSP HSP 1 ''