.; Author:
.;	Jack Wenrick
.;	The BFGoodrich Co.
.;	Research and Development Center
.;	9921 Brecksville Road
.;	Brecksville, Ohio 44141
.;
.; Revised by:
.;	Chris Doran
.;	Sira Ltd.,
.;	South Hill, Chislehurst, Kent, BR7 5EH, England
.;
.;	LaserJet SUPPORTED FEATURES:
.;	============================
.;	Function		on	off   char?   lock?	notes
.;	--------		--	---   -----   -----	-----
.;	escape sequence		^_	\_	Y	N
.;	underline		^&	\&	Y	Y
.;	bold			^*	\*	Y	Y
.;	double width		^=	\=	Y	Y
.;	italics			^/	\/	Y	Y
.;	subscripts		^<	\<	Y	Y
.;	superscripts		^>	\>	Y	Y
.;	proportional		^`	\`	Y	Y
.;	graphics set		^%	\%	Y	Y
.;	scientific set		^@	\@	Y	Y
.;	graphics mode		^!	\!	N	N
.;	shift up 1 line		^(		N	N
.;	shift down 1 line	^)		N	N
.;
.; All other standard sequences are dummies.
.;
.; Explanation: Single-width is the primary set, and double-width is secondary.
.; This enables sub/superscripts to choose the next smallest character, and
.; ensures that character pitch is defaulted when switching between single
.; and double.
.reset escape
.define escape "^&" CHR LCK 27,'&dD'
.define escape "\&" CHR LCK 27,'&d@'
.define escape "^*" CHR LCK 27,'(s1B',27,')s1B'
.define escape "\*" CHR LCK 27,'(sB',27,')sB'
.define escape "^~"
.define escape "\~"
.define escape "^=" CHR LCK PSP HSP,2 27,")s14.4v10H",14,27,"&k14.6H"
.define escape "\=" CHR LCK PSP HSP,1 15
.define escape "^#"
.define escape "\#"
.define escape "^/" CHR LCK 27,'(s1S',27,')s1S'
.define escape "\/" CHR LCK 27,'(sS',27,')sS'
.define escape "^>" CHR LCK VSP,-1 27,"=",27,'&a-1R',27,'(s8V',27,')s10V'
.define escape "\>" CHR LCK VSP,1 27,"=",27,'(s10V',27,')s14.4V'
.define escape "^<" CHR LCK VSP,1 27,"=",27,'(s8V',27,')s10V'
.define escape "\<" CHR LCK VSP,-1 27,"=",27,'&a-1R',27,'(s10V',27,')s14.4V'
.define escape "^`" CHR LCK 27,"(s1p5T",27,")s1p5T",27,"(U",27,")U"
.define escape "\`" CHR LCK 27,"(sp3T",27,")sp3T",27,"(8U",27,")8U"
.define escape "^|"
.define escape "\|"
.define escape "^%" CHR LCK 27,"(B",27,")B"
.define escape "\%" CHR LCK 27,"(8U",27,")8U"
.define escape "^!" PSP HSP,0 27,"*r1A",27,"*b"
.define escape "\!" PSP HSP,1 27,"*rB"
.define escape "^@" CHR LCK 27,"(A",27,")A"
.define escape "\@" CHR LCK 27,"(8U",27,")8U"
.define escape "^(" VSP,-2 27,"&a-1R"
.define escape "^)" VSP,2 10
.define escape "^+" CHR LCK PSP HSP,2 27,")s14.4v10H",14,27,"&k14.6H"
.define escape "\+" CHR LCK PSP HSP,1 27,15
.define escape "^-" CHR LCK PSP HSP,2 27,")s14.4v10H",14,27,"&k14.6H"
.define escape "\-" CHR LCK PSP HSP,1 27,15
.define escape "^0"
.define escape "\0"
.define escape "^1"
.define escape "\1"
.define escape "^2"
.define escape "\2"
.define escape "^3"
.define escape "\3"
.define escape "^4"
.define escape "\4"
.define escape "^5"
.define escape "\5"
.define escape "^6"
.define escape "\6"
.define escape "^7"
.define escape "\7"
.define escape "^8"
.define escape "\8"
.define escape "^9"
.define escape "\9"
.define escape "^_" PSP HSP,0 27
.define escape "\_" PSP HSP,1
.define superscript  27,"=" 27,'&a-1R'
.define subscript 27,"="
.reset variant
.variant HPLJ
.define substitute/Landscape$/^__&l1O^__(s16.66H^__)s16.66H\_
.define substitute/Portrait$/^__&l0O^__(s10H^__)s10H\_