.; .; Define escape sequences for cit-161 color 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 vt100 graphics set .; \% turns off vt100 graphics .; ^< is subscript .; ^> is superscript .; .; .; 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 '' .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 .; .; ^` begins an arbitrary escape seq .; \` ends an escape seq .; .define escape "^`" HSP 0,psp,LCK,27 .define escape "\`" HSP 1,psp,LCK,'' .define substitute /RED$/^`[40;31m\` .define substitute /GREEN$/^`[40;32m\` .define substitute /YELLOW$/^`[40;33m\` .define substitute /BLUE$/^`[40;34m\` .define substitute /MAGENTA$/^`[40;35m\` .define substitute /CYAN$/^`[40;36m\` .define substitute /WHITE$/^`[40;37m\` .define substitute /DBL1$/^`_#3\` .define substitute /DBL2$/^`_#4\` .no flags underline .flags special *& .flags escape .flags subs