.; .; Define escape sequences for LA-50 printer .; ^& turns on underlining .; \& turns off underlining .; & underline 1 char .; ^* turns on bolding .; \* turns off bolding .; * bolds 1 char .; ^~ turns on reverse video (Ignored on LA-50) .; \~ turns off reverse video .; ^= turns on double width .; /= turns off double width .; < Starts subscipt .; > Starts superscript .; ^% turns on vt100 graphics set .; \% turns off vt100 graphics .; .; NOTE: underlining, bolding, reverse can not be independently combined. .; If more than 1 feature is desired they must be turned on and off .; together. .; Double width is 5 pitch. .; Single width is 10 pitch. .; .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 "[5w" .define escape "\=" LCK PSP HSP 1 27 "[0w" .define escape "^<" VSP 1 27 "K" .define subscript 27 "K" .define escape "^>" VSP -1 27 'L' .define superscript 27 'L' .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 .flags equation .; .; The LA-50 can do equations, but half or 1&1/2 spacing .; should not be used as it will lose track of the top of form. .; If these are used then /-ff:n should be used to specify the physical .; page length. .;