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