.;	CI-1550 SUPPORTED FEATURES:
.;	===========================
.;	Function		on	off   char?   lock?	notes
.;	--------		--	---   -----   -----	-----
.;	escape sequence		^_	\_	Y	N
.;	underline		^&	\&	Y	Y
.;	bold			^*	\*	Y	Y
.;	double width		^=	\=	Y	Y	not with Katakana
.;	italics			^/	\/	Y	Y
.;	subscripts		^<	\<	Y	Y
.;	superscripts		^>	\>	Y	Y
.;	proportional		^`	\`	Y	Y
.;	near letter quality	^|	\|	Y	Y	Memo on non-NLQ models
.;	graphics set		^%	\%	Y	Y
.;	scientific set		^@	\@	Y	Y
.;	graphics mode		^!	\!	N	N
.;	shift up 1 line		^(		N	N
.;	shift down 1 line	^)		N	N
.;	double-size line top	^+	\+	N	N
.;	double-size line bottom	^-	\-	N	N
.;	font 0			^0	\0	N	Y	UK	UK II
.;	font 1			^1	\1	N	Y	Dutch	NET
.;	font 2			^2	\2	N	Y	Finnish	AF
.;	font 3			^3	\3	N	Y	French	FR I
.;	font 4			^4	\4	N	Y	German	GE
.;	font 5			^5	\5	N	Y	Italian	IT
.;	font 6			^6	\6	N	Y	Norwegian NOR
.;	font 7			^7	\7	N	Y	Spanish	SP
.;	font 8			^8	\8	N	Y	Swedish	SW
.;	font 9			^9	\9	N	Y	Katakana
.; Plus (non-standard):
.;	yellow			^?	\?	Y	Y
.;	red			^[	\[	Y	Y
.;	orange			^"	\"	Y	Y
.;	blue			^]	\]	Y	Y
.;	green			^:	\:	Y	Y
.;	purple			^'	\'	Y	Y
.;
.; All other standard sequences are dummies.
.;
.reset escape
.define escape "^&" CHR LCK 27,"X"
.define escape "\&" CHR LCK 27,"Y"
.define escape "^*" CHR LCK 27,"!"
.define escape "\*" CHR LCK 27,'"'
.define escape "^~"
.define escape "\~"
.define escape "^=" CHR LCK PSP HSP,2 14
.define escape "\=" CHR LCK PSP HSP,1 15
.define escape "^#"
.define escape "\#"
.define escape "^/" CHR LCK 27,"i1"
.define escape "\/" CHR LCK 27,"i0"
.define escape "^<" CHR LCK 27,"s2"
.define escape "\<" CHR LCK 27,"s0"
.define escape "^>" CHR LCK 27,"s1"
.define escape "\>" CHR LCK 27,"s0"
.define escape "^`" CHR LCK 27,"P"
.define escape "\`" CHR LCK 27,"N"
.; Note: escm1 sets memo quality (non-NLQ model), escm2 changes to NLQ if poss.
.define escape "^|" CHR LCK 27,"m1" 27,"m2"
.define escape "\|" CHR LCK 27,"m0"
.define escape "^%" CHR LCK 27,"#"
.define escape "\%" CHR LCK 27,"$"
.define escape "^!" PSP HSP,0 27,"S"
.define escape "\!" PSP HSP,1
.define escape "^@" CHR LCK 27,"&"
.define escape "\@" CHR LCK 27,"$"
.define escape "^+" CHR LCK PSP HSP,2 14
.define escape "\+" CHR LCK PSP HSP,1 15
.define escape "^-" CHR LCK PSP HSP,2 14
.define escape "\-" CHR LCK PSP HSP,1 15
.; N.B. The RT-11 LS handler "eats" nulls. If this is a problem, change the
.;	0's in the following escape sequences (down to \9) to 64's:
.define escape "^0" LCK 27,"D",15,0
.define escape "\0" LCK 27,"D",2,0 27,"Z",13,0
.define escape "^1" LCK 27,"D",10,0 27,"Z",5,0
.define escape "\1" LCK 27,"D",2,0 27,"Z",13,0
.define escape "^2" LCK 27,"D",11,0 27,"Z",4,0
.define escape "\2" LCK 27,"D",2,0 27,"Z",13,0
.define escape "^3" LCK 27,"D",1,0 27,"Z",14,0
.define escape "\3" LCK 27,"D",2,0 27,"Z",13,0
.define escape "^4" LCK 27,"D",4,0 27,"Z",11,0
.define escape "\4" LCK 27,"D",2,0 27,"Z",13,0
.define escape "^5" LCK 27,"D",6,0 27,"Z",9,0
.define escape "\5" LCK 27,"D",2,0 27,"Z",13,0
.define escape "^6" LCK 27,"D",9,0 27,"Z",6,0
.define escape "\6" LCK 27,"D",2,0 27,"Z",13,0
.define escape "^7" LCK 27,"D",7,0 27,"Z",8,0
.define escape "\7" LCK 27,"D",2,0 27,"Z",13,0
.define escape "^8" LCK 27,"D",5,0 27,"Z",10,0
.define escape "\8" LCK 27,"D",2,0 27,"Z",13,0
.define escape "^9" LCK 27,"Z",15,0 14
.define escape "\9" LCK 15 27,"D",2,0 27,"Z",13,0
.define escape "^(" VSP,-2 27,"r",10,27,"f" 
.define escape "^)" VSP,2 10
.define subscript 27,"T12",10,27,"A"
.define superscript 27,"T12",27,"r",10,27,"f",27,"A"
.define escape "^_" PSP HSP,0 27
.define escape "\_" PSP HSP,1
.; (Non-standard) colour changes:
.define escape "^[" CHR LCK 27 "C2"
.define escape "\[" CHR LCK 27 "C0"
.define escape "^]" CHR LCK 27 "C4"
.define escape "\]" CHR LCK 27 "C0"
.define escape "^:" CHR LCK 27 "C5"
.define escape "\:" CHR LCK 27 "C0"
.define escape "^?" CHR LCK 27 "C1"
.define escape "\?" CHR LCK 27 "C0"
.define escape '^"' CHR LCK 27 "C3"
.define escape '\"' CHR LCK 27 "C0"
.define escape "^'" CHR LCK 27 "C6"
.define escape "\'" CHR LCK 27 "C0"
.reset variant
.variant CI1550