.; .; 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