.;	CIT161 SUPPORTED FEATURES:
.;	==========================
.;	Function		on	off   char?   lock?	notes
.;	--------		--	---   -----   -----	-----
.;	escape sequence		^_	\_	Y	N
.;	underline		^&	\&	Y	Y	} cannot be
.;	bold			^*	\*	Y	Y	} turned off
.;	reverse video		^~	\~	Y	Y	} separately
.;	blinking		^#	\#	Y	Y	}
.;	double width		^=	\=	Y	Y	for whole line
.;	subscripts		^<	\<	Y	Y
.;	superscripts		^>	\>	Y	Y
.;	graphics set		^%	\%	Y	Y	line-drawing
.;	shift up 1 line		^(		N	N
.;	shift down 1 line	^)		N	N
.;	double-size line top	^+	\+	N	N	for whole line
.;	double-size line bottom	^-	\-	N	N	for whole line
.;	font 0			^0	\0	N	Y	UK set: #=pound
.;	font 1			^1	\1	N	Y	alt ROM standard
.;	font 2			^2	\2	N	Y	alt ROM graphics
.;
.; 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,"[4m"
.define escape "\&" CHR LCK 27,"[m"
.no flags underline
.define escape "^*" CHR LCK 27,"[1m"
.define escape "\*" CHR LCK 27,"[m"
.define escape "^~" CHR LCK 27,"[7m"
.define escape "\~" CHR LCK 27,"[m"
.define escape "^=" CHR LCK PSP HSP,2 27,"#6"
.define escape "\=" CHR LCK PSP HSP,1
.define escape "^#" CHR LCK 27,"[5m"
.define escape "\#" CHR LCK 27,"[m"
.define escape "^/"
.define escape "\/"
.define escape "^<" CHR LCK VSP,2 10
.define escape "\<" CHR LCK VSP,-2 27,'[A'
.define subscript 10
.define escape "^>" CHR LCK VSP,-2 27,'[A'
.define escape "\>" CHR LCK VSP,2 10
.define superscript 27 '[A'
.define escape "^`"
.define escape "\`"
.define escape "^|"
.define escape "\|"
.define escape "^%" CHR LCK 27 ")0",14
.define escape "\%" CHR LCK 15
.define escape "^!"
.define escape "\!"
.define escape "^@"
.define escape "\@"
.define escape "^(" VSP,-2 27,"[A"
.define escape "^)" VSP,2 10
.define escape '^+' LCK PSP HSP,2 27,'#3'
.define escape '\+' LCK PSP HSP,1
.define escape '^-' LCK PSP HSP,2 27,'#4'
.define escape '\-' LCK PSP HSP,1
.define escape "^0" LCK 27 ")A",14
.define escape "\0" LCK 15
.define escape "^1" LCK 27 ")1",14
.define escape "\1" LCK 15
.define escape "^2" LCK 27 ")2",14
.define escape "\2" LCK 15
.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
.; (Non-standard) colour changes:
.define escape "^[" CHR LCK 27,"[40;31m"
.define escape "\[" CHR LCK 27,"[40;37m"
.define escape "^]" CHR LCK 27,"[40;34m"
.define escape "\]" CHR LCK 27,"[40;37m"
.define escape "^:" CHR LCK 27,"[40;32m"
.define escape "\:" CHR LCK 27,"[40;37m"
.define escape "^?" CHR LCK 27,"[40;33m"
.define escape "\?" CHR LCK 27,"[40;37m"
.define escape '^"' CHR LCK 27,"[40;36m"
.define escape '\"' CHR LCK 27,"[40;37m"
.define escape "^'" CHR LCK 27,"[40;35m"
.define escape "\'" CHR LCK 27,"[40;37m"
.reset variant
.variant CIT161