.; Author: .; Jack Wenrick .; The BFGoodrich Co. .; Research and Development Center .; 9921 Brecksville Road .; Brecksville, Ohio 44141 .; .; "HPLJ.ESC" .; .; Define escape sequences for HP LaserJet printer .; ^& turns on underlining .; \& turns off underlining .; & underline 1 char .; ^* turns on bolding .; \* turns off bolding .; * bolds 1 char .; ^> starts superscripts or ends subscripts .; ^< starts subscripts or ends superscripts .; ^/ starts italics .; \/ ends italics .; .reset escape .define escape "^*" CHR LCK 27 '(s1B' .define escape "\*" CHR LCK 27 '(s0B' .define escape "^&" CHR LCK 27 '&dD' .define escape "\&" CHR LCK 27 '&d@' .define escape "^>" HSP 1 27 '&a-35V' .define escape "^<" HSP 1 27 '&a+35V' .define escape "^/" CHR LCK 27 '(s1S' .define escape "\/" CHR LCK 27 '(s0S' .define superscript 27,"&a-50V" .define subscript 27,"&a+50V" .eeq 1 .no flags underline .flags special * .flags special & .flags special / .flags escape