.; Author:
.;	Chris Doran
.;	Sira Ltd.,
.;	South Hill, Chislehurst, Kent, BR7 5EH, England
.;
.;	HP 2648A SUPPORTED FEATURES:
.;	============================
.;	Function		on	off   char?   lock?	notes
.;	--------		--	---   -----   -----	-----
.;	escape sequence		^_	\_	Y	N
.;	underline		^&	\&	Y	Y	} only one
.;	bold (actually dim)	^*	\*	Y	Y	} at a time
.;	reverse video		^~	\~	Y	Y	} can be
.;	blinking		^#	\#	Y	Y	} selected
.;	italics			^/	\/	Y	Y
.;	subscripts		^<	\<	Y	Y
.;	superscripts		^>	\>	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.
.;
.reset variant
.reset escape
.define escape "^&" CHR LCK 27 '&dD'
.define escape "\&" CHR LCK 27 '&d@'
.no flags underline
.define escape "^*" CHR LCK 27 '&dH'
.define escape "\*" CHR LCK 27 '&d@'
.define escape "^~" CHR LCK 27 '&dB'
.define escape "\~" CHR LCK 27 '&d@'
.define escape "^=" PSP HSP,2
.define escape "\=" PSP HSP,1
.define escape "^#" CHR LCK 27 '&dA'
.define escape "\#" CHR LCK 27 '&d@'
.define escape "^/"
.define escape "\/"
.define escape "^>" CHR LCK VSP,-2 27 'A'
.define escape "\>" CHR LCK VSP,2 10
.define escape "^<" CHR LCK VSP,2 10
.define escape "\<" CHR LCK VSP,-2 27 "A"
.define escape "^`"
.define escape "\`"
.define escape "^|"
.define escape "\|"
.define escape "^%" CHR LCK 27 ")B" 14
.define escape "\%" CHR LCK 15
.define escape "^!" PSP HSP,0 27 "*"
.define escape "\!" PSP HSP,1 
.define escape "^@" CHR LCK 27 ")A" 14
.define escape "\@" CHR LCK 15
.define escape "^(" VSP,-2 27 "A"
.define escape "^)" VSP,2 10
.define escape "^+" LCK PSP HSP,2
.define escape "\+" LCK PSP HSP,1
.define escape "^-" LCK PSP HSP,2
.define escape "\-" LCK PSP HSP,1
.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 'A'
.define subscript 10
.variant 2648A