version	U12.1.00
uid	utf8.u1-1786350491-0
record	UTF8__UTF8__state,19
	0,__s
	1,__m
	2,__UTF8SizeTable
	3,__UTF8LimitTable
	4,__UTF8BOM
	5,__UTF8CountTable
	6,__ByteTranslate
	7,__UTF8InvalidChar
	8,__UTF8Max
	9,__SpecialUTF8Strings
	10,New
	11,__ClassToObject
	12,__ObjectToClass
	13,__operator_overload_error_messages
	14,__file
	15,__line
	16,__DebugMode
	17,__ErrorOutFile
	18,DebugPrint
record	UTF8__UTF8__methods,99
	0,__Initialise
	1,__ActualPos
	2,__Coerce
	3,__GetAt
	4,__AuxMessage
	5,BOMFound
	6,SkipBOM
	7,Valid
	8,ByteTranslate
	9,Multibyte
	10,SpecialString
	11,ToUnicode32
	12,Unicode32To
	13,HexTo
	14,DecimalTo
	15,AmpPos
	16,Equiv
	17,Nequiv
	18,LexEquals
	19,LexGTorEq
	20,LexGT
	21,LexLTorEq
	22,LexLT
	23,LexNE
	24,Concatenate
	25,Complement
	26,Difference
	27,Intersect
	28,Union
	29,ForEach
	30,Size
	31,Random
	32,Subsection
	33,Subscript
	34,TabMatch
	35,Any
	36,Bal
	37,Center
	38,Char
	39,Cset
	40,Detab
	41,Entab
	42,Find
	43,Left
	44,Many
	45,Map
	46,Match
	47,Move
	48,Ord
	49,Pos
	50,Repl
	51,Reverse
	52,Right
	53,String
	54,Tab
	55,Trim
	56,Upto
	57,initially
	58,__InitClass
	59,SetClass
	60,ClassName
	61,Addition
	62,Divide
	63,Minus
	64,Modulus
	65,Multiply
	66,Negate
	67,UnaryPlus
	68,Power
	69,Equals
	70,GTorEqual
	71,Greater
	72,LTorEqual
	73,Less
	74,Nequal
	75,Integer
	76,Numeric
	77,Real
	78,__proc_components
	79,AbortIfDebug
	80,AbortMessage
	81,Caller
	82,CallingComponents
	83,ClassCalling
	84,Debug
	85,DebugMode
	86,ErrorOut
	87,IsOn
	88,MethodCalling
	89,NotInDebugMode
	90,Off
	91,On
	92,PackageCalling
	93,ParamCalling
	94,PrintMessage
	95,ProcedureCalling
	96,StopMessage
	97,ClassObject__ClassClass
	98,ErrorSystem__ErrorSystem
record	UTF8____UTF8Object__state,10
	0,__s
	1,__m
	2,__data
	3,__asciionly
	4,__size
	5,__source_data
	6,__operator_overload
	7,__DebugMode
	8,__ErrorOutFile
	9,DebugPrint
record	UTF8____UTF8Object__methods,104
	0,Data
	1,Complement
	2,Difference
	3,Intersect
	4,Union
	5,Equiv
	6,Nequiv
	7,LexEquals
	8,LexGTorEq
	9,LexGT
	10,LexLTorEq
	11,LexLT
	12,LexNE
	13,ForEach
	14,Random
	15,TabMatch
	16,Size
	17,Concatenate
	18,Subsection
	19,Subscript
	20,String
	21,Invalid
	22,initially
	23,__call_by_method_name
	24,ClassName
	25,Clone
	26,Copy
	27,operator_overload_error_error
	28,Serial
	29,set_operator_overload_abort
	30,Addition
	31,Divide
	32,Minus
	33,Modulus
	34,Multiply
	35,Negate
	36,UnaryPlus
	37,Power
	38,Equals
	39,GTorEqual
	40,Greater
	41,LTorEqual
	42,Less
	43,Nequal
	44,Integer
	45,Numeric
	46,Real
	47,__add__
	48,__div__
	49,__minus__
	50,__mod__
	51,__mult__
	52,__neg__
	53,__number__
	54,__powr__
	55,__eqv__
	56,__neqv__
	57,__lexeq__
	58,__lexge__
	59,__lexgt__
	60,__lexle__
	61,__lexlt__
	62,__lexne__
	63,__numeq__
	64,__numge__
	65,__numgt__
	66,__numle__
	67,__numlt__
	68,__numne__
	69,__cat__
	70,__lcat__
	71,__compl__
	72,__diff__
	73,__inter__
	74,__union__
	75,__bang__
	76,__random__
	77,__refresh__
	78,__sect__
	79,__size__
	80,__subsc__
	81,__tabmat__
	82,__toby__
	83,__proc_components
	84,AbortIfDebug
	85,AbortMessage
	86,Caller
	87,CallingComponents
	88,ClassCalling
	89,Debug
	90,DebugMode
	91,ErrorOut
	92,IsOn
	93,MethodCalling
	94,NotInDebugMode
	95,Off
	96,On
	97,PackageCalling
	98,ParamCalling
	99,PrintMessage
	100,ProcedureCalling
	101,StopMessage
	102,ClassObject__ClassObject
	103,ErrorSystem__ErrorSystem
record	UTF8__UTF8Set__state,19
	0,__s
	1,__m
	2,__ascii_blank
	3,__uft8_blanks
	4,__all_codepoints
	5,__ascii_lparens
	6,__ascii_rparens
	7,__ascii_128
	8,__defined_sets
	9,__max_size_of_set
	10,New
	11,__ClassToObject
	12,__ObjectToClass
	13,__operator_overload_error_messages
	14,__file
	15,__line
	16,__DebugMode
	17,__ErrorOutFile
	18,DebugPrint
record	UTF8__UTF8Set__methods,61
	0,__Coerce
	1,__AuxMessage
	2,Complement
	3,Difference
	4,Intersect
	5,Union
	6,ForEach
	7,Size
	8,String
	9,Subscript
	10,Member
	11,Space
	12,UTF8Spaces
	13,Ascii
	14,Rparens
	15,Lparens
	16,All
	17,MaxSize
	18,Defined
	19,initially
	20,__InitClass
	21,SetClass
	22,ClassName
	23,Addition
	24,Divide
	25,Minus
	26,Modulus
	27,Multiply
	28,Negate
	29,UnaryPlus
	30,Power
	31,Equals
	32,GTorEqual
	33,Greater
	34,LTorEqual
	35,Less
	36,Nequal
	37,Integer
	38,Numeric
	39,Real
	40,__proc_components
	41,AbortIfDebug
	42,AbortMessage
	43,Caller
	44,CallingComponents
	45,ClassCalling
	46,Debug
	47,DebugMode
	48,ErrorOut
	49,IsOn
	50,MethodCalling
	51,NotInDebugMode
	52,Off
	53,On
	54,PackageCalling
	55,ParamCalling
	56,PrintMessage
	57,ProcedureCalling
	58,StopMessage
	59,ClassObject__ClassClass
	60,ErrorSystem__ErrorSystem
record	UTF8____UTF8SetObject__state,13
	0,__s
	1,__m
	2,__allcp
	3,__cset
	4,__2bytedata
	5,__3bytedata
	6,__4bytedata
	7,__negated
	8,__string_representation
	9,__operator_overload
	10,__DebugMode
	11,__ErrorOutFile
	12,DebugPrint
record	UTF8____UTF8SetObject__methods,105
	0,__DebugPrint
	1,Equiv
	2,Nequiv
	3,LexEquals
	4,LexGTorEq
	5,LexGT
	6,LexLTorEq
	7,LexLT
	8,LexNE
	9,Complement
	10,Difference
	11,Intersect
	12,Union
	13,ForEach
	14,Size
	15,Subscript
	16,Random
	17,TabMatch
	18,Concatenate
	19,Subsection
	20,Member
	21,UTF8Value
	22,String
	23,initially
	24,__call_by_method_name
	25,ClassName
	26,Clone
	27,Copy
	28,operator_overload_error_error
	29,Serial
	30,set_operator_overload_abort
	31,Addition
	32,Divide
	33,Minus
	34,Modulus
	35,Multiply
	36,Negate
	37,UnaryPlus
	38,Power
	39,Equals
	40,GTorEqual
	41,Greater
	42,LTorEqual
	43,Less
	44,Nequal
	45,Integer
	46,Numeric
	47,Real
	48,__add__
	49,__div__
	50,__minus__
	51,__mod__
	52,__mult__
	53,__neg__
	54,__number__
	55,__powr__
	56,__eqv__
	57,__neqv__
	58,__lexeq__
	59,__lexge__
	60,__lexgt__
	61,__lexle__
	62,__lexlt__
	63,__lexne__
	64,__numeq__
	65,__numge__
	66,__numgt__
	67,__numle__
	68,__numlt__
	69,__numne__
	70,__cat__
	71,__lcat__
	72,__compl__
	73,__diff__
	74,__inter__
	75,__union__
	76,__bang__
	77,__random__
	78,__refresh__
	79,__sect__
	80,__size__
	81,__subsc__
	82,__tabmat__
	83,__toby__
	84,__proc_components
	85,AbortIfDebug
	86,AbortMessage
	87,Caller
	88,CallingComponents
	89,ClassCalling
	90,Debug
	91,DebugMode
	92,ErrorOut
	93,IsOn
	94,MethodCalling
	95,NotInDebugMode
	96,Off
	97,On
	98,PackageCalling
	99,ParamCalling
	100,PrintMessage
	101,ProcedureCalling
	102,StopMessage
	103,ClassObject__ClassObject
	104,ErrorSystem__ErrorSystem
impl	local
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/classobject.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/classobject.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/errorsystem.u
link	ximage.u
link	hexcvt.u
link	equiv.u
link	/usr/obj/ports/unicon-13.3beta1/unicon-0b8f99c2affe981f87639fc2577d2a68d05739ba/uni/lib/classobject.u
global	148
	0,000005,UTF8__UTF8___Initialise,1
	1,000005,UTF8__UTF8___ActualPos,3
	2,000005,UTF8__UTF8___Coerce,2
	3,000005,UTF8__UTF8___GetAt,4
	4,000005,UTF8__UTF8___AuxMessage,3
	5,000005,UTF8__UTF8_BOMFound,2
	6,000005,UTF8__UTF8_SkipBOM,2
	7,000005,UTF8__UTF8_Valid,2
	8,000005,UTF8__UTF8_ByteTranslate,2
	9,000005,UTF8__UTF8_Multibyte,2
	10,000005,UTF8__UTF8_SpecialString,2
	11,000005,UTF8__UTF8_ToUnicode32,2
	12,000005,UTF8__UTF8_Unicode32To,2
	13,000005,UTF8__UTF8_HexTo,2
	14,000005,UTF8__UTF8_DecimalTo,2
	15,000005,UTF8__UTF8_AmpPos,1
	16,000005,UTF8__UTF8_Equiv,3
	17,000005,UTF8__UTF8_Nequiv,3
	18,000005,UTF8__UTF8_LexEquals,3
	19,000005,UTF8__UTF8_LexGTorEq,3
	20,000005,UTF8__UTF8_LexGT,3
	21,000005,UTF8__UTF8_LexLTorEq,3
	22,000005,UTF8__UTF8_LexLT,3
	23,000005,UTF8__UTF8_LexNE,3
	24,000005,UTF8__UTF8_Concatenate,3
	25,000005,UTF8__UTF8_Complement,2
	26,000005,UTF8__UTF8_Difference,3
	27,000005,UTF8__UTF8_Intersect,3
	28,000005,UTF8__UTF8_Union,3
	29,000005,UTF8__UTF8_ForEach,2
	30,000005,UTF8__UTF8_Size,2
	31,000005,UTF8__UTF8_Random,2
	32,000005,UTF8__UTF8_Subsection,4
	33,000005,UTF8__UTF8_Subscript,3
	34,000005,UTF8__UTF8_TabMatch,2
	35,000005,UTF8__UTF8_Any,5
	36,000005,UTF8__UTF8_Bal,7
	37,000005,UTF8__UTF8_Center,4
	38,000005,UTF8__UTF8_Char,2
	39,000005,UTF8__UTF8_Cset,2
	40,000005,UTF8__UTF8_Detab,-3
	41,000005,UTF8__UTF8_Entab,-3
	42,000005,UTF8__UTF8_Find,5
	43,000005,UTF8__UTF8_Left,4
	44,000005,UTF8__UTF8_Many,5
	45,000005,UTF8__UTF8_Map,4
	46,000005,UTF8__UTF8_Match,5
	47,000005,UTF8__UTF8_Move,2
	48,000005,UTF8__UTF8_Ord,2
	49,000005,UTF8__UTF8_Pos,2
	50,000005,UTF8__UTF8_Repl,3
	51,000005,UTF8__UTF8_Reverse,2
	52,000005,UTF8__UTF8_Right,4
	53,000005,UTF8__UTF8_String,2
	54,000005,UTF8__UTF8_Tab,2
	55,000005,UTF8__UTF8_Trim,5
	56,000005,UTF8__UTF8_Upto,5
	57,000005,UTF8__UTF8_initially,1
	58,000011,UTF8__UTF8__state,19
	59,000011,UTF8__UTF8__methods,99
	60,000001,UTF8__UTF8__oprec,0
	61,000001,ClassObject__ClassClass__oprec,0
	62,000001,ErrorSystem__ErrorSystem__oprec,0
	63,000005,UTF8__UTF8,0
	64,000005,UTF8__UTF8initialize,0
	65,000005,UTF8____UTF8Object_Data,1
	66,000005,UTF8____UTF8Object_Complement,1
	67,000005,UTF8____UTF8Object_Difference,2
	68,000005,UTF8____UTF8Object_Intersect,2
	69,000005,UTF8____UTF8Object_Union,2
	70,000005,UTF8____UTF8Object_Equiv,2
	71,000005,UTF8____UTF8Object_Nequiv,2
	72,000005,UTF8____UTF8Object_LexEquals,2
	73,000005,UTF8____UTF8Object_LexGTorEq,2
	74,000005,UTF8____UTF8Object_LexGT,2
	75,000005,UTF8____UTF8Object_LexLTorEq,2
	76,000005,UTF8____UTF8Object_LexLT,2
	77,000005,UTF8____UTF8Object_LexNE,2
	78,000005,UTF8____UTF8Object_ForEach,1
	79,000005,UTF8____UTF8Object_Random,1
	80,000005,UTF8____UTF8Object_TabMatch,1
	81,000005,UTF8____UTF8Object_Size,1
	82,000005,UTF8____UTF8Object_Concatenate,2
	83,000005,UTF8____UTF8Object_Subsection,3
	84,000005,UTF8____UTF8Object_Subscript,2
	85,000005,UTF8____UTF8Object_String,1
	86,000005,UTF8____UTF8Object_Invalid,1
	87,000005,UTF8____UTF8Object_initially,3
	88,000011,UTF8____UTF8Object__state,10
	89,000011,UTF8____UTF8Object__methods,104
	90,000001,UTF8____UTF8Object__oprec,0
	91,000001,ClassObject__ClassObject__oprec,0
	92,000005,UTF8____UTF8Object,2
	93,000005,UTF8____UTF8Objectinitialize,0
	94,000005,UTF8__UTF8Set___Coerce,2
	95,000005,UTF8__UTF8Set___AuxMessage,3
	96,000005,UTF8__UTF8Set_Complement,2
	97,000005,UTF8__UTF8Set_Difference,3
	98,000005,UTF8__UTF8Set_Intersect,3
	99,000005,UTF8__UTF8Set_Union,3
	100,000005,UTF8__UTF8Set_ForEach,2
	101,000005,UTF8__UTF8Set_Size,2
	102,000005,UTF8__UTF8Set_String,2
	103,000005,UTF8__UTF8Set_Subscript,3
	104,000005,UTF8__UTF8Set_Member,-3
	105,000005,UTF8__UTF8Set_Space,1
	106,000005,UTF8__UTF8Set_UTF8Spaces,1
	107,000005,UTF8__UTF8Set_Ascii,1
	108,000005,UTF8__UTF8Set_Rparens,1
	109,000005,UTF8__UTF8Set_Lparens,1
	110,000005,UTF8__UTF8Set_All,1
	111,000005,UTF8__UTF8Set_MaxSize,1
	112,000005,UTF8__UTF8Set_Defined,2
	113,000005,UTF8__UTF8Set_initially,1
	114,000011,UTF8__UTF8Set__state,19
	115,000011,UTF8__UTF8Set__methods,61
	116,000001,UTF8__UTF8Set__oprec,0
	117,000005,UTF8__UTF8Set,0
	118,000005,UTF8__UTF8Setinitialize,0
	119,000005,UTF8____UTF8SetObject___DebugPrint,4
	120,000005,UTF8____UTF8SetObject_Equiv,2
	121,000005,UTF8____UTF8SetObject_Nequiv,2
	122,000005,UTF8____UTF8SetObject_LexEquals,2
	123,000005,UTF8____UTF8SetObject_LexGTorEq,2
	124,000005,UTF8____UTF8SetObject_LexGT,2
	125,000005,UTF8____UTF8SetObject_LexLTorEq,2
	126,000005,UTF8____UTF8SetObject_LexLT,2
	127,000005,UTF8____UTF8SetObject_LexNE,2
	128,000005,UTF8____UTF8SetObject_Complement,1
	129,000005,UTF8____UTF8SetObject_Difference,2
	130,000005,UTF8____UTF8SetObject_Intersect,2
	131,000005,UTF8____UTF8SetObject_Union,2
	132,000005,UTF8____UTF8SetObject_ForEach,1
	133,000005,UTF8____UTF8SetObject_Size,1
	134,000005,UTF8____UTF8SetObject_Subscript,2
	135,000005,UTF8____UTF8SetObject_Random,1
	136,000005,UTF8____UTF8SetObject_TabMatch,1
	137,000005,UTF8____UTF8SetObject_Concatenate,2
	138,000005,UTF8____UTF8SetObject_Subsection,3
	139,000005,UTF8____UTF8SetObject_Member,-2
	140,000005,UTF8____UTF8SetObject_UTF8Value,1
	141,000005,UTF8____UTF8SetObject_String,1
	142,000005,UTF8____UTF8SetObject_initially,2
	143,000011,UTF8____UTF8SetObject__state,13
	144,000011,UTF8____UTF8SetObject__methods,105
	145,000001,UTF8____UTF8SetObject__oprec,0
	146,000005,UTF8____UTF8SetObject,1
	147,000005,UTF8____UTF8SetObjectinitialize,0

proc UTF8__UTF8___Initialise
	local	0,001000,self
	local	1,000020,charlist
	local	2,000020,i
	local	3,000000,string
	local	4,000000,table
	local	5,000000,UTF8__UTF8
	local	6,000000,image
	local	7,000000,char
	local	8,000000,hex
	con	0,002000,1,1
	con	1,002000,3,256
	con	2,002000,1,0
	con	3,002000,3,128
	con	4,002000,3,129
	con	5,002000,3,192
	con	6,002000,3,195
	con	7,002000,3,224
	con	8,002000,1,2
	con	9,002000,3,225
	con	10,002000,3,240
	con	11,002000,1,3
	con	12,002000,3,241
	con	13,002000,3,245
	con	14,002000,1,4
	con	15,010000,1,000
	con	16,010000,1,177
	con	17,010000,1,302
	con	18,010000,1,337
	con	19,010000,1,200
	con	20,010000,1,277
	con	21,010000,1,340
	con	22,010000,1,357
	con	23,010000,1,360
	con	24,010000,1,365
	con	25,010000,3,357,273,277
	con	26,010000,10,137,137,125,124,106,070,102,117,115,072
	con	27,010000,3,357,277,275
	con	28,010000,18,137,137,125,124,106,070,111,156,166,141,154,151,144,103,150,141,162,072
	con	29,010000,33,103,162,145,141,164,151,156,147,040,164,150,145,040,102,171,164,145,040,124,162,141,156,163,154,141,164,145,040,164,141,142,154,145
	con	30,002000,3,193
	con	31,010000,1,303
	con	32,002000,2,65
	con	33,010000,46,103,162,145,141,164,151,156,147,040,164,150,145,040,102,171,164,145,040,124,162,141,156,163,154,141,164,145,040,164,141,142,154,145,040,150,141,163,040,146,151,156,151,163,150,145,144
	con	34,010000,6,061,060,106,106,106,106
	declend
	filen	utf8.icn
	line	588
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	1
	var	3
	line	598
	colm	34
	synt	any
	keywd	cset
	line	598
	colm	33
	synt	any
	invoke	1
	line	598
	colm	22
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	0
	line	604
	colm	17
	synt	any
	field	__UTF8SizeTable
	var	4
	line	604
	colm	40
	synt	any
	invoke	0
	line	604
	colm	33
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	618
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	618
	colm	23
	synt	any
	field	__UTF8SizeTable
	pnull
	var	1
	pnull
	int	0
	int	1
	push1
	line	618
	colm	51
	synt	any
	toby
	line	618
	colm	48
	synt	any
	subsc
	line	618
	colm	39
	synt	any
	subsc
	int	2
	line	618
	colm	59
	synt	any
	asgn
	pop
lab L7
	efail
lab L8
	line	618
	colm	13
	synt	endevery
	unmark
lab L6
	mark	L9
	line	623
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	623
	colm	23
	synt	any
	field	__UTF8SizeTable
	pnull
	var	1
	pnull
	int	0
	int	3
	push1
	line	623
	colm	51
	synt	any
	toby
	line	623
	colm	48
	synt	any
	subsc
	line	623
	colm	39
	synt	any
	subsc
	int	0
	line	623
	colm	59
	synt	any
	asgn
	pop
lab L10
	efail
lab L11
	line	623
	colm	13
	synt	endevery
	unmark
lab L9
	mark	L12
	line	628
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	628
	colm	23
	synt	any
	field	__UTF8SizeTable
	pnull
	var	1
	pnull
	int	4
	int	5
	push1
	line	628
	colm	53
	synt	any
	toby
	line	628
	colm	48
	synt	any
	subsc
	line	628
	colm	39
	synt	any
	subsc
	pnull
	int	0
	line	628
	colm	63
	synt	any
	neg
	line	628
	colm	61
	synt	any
	asgn
	pop
lab L13
	efail
lab L14
	line	628
	colm	13
	synt	endevery
	unmark
lab L12
	mark	L15
	line	633
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	633
	colm	23
	synt	any
	field	__UTF8SizeTable
	pnull
	var	1
	pnull
	int	6
	int	7
	push1
	line	633
	colm	53
	synt	any
	toby
	line	633
	colm	48
	synt	any
	subsc
	line	633
	colm	39
	synt	any
	subsc
	int	8
	line	633
	colm	61
	synt	any
	asgn
	pop
lab L16
	efail
lab L17
	line	633
	colm	13
	synt	endevery
	unmark
lab L15
	mark	L18
	line	638
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	638
	colm	23
	synt	any
	field	__UTF8SizeTable
	pnull
	var	1
	pnull
	int	9
	int	10
	push1
	line	638
	colm	53
	synt	any
	toby
	line	638
	colm	48
	synt	any
	subsc
	line	638
	colm	39
	synt	any
	subsc
	int	11
	line	638
	colm	61
	synt	any
	asgn
	pop
lab L19
	efail
lab L20
	line	638
	colm	13
	synt	endevery
	unmark
lab L18
	mark	L21
	line	643
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	643
	colm	23
	synt	any
	field	__UTF8SizeTable
	pnull
	var	1
	pnull
	int	12
	int	13
	push1
	line	643
	colm	53
	synt	any
	toby
	line	643
	colm	48
	synt	any
	subsc
	line	643
	colm	39
	synt	any
	subsc
	int	14
	line	643
	colm	61
	synt	any
	asgn
	pop
lab L22
	efail
lab L23
	line	643
	colm	13
	synt	endevery
	unmark
lab L21
	mark	L24
	pnull
	pnull
	var	0
	line	652
	colm	17
	synt	any
	field	__UTF8CountTable
	var	4
	line	652
	colm	41
	synt	any
	invoke	0
	line	652
	colm	34
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	line	653
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	653
	colm	23
	synt	any
	field	__UTF8CountTable
	pnull
	var	1
	pnull
	int	0
	int	1
	push1
	line	653
	colm	52
	synt	any
	toby
	line	653
	colm	49
	synt	any
	subsc
	line	653
	colm	40
	synt	any
	subsc
	int	2
	line	653
	colm	60
	synt	any
	asgn
	pop
lab L26
	efail
lab L27
	line	653
	colm	13
	synt	endevery
	unmark
lab L25
	mark	L28
	line	654
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	654
	colm	23
	synt	any
	field	__UTF8CountTable
	pnull
	var	1
	pnull
	int	0
	int	3
	push1
	line	654
	colm	52
	synt	any
	toby
	line	654
	colm	49
	synt	any
	subsc
	line	654
	colm	40
	synt	any
	subsc
	int	0
	line	654
	colm	60
	synt	any
	asgn
	pop
lab L29
	efail
lab L30
	line	654
	colm	13
	synt	endevery
	unmark
lab L28
	mark	L31
	line	655
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	655
	colm	23
	synt	any
	field	__UTF8CountTable
	pnull
	var	1
	pnull
	int	6
	int	7
	push1
	line	655
	colm	54
	synt	any
	toby
	line	655
	colm	49
	synt	any
	subsc
	line	655
	colm	40
	synt	any
	subsc
	int	0
	line	655
	colm	62
	synt	any
	asgn
	pop
lab L32
	efail
lab L33
	line	655
	colm	13
	synt	endevery
	unmark
lab L31
	mark	L34
	line	656
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	656
	colm	23
	synt	any
	field	__UTF8CountTable
	pnull
	var	1
	pnull
	int	9
	int	10
	push1
	line	656
	colm	54
	synt	any
	toby
	line	656
	colm	49
	synt	any
	subsc
	line	656
	colm	40
	synt	any
	subsc
	int	0
	line	656
	colm	62
	synt	any
	asgn
	pop
lab L35
	efail
lab L36
	line	656
	colm	13
	synt	endevery
	unmark
lab L34
	mark	L37
	line	657
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	657
	colm	23
	synt	any
	field	__UTF8CountTable
	pnull
	var	1
	pnull
	int	12
	int	13
	push1
	line	657
	colm	54
	synt	any
	toby
	line	657
	colm	49
	synt	any
	subsc
	line	657
	colm	40
	synt	any
	subsc
	int	0
	line	657
	colm	62
	synt	any
	asgn
	pop
lab L38
	efail
lab L39
	line	657
	colm	13
	synt	endevery
	unmark
lab L37
	mark	L40
	pnull
	pnull
	var	0
	line	671
	colm	17
	synt	any
	field	__UTF8LimitTable
	var	4
	line	671
	colm	41
	synt	any
	invoke	0
	line	671
	colm	34
	synt	any
	asgn
	unmark
lab L40
	mark	L41
	pnull
	pnull
	pnull
	var	0
	line	672
	colm	17
	synt	any
	field	__UTF8LimitTable
	int	0
	line	672
	colm	34
	synt	any
	subsc
	pnull
	pnull
	str	15
	str	16
	line	672
	colm	40
	synt	any
	llist	2
	line	672
	colm	39
	synt	any
	llist	1
	line	672
	colm	37
	synt	any
	asgn
	unmark
lab L41
	mark	L42
	pnull
	pnull
	pnull
	var	0
	line	673
	colm	17
	synt	any
	field	__UTF8LimitTable
	int	8
	line	673
	colm	34
	synt	any
	subsc
	pnull
	pnull
	str	17
	str	18
	line	673
	colm	40
	synt	any
	llist	2
	pnull
	str	19
	str	20
	line	673
	colm	56
	synt	any
	llist	2
	line	673
	colm	39
	synt	any
	llist	2
	line	673
	colm	37
	synt	any
	asgn
	unmark
lab L42
	mark	L43
	pnull
	pnull
	pnull
	var	0
	line	674
	colm	17
	synt	any
	field	__UTF8LimitTable
	int	11
	line	674
	colm	34
	synt	any
	subsc
	pnull
	pnull
	str	21
	str	22
	line	674
	colm	40
	synt	any
	llist	2
	pnull
	str	19
	str	20
	line	674
	colm	56
	synt	any
	llist	2
	pnull
	str	19
	str	20
	line	674
	colm	73
	synt	any
	llist	2
	line	674
	colm	39
	synt	any
	llist	3
	line	674
	colm	37
	synt	any
	asgn
	unmark
lab L43
	mark	L44
	pnull
	pnull
	pnull
	var	0
	line	675
	colm	17
	synt	any
	field	__UTF8LimitTable
	int	14
	line	675
	colm	34
	synt	any
	subsc
	pnull
	pnull
	str	23
	str	24
	line	675
	colm	40
	synt	any
	llist	2
	pnull
	str	19
	str	20
	line	675
	colm	56
	synt	any
	llist	2
	pnull
	str	19
	str	20
	line	675
	colm	73
	synt	any
	llist	2
	pnull
	str	19
	str	20
	line	675
	colm	91
	synt	any
	llist	2
	line	675
	colm	39
	synt	any
	llist	4
	line	675
	colm	37
	synt	any
	asgn
	unmark
lab L44
	mark	L45
	pnull
	pnull
	var	0
	line	680
	colm	17
	synt	any
	field	__SpecialUTF8Strings
	var	4
	line	680
	colm	45
	synt	any
	invoke	0
	line	680
	colm	38
	synt	any
	asgn
	unmark
lab L45
	mark	L46
	pnull
	var	1
	var	3
	line	681
	colm	34
	synt	any
	keywd	ascii
	line	681
	colm	33
	synt	any
	invoke	1
	line	681
	colm	22
	synt	any
	asgn
	unmark
lab L46
	mark	L47
	line	682
	colm	13
	synt	every
	mark0
	pnull
	var	2
	pnull
	var	1
	line	682
	colm	24
	synt	any
	bang
	line	682
	colm	21
	synt	any
	asgn
	pop
	mark0
	pnull
	pnull
	pnull
	var	0
	line	683
	colm	21
	synt	any
	field	__SpecialUTF8Strings
	var	2
	line	683
	colm	42
	synt	any
	subsc
	pnull
	var	5
	line	683
	colm	57
	synt	any
	field	New
	var	2
	line	683
	colm	61
	synt	any
	invoke	1
	line	683
	colm	45
	synt	any
	asgn
	unmark
lab L48
	efail
lab L49
	line	682
	colm	13
	synt	endevery
	unmark
lab L47
	mark	L50
	pnull
	pnull
	pnull
	var	0
	line	685
	colm	17
	synt	any
	field	__SpecialUTF8Strings
	var	1
	line	685
	colm	38
	synt	any
	subsc
	pnull
	var	5
	line	685
	colm	60
	synt	any
	field	New
	var	1
	line	685
	colm	64
	synt	any
	invoke	1
	line	685
	colm	48
	synt	any
	asgn
	unmark
lab L50
	mark	L51
	pnull
	pnull
	var	0
	line	692
	colm	17
	synt	any
	field	__UTF8BOM
	pnull
	var	0
	line	692
	colm	33
	synt	any
	field	SpecialString
	str	25
	line	692
	colm	47
	synt	any
	invoke	1
	line	692
	colm	27
	synt	any
	asgn
	unmark
lab L51
	mark	L52
	pnull
	var	0
	line	694
	colm	17
	synt	any
	field	DebugPrint
	str	26
	var	6
	pnull
	var	0
	line	694
	colm	52
	synt	any
	field	__UTF8BOM
	line	694
	colm	47
	synt	any
	invoke	1
	line	694
	colm	28
	synt	any
	invoke	2
	unmark
lab L52
	mark	L53
	pnull
	pnull
	var	0
	line	699
	colm	17
	synt	any
	field	__UTF8InvalidChar
	pnull
	var	0
	line	699
	colm	41
	synt	any
	field	SpecialString
	str	27
	line	699
	colm	55
	synt	any
	invoke	1
	line	699
	colm	35
	synt	any
	asgn
	unmark
lab L53
	mark	L54
	pnull
	var	0
	line	701
	colm	17
	synt	any
	field	DebugPrint
	str	28
	var	6
	pnull
	var	0
	line	701
	colm	60
	synt	any
	field	__UTF8InvalidChar
	line	701
	colm	55
	synt	any
	invoke	1
	line	701
	colm	28
	synt	any
	invoke	2
	unmark
lab L54
	mark	L55
	pnull
	var	1
	var	3
	line	708
	colm	34
	synt	any
	keywd	cset
	line	708
	colm	33
	synt	any
	invoke	1
	line	708
	colm	22
	synt	any
	asgn
	unmark
lab L55
	mark	L56
	pnull
	var	0
	line	715
	colm	17
	synt	any
	field	DebugPrint
	str	29
	line	715
	colm	28
	synt	any
	invoke	1
	unmark
lab L56
	mark	L57
	pnull
	pnull
	var	0
	line	717
	colm	17
	synt	any
	field	__ByteTranslate
	var	4
	line	717
	colm	40
	synt	any
	invoke	0
	line	717
	colm	33
	synt	any
	asgn
	unmark
lab L57
	mark	L58
	line	723
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	723
	colm	23
	synt	any
	field	__ByteTranslate
	pnull
	var	1
	pnull
	var	2
	pnull
	int	0
	int	3
	push1
	line	723
	colm	54
	synt	any
	toby
	line	723
	colm	50
	synt	any
	asgn
	line	723
	colm	48
	synt	any
	subsc
	line	723
	colm	39
	synt	any
	subsc
	pnull
	var	1
	var	2
	line	723
	colm	73
	synt	any
	subsc
	line	723
	colm	62
	synt	any
	asgn
	pop
lab L59
	efail
lab L60
	line	723
	colm	13
	synt	endevery
	unmark
lab L58
	mark	L61
	line	729
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	729
	colm	23
	synt	any
	field	__ByteTranslate
	pnull
	var	1
	pnull
	var	2
	pnull
	int	4
	int	5
	push1
	line	729
	colm	56
	synt	any
	toby
	line	729
	colm	50
	synt	any
	asgn
	line	729
	colm	48
	synt	any
	subsc
	line	729
	colm	39
	synt	any
	subsc
	pnull
	str	17
	var	7
	pnull
	var	2
	int	0
	line	729
	colm	84
	synt	any
	minus
	line	729
	colm	81
	synt	any
	invoke	1
	line	729
	colm	74
	synt	any
	cat
	line	729
	colm	64
	synt	any
	asgn
	pop
lab L62
	efail
lab L63
	line	729
	colm	13
	synt	endevery
	unmark
lab L61
	mark	L64
	line	735
	colm	13
	synt	every
	mark0
	pnull
	pnull
	pnull
	var	0
	line	735
	colm	23
	synt	any
	field	__ByteTranslate
	pnull
	var	1
	pnull
	var	2
	pnull
	int	30
	int	1
	push1
	line	735
	colm	56
	synt	any
	toby
	line	735
	colm	50
	synt	any
	asgn
	line	735
	colm	48
	synt	any
	subsc
	line	735
	colm	39
	synt	any
	subsc
	pnull
	str	31
	var	7
	pnull
	var	2
	int	32
	line	735
	colm	84
	synt	any
	minus
	line	735
	colm	81
	synt	any
	invoke	1
	line	735
	colm	74
	synt	any
	cat
	line	735
	colm	64
	synt	any
	asgn
	pop
lab L65
	efail
lab L66
	line	735
	colm	13
	synt	endevery
	unmark
lab L64
	mark	L67
	pnull
	var	0
	line	737
	colm	17
	synt	any
	field	DebugPrint
	str	33
	line	737
	colm	28
	synt	any
	invoke	1
	unmark
lab L67
	pnull
	pnull
	var	0
	line	744
	colm	17
	synt	any
	field	__UTF8Max
	var	8
	str	34
	line	744
	colm	32
	synt	any
	invoke	1
	line	744
	colm	27
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	746
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8___ActualPos
	local	0,001000,self
	local	1,001000,ustr
	local	2,001000,i
	local	3,000020,j
	local	4,000020,k
	local	5,000020,data
	local	6,000020,s
	local	7,000000,keyword
	local	8,000000,integer
	local	9,000000,image
	local	10,000000,ximage
	con	0,002000,1,1
	con	1,002000,1,0
	con	2,002000,3,103
	con	3,010000,5,046,146,151,154,145
	con	4,010000,5,046,154,151,156,145
	con	5,002000,3,101
	con	6,002000,1,3
	con	7,010000,5,144,141,164,141,072
	con	8,010000,2,163,072
	con	9,010000,1,012
	con	10,010000,2,151,072
	con	11,010000,2,152,072
	con	12,010000,2,153,072
	declend
	line	782
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	int	0
	line	783
	colm	19
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	4
	int	1
	line	787
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	1
	line	795
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	795
	colm	21
	synt	any
	field	AbortMessage
	int	2
	var	7
	str	3
	pnull
	int	0
	line	795
	colm	46
	synt	any
	invoke	3
	var	7
	str	4
	pnull
	int	0
	line	795
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	796
	colm	34
	synt	any
	field	__AuxMessage
	int	2
	line	796
	colm	47
	synt	any
	invoke	1
	line	795
	colm	34
	synt	any
	invoke	4
	unmark
lab L3
	mark	L4
	pnull
	var	2
	line	798
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	798
	colm	18
	synt	any
	field	AbortMessage
	int	5
	var	7
	str	3
	pnull
	int	0
	line	798
	colm	43
	synt	any
	invoke	3
	var	7
	str	4
	pnull
	int	0
	line	798
	colm	63
	synt	any
	invoke	3
	pnull
	var	0
	line	799
	colm	31
	synt	any
	field	__AuxMessage
	int	5
	line	799
	colm	44
	synt	any
	invoke	1
	line	798
	colm	31
	synt	any
	invoke	4
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	var	2
	var	8
	var	2
	line	801
	colm	24
	synt	any
	invoke	1
	line	801
	colm	12
	synt	any
	asgn
	line	801
	colm	29
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	801
	colm	35
	synt	any
	field	AbortMessage
	int	5
	var	7
	str	3
	pnull
	int	0
	line	801
	colm	60
	synt	any
	invoke	3
	var	7
	str	4
	pnull
	int	0
	line	801
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	802
	colm	48
	synt	any
	field	__AuxMessage
	int	5
	int	6
	line	802
	colm	61
	synt	any
	invoke	2
	var	9
	var	2
	line	802
	colm	74
	synt	any
	invoke	1
	line	801
	colm	48
	synt	any
	invoke	5
lab L7
	unmark
lab L5
	mark	L8
	pnull
	var	5
	pnull
	var	1
	line	809
	colm	21
	synt	any
	field	String
	line	809
	colm	28
	synt	any
	invoke	0
	line	809
	colm	14
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	0
	line	811
	colm	13
	synt	any
	field	DebugPrint
	str	7
	var	10
	var	5
	line	811
	colm	39
	synt	any
	invoke	1
	line	811
	colm	24
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	pnull
	var	6
	pnull
	var	1
	line	817
	colm	18
	synt	any
	field	Size
	line	817
	colm	23
	synt	any
	invoke	0
	line	817
	colm	11
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	0
	line	819
	colm	13
	synt	any
	field	DebugPrint
	str	8
	var	6
	str	9
	str	10
	var	2
	line	819
	colm	24
	synt	any
	invoke	5
	unmark
lab L11
	mark	L12
	pnull
	var	2
	int	0
	line	827
	colm	12
	synt	any
	numlt
	pop
	pnull
	var	2
	pnull
	pnull
	var	6
	int	0
	line	827
	colm	26
	synt	any
	plus
	var	2
	line	827
	colm	30
	synt	any
	plus
	line	827
	colm	21
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	0
	line	829
	colm	13
	synt	any
	field	DebugPrint
	str	10
	var	2
	line	829
	colm	24
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
lab L15
	line	843
	colm	9
	synt	while
	mark0
	pnull
	var	3
	var	2
	line	843
	colm	17
	synt	any
	numle
	pop
	pnull
	var	4
	pnull
	var	5
	line	843
	colm	29
	synt	any
	size
	line	843
	colm	26
	synt	any
	numle
	unmark
	mark	L15
	mark	L18
	pnull
	var	4
	dup
	int	0
	line	844
	colm	15
	synt	any
	plus
	asgn
	unmark
lab L18
	pnull
	var	3
	dup
	pnull
	pnull
	var	0
	line	845
	colm	23
	synt	any
	field	__UTF8CountTable
	pnull
	var	5
	var	4
	line	845
	colm	45
	synt	any
	subsc
	line	845
	colm	40
	synt	any
	subsc
	line	845
	colm	15
	synt	any
	plus
	asgn
lab L16
	unmark
	goto	L15
lab L17
	line	843
	colm	9
	synt	endwhile
	unmark
lab L14
	mark	L19
	pnull
	var	0
	line	848
	colm	13
	synt	any
	field	DebugPrint
	str	10
	var	2
	str	9
	str	11
	var	3
	str	9
	str	12
	var	4
	line	848
	colm	24
	synt	any
	invoke	8
	unmark
lab L19
	mark	L20
	mark	L21
	var	4
	line	850
	colm	9
	synt	any
	pret
lab L21
	synt	any
	pfail
	unmark
lab L20
	pnull
	line	851
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8___Coerce
	local	0,001000,self
	local	1,001000,val
	local	2,000000,type
	local	3,000000,image
	local	4,000000,classname
	local	5,000000,keyword
	local	6,000000,ClassObject__IsObjectOf
	local	7,000000,UTF8__UTF8
	con	0,010000,18,154,145,166,145,154,040,157,146,040,137,137,103,157,145,162,143,145,050
	con	1,010000,15,051,040,164,171,160,145,040,157,146,040,166,141,154,072,040
	con	2,010000,15,040,166,141,154,165,145,040,157,146,040,166,141,154,072,040
	con	3,010000,16,051,040,143,154,141,163,163,040,157,146,040,166,141,154,072,040
	con	4,010000,4,156,157,156,145
	con	5,002000,4,2000
	con	6,010000,5,046,146,151,154,145
	con	7,002000,1,1
	con	8,010000,5,046,154,151,156,145
	con	9,010000,4,125,124,106,070
	con	10,010000,11,162,145,164,165,162,156,040,166,141,154,072
	con	11,010000,26,143,162,145,141,164,151,156,147,040,141,040,116,145,167,040,125,124,106,055,070,040,166,141,154,165,145
	declend
	line	865
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	866
	colm	13
	synt	any
	field	DebugPrint
	str	0
	line	866
	colm	46
	synt	any
	keywd	level
	str	1
	var	2
	var	1
	line	866
	colm	75
	synt	any
	invoke	1
	str	2
	var	3
	var	1
	line	867
	colm	46
	synt	any
	invoke	1
	line	866
	colm	24
	synt	any
	invoke	6
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	868
	colm	13
	synt	any
	field	DebugPrint
	str	0
	line	868
	colm	46
	synt	any
	keywd	level
	str	3
	mark	L3
	var	4
	var	1
	line	868
	colm	81
	synt	any
	invoke	1
	line	868
	colm	87
	synt	any
	esusp
	goto	L4
lab L3
	str	4
lab L4
	line	868
	colm	24
	synt	any
	invoke	4
	unmark
lab L2
	mark	L5
	pnull
	var	1
	line	870
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	870
	colm	20
	synt	any
	field	AbortMessage
	int	5
	var	5
	str	6
	pnull
	int	7
	line	870
	colm	46
	synt	any
	invoke	3
	var	5
	str	8
	pnull
	int	7
	line	870
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	871
	colm	45
	synt	any
	field	__AuxMessage
	int	5
	line	871
	colm	58
	synt	any
	invoke	1
	line	870
	colm	33
	synt	any
	invoke	4
	unmark
lab L5
	mark	L6
	line	873
	colm	9
	synt	ifelse
	mark	L7
	var	6
	var	1
	str	9
	line	873
	colm	35
	synt	any
	invoke	2
	unmark
	mark	L9
	pnull
	var	0
	line	874
	colm	17
	synt	any
	field	DebugPrint
	str	10
	var	3
	var	1
	line	874
	colm	48
	synt	any
	invoke	1
	line	874
	colm	28
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	var	1
	line	876
	colm	13
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L8
lab L7
	mark	L11
	pnull
	var	0
	line	878
	colm	17
	synt	any
	field	DebugPrint
	str	11
	line	878
	colm	28
	synt	any
	invoke	1
	unmark
lab L11
	mark	L12
	pnull
	var	7
	line	880
	colm	30
	synt	any
	field	New
	var	1
	line	880
	colm	34
	synt	any
	invoke	1
	line	880
	colm	13
	synt	any
	pret
lab L12
	synt	any
	pfail
lab L8
	line	873
	colm	9
	synt	endifelse
	unmark
lab L6
	pnull
	line	882
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8___GetAt
	local	0,001000,self
	local	1,001000,ustr
	local	2,001000,i
	local	3,001000,j
	local	4,000020,i1
	local	5,000020,j1
	local	6,000020,k
	local	7,000020,data
	local	8,000000,keyword
	local	9,000000,image
	local	10,000000,ximage
	local	11,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,5,165,163,164,162,072
	con	5,010000,10,040,123,164,162,151,156,147,050,051,072
	con	6,010000,8,040,123,151,172,145,050,051,072
	con	7,002000,1,0
	con	8,010000,2,153,072
	con	9,010000,1,012
	con	10,010000,2,152,072
	con	11,010000,2,151,072
	con	12,010000,3,151,061,072
	con	13,010000,3,152,061,072
	con	14,010000,5,144,141,164,141,072
	con	15,010000,6,052,144,141,164,141,072
	declend
	line	906
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	919
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	919
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	8
	str	1
	pnull
	int	2
	line	919
	colm	46
	synt	any
	invoke	3
	var	8
	str	3
	pnull
	int	2
	line	919
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	920
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	920
	colm	47
	synt	any
	invoke	1
	line	919
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	922
	colm	13
	synt	any
	field	DebugPrint
	str	4
	var	9
	var	1
	line	922
	colm	38
	synt	any
	invoke	1
	str	5
	var	9
	pnull
	var	1
	line	922
	colm	70
	synt	any
	field	String
	line	922
	colm	77
	synt	any
	invoke	0
	line	922
	colm	65
	synt	any
	invoke	1
	str	6
	pnull
	var	1
	line	923
	colm	36
	synt	any
	field	Size
	line	923
	colm	41
	synt	any
	invoke	0
	line	922
	colm	24
	synt	any
	invoke	6
	unmark
lab L2
	mark	L3
	pnull
	var	6
	pnull
	var	1
	line	930
	colm	18
	synt	any
	field	Size
	line	930
	colm	23
	synt	any
	invoke	0
	line	930
	colm	11
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	2
	line	936
	colm	9
	synt	any
	null
	int	2
	line	936
	colm	12
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	2
	int	7
	line	945
	colm	12
	synt	any
	numle
	pop
	pnull
	var	2
	pnull
	pnull
	var	6
	var	2
	line	945
	colm	27
	synt	any
	plus
	int	2
	line	945
	colm	31
	synt	any
	plus
	line	945
	colm	22
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	3
	line	952
	colm	9
	synt	any
	null
	pnull
	var	2
	int	2
	line	952
	colm	17
	synt	any
	plus
	line	952
	colm	12
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	3
	int	7
	line	957
	colm	12
	synt	any
	numle
	pop
	pnull
	var	3
	pnull
	pnull
	var	6
	var	3
	line	957
	colm	27
	synt	any
	plus
	int	2
	line	957
	colm	31
	synt	any
	plus
	line	957
	colm	22
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	2
	var	3
	line	962
	colm	12
	synt	any
	numgt
	pop
	pnull
	var	2
	var	3
	line	962
	colm	22
	synt	any
	swap
	unmark
lab L8
	mark	L9
	pnull
	var	2
	var	3
	line	967
	colm	12
	synt	any
	numeq
	pop
	line	967
	colm	19
	synt	any
	pfail
	unmark
lab L9
	mark	L10
	pnull
	var	0
	line	970
	colm	13
	synt	any
	field	DebugPrint
	str	8
	var	6
	str	9
	str	10
	var	3
	str	9
	str	11
	var	2
	line	970
	colm	24
	synt	any
	invoke	8
	unmark
lab L10
	mark	L11
	mark	L12
	pnull
	mark	L14
	var	2
	line	976
	colm	13
	synt	any
	esusp
	goto	L15
lab L14
	var	3
lab L15
	pnull
	var	6
	int	2
	line	976
	colm	24
	synt	any
	plus
	line	976
	colm	18
	synt	any
	numle
	line	976
	colm	30
	synt	any
	esusp
	goto	L13
lab L12
	line	976
	colm	32
	synt	any
	pfail
lab L13
	unmark
lab L11
	mark	L16
	pnull
	var	4
	pnull
	var	0
	line	983
	colm	19
	synt	any
	field	__ActualPos
	var	1
	var	2
	line	983
	colm	31
	synt	any
	invoke	2
	line	983
	colm	12
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	var	5
	pnull
	var	0
	line	984
	colm	19
	synt	any
	field	__ActualPos
	var	1
	var	3
	line	984
	colm	31
	synt	any
	invoke	2
	line	984
	colm	12
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	var	0
	line	986
	colm	13
	synt	any
	field	DebugPrint
	str	12
	var	4
	str	9
	str	13
	var	5
	line	986
	colm	24
	synt	any
	invoke	5
	unmark
lab L18
	mark	L19
	pnull
	var	7
	pnull
	var	1
	line	992
	colm	21
	synt	any
	field	String
	line	992
	colm	28
	synt	any
	invoke	0
	line	992
	colm	14
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	var	0
	line	994
	colm	13
	synt	any
	field	DebugPrint
	str	14
	var	10
	var	7
	line	994
	colm	39
	synt	any
	invoke	1
	str	9
	str	15
	pnull
	var	7
	line	994
	colm	61
	synt	any
	size
	str	9
	str	12
	var	4
	str	9
	str	13
	var	5
	line	994
	colm	24
	synt	any
	invoke	11
	unmark
lab L20
	mark	L21
	pnull
	var	7
	pnull
	var	7
	var	4
	var	5
	line	1000
	colm	24
	synt	any
	synt	any
	sect
	line	1000
	colm	14
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	pnull
	var	0
	line	1002
	colm	13
	synt	any
	field	DebugPrint
	str	14
	var	10
	var	7
	line	1002
	colm	39
	synt	any
	invoke	1
	line	1002
	colm	24
	synt	any
	invoke	2
	unmark
lab L22
	mark	L23
	mark	L24
	pnull
	var	11
	line	1008
	colm	26
	synt	any
	field	New
	var	7
	line	1008
	colm	30
	synt	any
	invoke	1
	line	1008
	colm	9
	synt	any
	pret
lab L24
	synt	any
	pfail
	unmark
lab L23
	pnull
	line	1009
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8___AuxMessage
	local	0,001000,self
	local	1,001000,errorno
	local	2,001000,messageno
	local	3,000040,ErrorMessages
	local	4,000000,table
	con	0,002000,3,103
	con	1,010000,1,055
	con	2,002000,1,1
	con	3,010000,112,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040,046,156,165,154,154,012,115,151,163,163,151,156,147,040,125,124,106,070,040,157,142,152,145,143,164,057,166,141,154,165,145,040,157,162,040,157,142,152,145,143,164,057,166,141,154,165,145,040,164,150,141,164,040,143,141,156,040,142,145,040,143,157,156,166,145,162,164,145,144,040,164,157,040,141,156,040,125,124,106,070,040,157,142,152,145,143,164,057,166,141,154,165,145,056
	con	4,002000,1,2
	con	5,010000,18,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040
	con	6,002000,1,3
	con	7,010000,51,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040,046,156,165,154,154,012,115,151,163,163,151,156,147,040,125,156,151,143,157,156,040,163,164,162,151,156,147,040,166,141,154,165,145
	con	8,002000,1,4
	con	9,010000,75,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040,046,156,165,154,154,012,115,151,163,163,151,156,147,040,125,156,151,143,157,156,040,151,156,164,145,147,145,162,040,166,141,154,165,145,040,157,162,040,125,156,151,143,157,156,040,163,164,162,151,156,147,040,166,141,154,165,145
	con	10,002000,3,104
	con	11,010000,118,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040,046,156,165,154,154,012,115,151,163,163,151,156,147,040,125,124,106,070,123,145,164,040,157,142,152,145,143,164,057,166,141,154,165,145,040,157,162,040,157,142,152,145,143,164,057,166,141,154,165,145,040,164,150,141,164,040,143,141,156,040,142,145,040,143,157,156,166,145,162,164,145,144,040,164,157,040,141,156,040,125,124,106,070,123,145,164,040,157,142,152,145,143,164,057,166,141,154,165,145,056
	con	12,010000,23,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040,046,156,165,154,154
	con	13,002000,3,110
	con	14,002000,3,113
	con	15,002000,3,120
	con	16,002000,4,2000
	declend
	line	1015
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	3
	var	4
	line	1020
	colm	37
	synt	any
	invoke	0
	line	1020
	colm	27
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	3
	pnull
	pnull
	int	0
	str	1
	line	1022
	colm	31
	synt	any
	cat
	int	2
	line	1022
	colm	38
	synt	any
	cat
	line	1022
	colm	26
	synt	any
	subsc
	str	3
	line	1022
	colm	44
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	3
	pnull
	pnull
	int	0
	str	1
	line	1024
	colm	31
	synt	any
	cat
	int	4
	line	1024
	colm	38
	synt	any
	cat
	line	1024
	colm	26
	synt	any
	subsc
	str	5
	line	1024
	colm	44
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	3
	pnull
	pnull
	int	0
	str	1
	line	1025
	colm	31
	synt	any
	cat
	int	6
	line	1025
	colm	38
	synt	any
	cat
	line	1025
	colm	26
	synt	any
	subsc
	str	7
	line	1025
	colm	44
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	3
	pnull
	pnull
	int	0
	str	1
	line	1027
	colm	31
	synt	any
	cat
	int	8
	line	1027
	colm	38
	synt	any
	cat
	line	1027
	colm	26
	synt	any
	subsc
	str	9
	line	1027
	colm	44
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	3
	pnull
	pnull
	int	10
	str	1
	line	1029
	colm	31
	synt	any
	cat
	int	2
	line	1029
	colm	38
	synt	any
	cat
	line	1029
	colm	26
	synt	any
	subsc
	str	11
	line	1029
	colm	44
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	3
	pnull
	pnull
	int	10
	str	1
	line	1031
	colm	31
	synt	any
	cat
	int	4
	line	1031
	colm	38
	synt	any
	cat
	line	1031
	colm	26
	synt	any
	subsc
	str	12
	line	1031
	colm	44
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	3
	pnull
	pnull
	int	13
	str	1
	line	1032
	colm	31
	synt	any
	cat
	int	2
	line	1032
	colm	38
	synt	any
	cat
	line	1032
	colm	26
	synt	any
	subsc
	str	3
	line	1032
	colm	44
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	3
	pnull
	pnull
	int	14
	str	1
	line	1034
	colm	31
	synt	any
	cat
	int	2
	line	1034
	colm	38
	synt	any
	cat
	line	1034
	colm	26
	synt	any
	subsc
	str	3
	line	1034
	colm	44
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	3
	pnull
	pnull
	int	15
	str	1
	line	1036
	colm	31
	synt	any
	cat
	int	2
	line	1036
	colm	38
	synt	any
	cat
	line	1036
	colm	26
	synt	any
	subsc
	str	11
	line	1036
	colm	44
	synt	any
	asgn
	unmark
lab L13
	pnull
	pnull
	var	3
	pnull
	pnull
	int	16
	str	1
	line	1038
	colm	32
	synt	any
	cat
	int	2
	line	1038
	colm	39
	synt	any
	cat
	line	1038
	colm	26
	synt	any
	subsc
	str	3
	line	1038
	colm	45
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L14
	pnull
	pnull
	var	2
	line	1041
	colm	9
	synt	any
	null
	int	2
	line	1041
	colm	20
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	mark	L16
	mark	L17
	pnull
	pnull
	var	3
	pnull
	pnull
	var	1
	str	1
	line	1042
	colm	39
	synt	any
	cat
	var	2
	line	1042
	colm	46
	synt	any
	cat
	line	1042
	colm	30
	synt	any
	subsc
	line	1042
	colm	16
	synt	any
	nonnull
	line	1042
	colm	60
	synt	any
	esusp
	goto	L18
lab L17
	pnull
	pnull
	pnull
	pnull
	var	0
	line	1042
	colm	69
	synt	any
	field	__m
	line	1042
	colm	73
	synt	any
	field	ClassObject__ClassClass
	line	1042
	colm	97
	synt	any
	field	__AuxMessage
	var	0
	var	1
	var	2
	line	1042
	colm	110
	synt	any
	invoke	3
	line	1042
	colm	62
	synt	any
	nonnull
lab L18
	line	1042
	colm	9
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	1043
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_BOMFound
	local	0,001000,self
	local	1,001000,str
	local	2,000020,str1
	local	3,000000,keyword
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	1059
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	1070
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	1070
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	1070
	colm	45
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	1070
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	1071
	colm	33
	synt	any
	field	__AuxMessage
	int	0
	line	1071
	colm	46
	synt	any
	invoke	1
	line	1070
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	1079
	colm	21
	synt	any
	field	__Coerce
	var	1
	line	1079
	colm	30
	synt	any
	invoke	1
	line	1079
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	2
	line	1085
	colm	20
	synt	any
	field	String
	line	1085
	colm	27
	synt	any
	invoke	0
	line	1085
	colm	30
	synt	any
	bscan
	pnull
	pnull
	pnull
	var	0
	line	1085
	colm	38
	synt	any
	field	__UTF8BOM
	line	1085
	colm	48
	synt	any
	field	String
	line	1085
	colm	55
	synt	any
	invoke	0
	line	1085
	colm	33
	synt	any
	tabmat
	pop
	pnull
	var	0
	line	1085
	colm	62
	synt	any
	field	__UTF8BOM
	line	1085
	colm	30
	synt	any
	escan
	line	1085
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	1086
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_SkipBOM
	local	0,001000,self
	local	1,001000,str
	local	2,000020,str1
	local	3,000020,str2
	local	4,000000,keyword
	local	5,000000,ximage
	local	6,000000,tab
	local	7,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,14,163,164,162,061,056,123,164,162,151,156,147,050,051,072
	con	5,002000,1,0
	con	6,010000,5,163,164,162,062,072
	declend
	line	1104
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	1118
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	1118
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	4
	str	1
	pnull
	int	2
	line	1118
	colm	45
	synt	any
	invoke	3
	var	4
	str	3
	pnull
	int	2
	line	1118
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	1119
	colm	33
	synt	any
	field	__AuxMessage
	int	0
	line	1119
	colm	46
	synt	any
	invoke	1
	line	1118
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	1127
	colm	21
	synt	any
	field	__Coerce
	var	1
	line	1127
	colm	30
	synt	any
	invoke	1
	line	1127
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	0
	line	1129
	colm	13
	synt	any
	field	DebugPrint
	str	4
	var	5
	pnull
	var	2
	line	1129
	colm	53
	synt	any
	field	String
	line	1129
	colm	60
	synt	any
	invoke	0
	line	1129
	colm	48
	synt	any
	invoke	1
	line	1129
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	pnull
	var	2
	line	1134
	colm	13
	synt	any
	field	String
	line	1134
	colm	20
	synt	any
	invoke	0
	line	1134
	colm	23
	synt	any
	bscan
	mark	L5
	pnull
	pnull
	pnull
	var	0
	line	1140
	colm	19
	synt	any
	field	__UTF8BOM
	line	1140
	colm	29
	synt	any
	field	String
	line	1140
	colm	36
	synt	any
	invoke	0
	line	1140
	colm	13
	synt	any
	tabmat
	unmark
lab L5
	pnull
	var	3
	var	6
	int	5
	line	1146
	colm	26
	synt	any
	invoke	1
	line	1146
	colm	18
	synt	any
	asgn
	line	1134
	colm	23
	synt	any
	escan
	unmark
lab L4
	mark	L6
	pnull
	var	0
	line	1149
	colm	13
	synt	any
	field	DebugPrint
	str	6
	var	5
	var	3
	line	1149
	colm	39
	synt	any
	invoke	1
	line	1149
	colm	24
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	line	1156
	colm	9
	synt	ifelse
	mark	L8
	pnull
	pnull
	var	2
	line	1156
	colm	16
	synt	any
	field	String
	line	1156
	colm	23
	synt	any
	invoke	0
	var	3
	line	1156
	colm	26
	synt	any
	lexeq
	unmark
	mark	L10
	var	1
	line	1157
	colm	13
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L9
lab L8
	mark	L11
	pnull
	var	7
	line	1159
	colm	30
	synt	any
	field	New
	var	3
	line	1159
	colm	34
	synt	any
	invoke	1
	line	1159
	colm	13
	synt	any
	pret
lab L11
	synt	any
	pfail
lab L9
	line	1156
	colm	9
	synt	endifelse
	unmark
lab L7
	pnull
	line	1161
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Valid
	local	0,001000,self
	local	1,001000,str
	local	2,000020,i
	local	3,000020,local_str
	local	4,000020,byte
	local	5,000020,lowerbyte
	local	6,000020,upperbyte
	local	7,000020,limits
	local	8,000020,j
	local	9,000020,data
	local	10,000000,keyword
	local	11,000000,type
	local	12,000000,image
	local	13,000000,ClassObject__IsObjectOf
	local	14,000000,ClassObject__IsObject
	local	15,000000,string
	local	16,000000,ximage
	local	17,000000,pos
	local	18,000000,move
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,13,164,171,160,145,040,157,146,040,163,164,162,072,040
	con	5,010000,15,040,166,141,154,165,145,040,157,146,040,163,164,162,072,040
	con	6,010000,6,163,164,162,151,156,147
	con	7,010000,4,125,124,106,070
	con	8,010000,7,125,124,106,070,123,145,164
	con	9,002000,1,2
	con	10,010000,14,164,171,160,145,040,157,146,040,144,141,164,141,072,040
	con	11,010000,15,040,166,141,154,165,145,040,157,146,040,144,141,164,141,072
	con	12,010000,5,144,141,164,141,072
	con	13,002000,1,0
	con	14,010000,5,142,171,164,145,072
	con	15,010000,2,052,072
	con	16,010000,2,072,052
	con	17,010000,2,154,072
	con	18,010000,2,072,154
	con	19,010000,10,154,157,167,145,162,142,171,164,145,072
	con	20,010000,11,040,165,160,160,145,162,142,171,164,145,072
	declend
	line	1185
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	1223
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	1223
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	10
	str	1
	pnull
	int	2
	line	1223
	colm	45
	synt	any
	invoke	3
	var	10
	str	3
	pnull
	int	2
	line	1223
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	1224
	colm	33
	synt	any
	field	__AuxMessage
	int	0
	line	1224
	colm	46
	synt	any
	invoke	1
	line	1223
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	1227
	colm	13
	synt	any
	field	DebugPrint
	str	4
	var	11
	var	1
	line	1227
	colm	45
	synt	any
	invoke	1
	str	5
	var	12
	var	1
	line	1227
	colm	76
	synt	any
	invoke	1
	line	1227
	colm	24
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	9
	line	1229
	colm	17
	synt	ifelse
	mark	L4
	pnull
	var	11
	var	1
	line	1229
	colm	26
	synt	any
	invoke	1
	str	6
	line	1229
	colm	32
	synt	any
	lexeq
	unmark
	var	1
	goto	L5
lab L4
	line	1231
	colm	16
	synt	ifelse
	mark	L6
	var	13
	var	1
	str	7
	line	1231
	colm	42
	synt	any
	invoke	2
	unmark
	pnull
	var	1
	line	1232
	colm	16
	synt	any
	field	String
	line	1232
	colm	23
	synt	any
	invoke	0
	goto	L7
lab L6
	line	1233
	colm	16
	synt	ifelse
	mark	L8
	var	14
	var	1
	str	8
	line	1233
	colm	40
	synt	any
	invoke	2
	unmark
	pnull
	pnull
	var	1
	line	1234
	colm	16
	synt	any
	field	UTF8Value
	line	1234
	colm	26
	synt	any
	invoke	0
	line	1234
	colm	28
	synt	any
	field	String
	line	1234
	colm	35
	synt	any
	invoke	0
	goto	L9
lab L8
	line	1235
	colm	16
	synt	ifelse
	mark	L10
	var	15
	var	1
	line	1235
	colm	27
	synt	any
	invoke	1
	unmark
	var	15
	var	1
	line	1236
	colm	21
	synt	any
	invoke	1
	goto	L11
lab L10
	pnull
	var	0
	line	1238
	colm	17
	synt	any
	field	AbortMessage
	int	0
	var	10
	str	1
	pnull
	int	2
	line	1238
	colm	42
	synt	any
	invoke	3
	var	10
	str	3
	pnull
	int	2
	line	1238
	colm	62
	synt	any
	invoke	3
	pnull
	var	0
	line	1239
	colm	30
	synt	any
	field	__AuxMessage
	int	0
	int	9
	line	1239
	colm	43
	synt	any
	invoke	2
	var	12
	var	1
	line	1239
	colm	56
	synt	any
	invoke	1
	line	1238
	colm	30
	synt	any
	invoke	5
lab L11
	line	1235
	colm	16
	synt	endifelse
lab L9
	line	1233
	colm	16
	synt	endifelse
lab L7
	line	1231
	colm	16
	synt	endifelse
lab L5
	line	1229
	colm	17
	synt	endifelse
	line	1229
	colm	14
	synt	any
	asgn
	unmark
lab L3
	mark	L12
	pnull
	var	0
	line	1242
	colm	13
	synt	any
	field	DebugPrint
	str	10
	var	11
	var	9
	line	1242
	colm	46
	synt	any
	invoke	1
	str	11
	var	12
	var	9
	line	1242
	colm	78
	synt	any
	invoke	1
	line	1242
	colm	24
	synt	any
	invoke	4
	unmark
lab L12
	mark	L13
	var	9
	line	1248
	colm	14
	synt	any
	bscan
	mark	L14
	pnull
	var	0
	line	1250
	colm	17
	synt	any
	field	DebugPrint
	str	12
	var	16
	var	9
	line	1250
	colm	43
	synt	any
	invoke	1
	line	1250
	colm	28
	synt	any
	invoke	2
	unmark
lab L14
	mark	L15
lab L16
	line	1256
	colm	13
	synt	while
	mark0
	mark	L19
	var	17
	int	13
	line	1256
	colm	28
	synt	any
	invoke	1
	unmark
	efail
lab L19
	pnull
	unmark
	mark	L16
	mark	L20
	pnull
	var	4
	var	18
	int	2
	line	1262
	colm	31
	synt	any
	invoke	1
	line	1262
	colm	22
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	var	0
	line	1264
	colm	21
	synt	any
	field	DebugPrint
	str	14
	var	16
	var	4
	line	1264
	colm	47
	synt	any
	invoke	1
	line	1264
	colm	32
	synt	any
	invoke	2
	unmark
lab L21
	line	1280
	colm	17
	synt	ifelse
	mark	L22
	pnull
	pnull
	var	2
	pnull
	pnull
	var	0
	line	1280
	colm	30
	synt	any
	field	__UTF8SizeTable
	var	4
	line	1280
	colm	46
	synt	any
	subsc
	line	1280
	colm	23
	synt	any
	asgn
	int	2
	line	1280
	colm	53
	synt	any
	numge
	unmark
	mark	L24
	pnull
	var	0
	line	1282
	colm	25
	synt	any
	field	DebugPrint
	str	15
	var	2
	str	16
	line	1282
	colm	36
	synt	any
	invoke	3
	unmark
lab L24
	mark	L25
	pnull
	var	7
	pnull
	pnull
	var	0
	line	1290
	colm	35
	synt	any
	field	__UTF8LimitTable
	var	2
	line	1290
	colm	52
	synt	any
	subsc
	line	1290
	colm	28
	synt	any
	asgn
	unmark
lab L25
	mark	L26
	pnull
	var	0
	line	1293
	colm	25
	synt	any
	field	DebugPrint
	str	17
	var	16
	var	7
	line	1293
	colm	48
	synt	any
	invoke	1
	str	18
	line	1293
	colm	36
	synt	any
	invoke	3
	unmark
lab L26
	mark	L27
	pnull
	var	5
	pnull
	pnull
	var	7
	int	2
	line	1299
	colm	40
	synt	any
	subsc
	int	2
	synt	any
	subsc
	line	1299
	colm	31
	synt	any
	asgn
	unmark
lab L27
	mark	L28
	pnull
	var	6
	pnull
	pnull
	var	7
	int	2
	line	1300
	colm	40
	synt	any
	subsc
	int	9
	synt	any
	subsc
	line	1300
	colm	31
	synt	any
	asgn
	unmark
lab L28
	mark	L29
	pnull
	var	0
	line	1302
	colm	25
	synt	any
	field	DebugPrint
	str	19
	var	12
	var	5
	line	1302
	colm	55
	synt	any
	invoke	1
	str	20
	var	12
	var	6
	line	1302
	colm	88
	synt	any
	invoke	1
	line	1302
	colm	36
	synt	any
	invoke	4
	unmark
lab L29
	line	1310
	colm	21
	synt	ifelse
	mark	L30
	pnull
	pnull
	var	5
	var	4
	line	1310
	colm	34
	synt	any
	lexle
	var	6
	line	1310
	colm	43
	synt	any
	lexle
	unmark
	line	1311
	colm	25
	synt	every
	mark0
	pnull
	var	8
	pnull
	int	9
	var	2
	push1
	line	1311
	colm	38
	synt	any
	toby
	line	1311
	colm	33
	synt	any
	asgn
	pop
	mark0
	mark	L34
	pnull
	var	4
	var	18
	int	2
	line	1312
	colm	43
	synt	any
	invoke	1
	line	1312
	colm	34
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	pnull
	var	5
	pnull
	pnull
	var	7
	var	8
	line	1313
	colm	48
	synt	any
	subsc
	int	2
	synt	any
	subsc
	line	1313
	colm	39
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	pnull
	var	6
	pnull
	pnull
	var	7
	var	8
	line	1314
	colm	48
	synt	any
	subsc
	int	9
	synt	any
	subsc
	line	1314
	colm	39
	synt	any
	asgn
	unmark
lab L36
	line	1315
	colm	29
	synt	if
	mark0
	mark	L37
	pnull
	pnull
	var	5
	var	4
	line	1315
	colm	47
	synt	any
	lexle
	var	6
	line	1315
	colm	56
	synt	any
	lexle
	unmark
	efail
lab L37
	pnull
	unmark
	line	1316
	colm	33
	synt	any
	pfail
	line	1315
	colm	29
	synt	endif
	unmark
lab L32
	efail
lab L33
	line	1311
	colm	25
	synt	endevery
	goto	L31
lab L30
	line	1326
	colm	25
	synt	any
	pfail
lab L31
	line	1310
	colm	21
	synt	endifelse
	goto	L23
lab L22
	line	1334
	colm	21
	synt	any
	pfail
lab L23
	line	1280
	colm	17
	synt	endifelse
lab L17
	unmark
	goto	L16
lab L18
	line	1256
	colm	13
	synt	endwhile
	unmark
lab L15
	mark	L38
	var	9
	line	1343
	colm	13
	synt	any
	pret
lab L38
	synt	any
	pfail
	line	1248
	colm	14
	synt	any
	escan
	unmark
lab L13
	pnull
	line	1345
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_ByteTranslate
	local	0,001000,self
	local	1,001000,byte
	local	2,000020,temp
	local	3,000000,ximage
	local	4,000000,type
	local	5,000000,string
	con	0,010000,5,142,171,164,145,072
	con	1,010000,6,163,164,162,151,156,147
	con	2,010000,4,143,163,145,164
	con	3,002000,1,1
	con	4,010000,17,040,137,137,102,171,164,145,124,162,141,156,163,154,141,164,145,133
	con	5,010000,2,135,072
	con	6,010000,8,142,171,164,145,133,061,135,072
	declend
	line	1351
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	1354
	colm	13
	synt	any
	field	IsOn
	line	1354
	colm	18
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	1355
	colm	13
	synt	any
	field	DebugPrint
	str	0
	var	3
	var	1
	line	1355
	colm	39
	synt	any
	invoke	1
	line	1355
	colm	24
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	line	1357
	colm	9
	synt	ifelse
	mark	L4
	pnull
	var	4
	var	1
	line	1357
	colm	18
	synt	any
	invoke	1
	mark	L6
	str	1
	line	1357
	colm	38
	synt	any
	esusp
	goto	L7
lab L6
	str	2
lab L7
	line	1357
	colm	25
	synt	any
	lexeq
	unmark
	mark	L8
	pnull
	var	2
	var	5
	var	1
	line	1358
	colm	29
	synt	any
	invoke	1
	line	1358
	colm	18
	synt	any
	asgn
	unmark
lab L8
	line	1359
	colm	13
	synt	ifelse
	mark	L9
	pnull
	pnull
	var	1
	line	1359
	colm	16
	synt	any
	size
	int	3
	line	1359
	colm	22
	synt	any
	numeq
	unmark
	mark	L11
	pnull
	var	0
	line	1360
	colm	21
	synt	any
	field	DebugPrint
	str	0
	var	3
	var	1
	line	1360
	colm	47
	synt	any
	invoke	1
	str	4
	var	3
	var	1
	line	1361
	colm	36
	synt	any
	invoke	1
	str	5
	var	3
	pnull
	pnull
	var	0
	line	1361
	colm	63
	synt	any
	field	__ByteTranslate
	var	1
	line	1361
	colm	79
	synt	any
	subsc
	line	1361
	colm	58
	synt	any
	invoke	1
	line	1360
	colm	32
	synt	any
	invoke	6
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	0
	line	1363
	colm	28
	synt	any
	field	__ByteTranslate
	var	1
	line	1363
	colm	44
	synt	any
	subsc
	line	1363
	colm	17
	synt	any
	pret
lab L12
	synt	any
	pfail
	goto	L10
lab L9
	line	1364
	colm	20
	synt	ifelse
	mark	L13
	pnull
	pnull
	var	1
	line	1364
	colm	23
	synt	any
	size
	int	3
	line	1364
	colm	29
	synt	any
	numgt
	unmark
	mark	L15
	pnull
	var	0
	line	1365
	colm	21
	synt	any
	field	DebugPrint
	str	6
	var	3
	pnull
	var	1
	int	3
	line	1365
	colm	55
	synt	any
	subsc
	line	1365
	colm	50
	synt	any
	invoke	1
	str	4
	var	3
	pnull
	var	1
	int	3
	line	1366
	colm	41
	synt	any
	subsc
	line	1366
	colm	36
	synt	any
	invoke	1
	str	5
	var	3
	pnull
	pnull
	var	0
	line	1366
	colm	66
	synt	any
	field	__ByteTranslate
	pnull
	var	1
	int	3
	line	1366
	colm	87
	synt	any
	subsc
	line	1366
	colm	82
	synt	any
	subsc
	line	1366
	colm	61
	synt	any
	invoke	1
	line	1365
	colm	32
	synt	any
	invoke	6
	unmark
lab L15
	mark	L16
	pnull
	pnull
	var	0
	line	1368
	colm	28
	synt	any
	field	__ByteTranslate
	pnull
	var	1
	int	3
	line	1368
	colm	49
	synt	any
	subsc
	line	1368
	colm	44
	synt	any
	subsc
	line	1368
	colm	17
	synt	any
	pret
lab L16
	synt	any
	pfail
	goto	L14
lab L13
	line	1370
	colm	17
	synt	any
	pfail
lab L14
	line	1364
	colm	20
	synt	endifelse
lab L10
	line	1359
	colm	13
	synt	endifelse
	goto	L5
lab L4
	line	1373
	colm	13
	synt	any
	pfail
lab L5
	line	1357
	colm	9
	synt	endifelse
	unmark
lab L3
	pnull
	line	1375
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Multibyte
	local	0,001000,self
	local	1,001000,codepoint
	local	2,000020,local_codepoint
	local	3,000000,keyword
	local	4,000000,ximage
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,28,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,143,157,144,145,160,157,151,156,164,072
	declend
	line	1394
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	1405
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	1405
	colm	26
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	1405
	colm	51
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	1405
	colm	71
	synt	any
	invoke	3
	pnull
	var	0
	line	1406
	colm	39
	synt	any
	field	__AuxMessage
	int	0
	line	1406
	colm	52
	synt	any
	invoke	1
	line	1405
	colm	39
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	1413
	colm	32
	synt	any
	field	__Coerce
	var	1
	line	1413
	colm	41
	synt	any
	invoke	1
	line	1413
	colm	25
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	0
	line	1415
	colm	13
	synt	any
	field	DebugPrint
	str	4
	var	4
	pnull
	var	2
	line	1415
	colm	78
	synt	any
	field	String
	line	1415
	colm	85
	synt	any
	invoke	0
	line	1415
	colm	62
	synt	any
	invoke	1
	line	1415
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	line	1424
	colm	9
	synt	ifelse
	mark	L5
	pnull
	pnull
	var	0
	line	1424
	colm	16
	synt	any
	field	Size
	var	2
	line	1424
	colm	21
	synt	any
	invoke	1
	int	2
	line	1424
	colm	38
	synt	any
	numeq
	pop
	pnull
	pnull
	pnull
	var	2
	line	1424
	colm	57
	synt	any
	field	String
	line	1424
	colm	64
	synt	any
	invoke	0
	line	1424
	colm	41
	synt	any
	size
	int	2
	line	1424
	colm	66
	synt	any
	numgt
	unmark
	mark	L7
	pnull
	var	0
	line	1429
	colm	24
	synt	any
	field	SpecialString
	pnull
	var	2
	line	1429
	colm	54
	synt	any
	field	String
	line	1429
	colm	61
	synt	any
	invoke	0
	line	1429
	colm	38
	synt	any
	invoke	1
	line	1429
	colm	13
	synt	any
	pret
lab L7
	synt	any
	pfail
	goto	L6
lab L5
	line	1435
	colm	13
	synt	any
	pfail
lab L6
	line	1424
	colm	9
	synt	endifelse
	unmark
lab L4
	pnull
	line	1437
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_SpecialString
	local	0,001000,self
	local	1,001000,str
	local	2,000020,temp
	local	3,000000,keyword
	local	4,000000,type
	local	5,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,6,163,164,162,151,156,147
	declend
	line	1446
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	1449
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	1449
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	1449
	colm	45
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	1449
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	1450
	colm	33
	synt	any
	field	__AuxMessage
	int	0
	line	1450
	colm	46
	synt	any
	invoke	1
	line	1449
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	4
	var	1
	line	1452
	colm	16
	synt	any
	invoke	1
	str	4
	line	1452
	colm	22
	synt	any
	lexeq
	pop
	pnull
	pnull
	pnull
	var	0
	line	1452
	colm	41
	synt	any
	field	__SpecialUTF8Strings
	var	1
	line	1452
	colm	62
	synt	any
	subsc
	line	1452
	colm	36
	synt	any
	nonnull
	pop
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	1452
	colm	79
	synt	any
	field	__SpecialUTF8Strings
	var	1
	line	1452
	colm	100
	synt	any
	subsc
	line	1452
	colm	74
	synt	any
	value
	line	1452
	colm	68
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	mark	L4
	line	1454
	colm	9
	synt	if
	mark0
	pnull
	var	2
	pnull
	var	0
	line	1454
	colm	24
	synt	any
	field	Valid
	var	1
	line	1454
	colm	30
	synt	any
	invoke	1
	line	1454
	colm	17
	synt	any
	asgn
	pop
	pnull
	pnull
	pnull
	var	0
	line	1454
	colm	41
	synt	any
	field	__SpecialUTF8Strings
	var	1
	line	1454
	colm	62
	synt	any
	subsc
	line	1454
	colm	36
	synt	any
	null
	unmark
	mark	L5
	pnull
	pnull
	pnull
	pnull
	var	0
	line	1455
	colm	26
	synt	any
	field	__SpecialUTF8Strings
	var	2
	line	1455
	colm	47
	synt	any
	subsc
	pnull
	var	5
	line	1455
	colm	65
	synt	any
	field	New
	var	2
	line	1455
	colm	69
	synt	any
	invoke	1
	line	1455
	colm	53
	synt	any
	asgn
	line	1455
	colm	20
	synt	any
	value
	line	1455
	colm	13
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	1454
	colm	9
	synt	endif
	unmark
lab L4
	pnull
	line	1457
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_ToUnicode32
	local	0,001000,self
	local	1,001000,ustr
	local	2,000020,byte
	local	3,000020,local_ustr
	local	4,000020,bytecnt
	local	5,000020,i
	local	6,000020,val
	local	7,000020,valo
	local	8,000020,data
	local	9,000020,bytechar
	local	10,000020,bytestr
	local	11,000000,keyword
	local	12,000000,ord
	local	13,000000,iand
	local	14,000000,ishift
	local	15,000000,hexstring
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,5,16r7f
	con	5,002000,1,2
	con	6,002000,5,16r1f
	con	7,002000,1,3
	con	8,002000,4,16rf
	con	9,002000,1,4
	con	10,002000,4,16r7
	con	11,002000,1,0
	con	12,002000,5,16rc0
	con	13,002000,5,16r80
	con	14,002000,1,6
	con	15,002000,5,16r3f
	con	16,002000,1,5
	con	17,010000,2,125,053
	declend
	line	1484
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	1516
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	1516
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	11
	str	1
	pnull
	int	2
	line	1516
	colm	46
	synt	any
	invoke	3
	var	11
	str	3
	pnull
	int	2
	line	1516
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	1517
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	1517
	colm	47
	synt	any
	invoke	1
	line	1516
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	3
	pnull
	var	0
	line	1525
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	1525
	colm	36
	synt	any
	invoke	1
	line	1525
	colm	20
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	1532
	colm	9
	synt	if
	mark0
	pnull
	var	0
	line	1532
	colm	16
	synt	any
	field	Valid
	var	3
	line	1532
	colm	22
	synt	any
	invoke	1
	unmark
	line	1533
	colm	13
	synt	every
	mark0
	pnull
	var	2
	var	12
	pnull
	var	9
	pnull
	pnull
	var	10
	pnull
	pnull
	var	0
	line	1533
	colm	60
	synt	any
	field	ForEach
	var	3
	line	1533
	colm	68
	synt	any
	invoke	1
	line	1533
	colm	80
	synt	any
	field	String
	line	1533
	colm	87
	synt	any
	invoke	0
	line	1533
	colm	53
	synt	any
	asgn
	int	2
	line	1533
	colm	90
	synt	any
	subsc
	line	1533
	colm	42
	synt	any
	asgn
	line	1533
	colm	32
	synt	any
	invoke	1
	line	1533
	colm	24
	synt	any
	asgn
	pop
	mark0
	mark	L6
	pnull
	var	4
	pnull
	pnull
	var	0
	line	1539
	colm	32
	synt	any
	field	__UTF8SizeTable
	var	9
	line	1539
	colm	48
	synt	any
	subsc
	line	1539
	colm	25
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	1547
	colm	17
	synt	case
	mark0
	var	4
	eret
	mark	L9
	ccase
	int	2
	line	1551
	colm	23
	synt	any
	eqv
	unmark
	pop
	pnull
	var	6
	var	13
	int	4
	var	2
	line	1552
	colm	38
	synt	any
	invoke	2
	line	1552
	colm	29
	synt	any
	asgn
	goto	L8
lab L9
	mark	L10
	ccase
	int	5
	line	1559
	colm	23
	synt	any
	eqv
	unmark
	pop
	pnull
	var	6
	var	13
	int	6
	var	2
	line	1560
	colm	38
	synt	any
	invoke	2
	line	1560
	colm	29
	synt	any
	asgn
	goto	L8
lab L10
	mark	L11
	ccase
	int	7
	line	1567
	colm	23
	synt	any
	eqv
	unmark
	pop
	pnull
	var	6
	var	13
	int	8
	var	2
	line	1568
	colm	38
	synt	any
	invoke	2
	line	1568
	colm	29
	synt	any
	asgn
	goto	L8
lab L11
	mark	L12
	ccase
	int	9
	line	1575
	colm	23
	synt	any
	eqv
	unmark
	pop
	pnull
	var	6
	var	13
	int	10
	var	2
	line	1576
	colm	38
	synt	any
	invoke	2
	line	1576
	colm	29
	synt	any
	asgn
	goto	L8
lab L12
	pop
	pnull
	var	6
	int	11
	line	1587
	colm	29
	synt	any
	asgn
lab L8
	line	1547
	colm	17
	synt	endcase
	unmark
lab L7
	mark	L13
	line	1598
	colm	17
	synt	every
	mark0
	pnull
	var	5
	pnull
	int	5
	var	4
	push1
	line	1598
	colm	30
	synt	any
	toby
	line	1598
	colm	25
	synt	any
	asgn
	pop
	mark0
	mark	L16
	pnull
	var	2
	var	12
	pnull
	var	10
	var	5
	line	1599
	colm	42
	synt	any
	subsc
	line	1599
	colm	34
	synt	any
	invoke	1
	line	1599
	colm	26
	synt	any
	asgn
	unmark
lab L16
	line	1600
	colm	21
	synt	if
	mark0
	pnull
	var	13
	int	12
	var	2
	line	1600
	colm	30
	synt	any
	invoke	2
	int	13
	line	1600
	colm	44
	synt	any
	numeq
	unmark
	pnull
	var	6
	pnull
	var	14
	var	6
	int	14
	line	1601
	colm	40
	synt	any
	invoke	2
	var	13
	int	15
	var	2
	line	1601
	colm	57
	synt	any
	invoke	2
	line	1601
	colm	49
	synt	any
	plus
	line	1601
	colm	29
	synt	any
	asgn
	line	1600
	colm	21
	synt	endif
	unmark
lab L14
	efail
lab L15
	line	1598
	colm	17
	synt	endevery
	unmark
lab L13
	mark	L17
	pnull
	var	7
	var	15
	var	6
	mark	L18
	pnull
	var	4
	int	9
	line	1609
	colm	50
	synt	any
	numlt
	line	1609
	colm	54
	synt	any
	esusp
	goto	L19
lab L18
	int	16
lab L19
	line	1609
	colm	36
	synt	any
	invoke	2
	line	1609
	colm	22
	synt	any
	asgn
	unmark
lab L17
	line	1615
	colm	17
	synt	suspend
	mark0
	pnull
	str	17
	var	7
	line	1615
	colm	30
	synt	any
	cat
	line	1615
	colm	17
	synt	any
	psusp
	pop
lab L20
	efail
lab L21
	line	1615
	colm	17
	synt	endsuspend
	unmark
lab L4
	efail
lab L5
	line	1533
	colm	13
	synt	endevery
	line	1532
	colm	9
	synt	endif
	unmark
lab L3
	pnull
	line	1618
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Unicode32To
	local	0,001000,self
	local	1,001000,unicode
	local	2,000020,local_unicode
	local	3,000000,keyword
	local	4,000000,string
	local	5,000000,map
	local	6,000000,tab
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,1,4
	con	5,010000,2,125,053
	con	6,002000,1,0
	declend
	line	1640
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	1651
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	1651
	colm	24
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	1651
	colm	49
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	1651
	colm	69
	synt	any
	invoke	3
	pnull
	var	0
	line	1652
	colm	37
	synt	any
	field	__AuxMessage
	int	0
	int	4
	line	1652
	colm	50
	synt	any
	invoke	2
	line	1651
	colm	37
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	line	1660
	colm	9
	synt	if
	mark0
	pnull
	var	2
	var	4
	pnull
	var	1
	line	1660
	colm	38
	synt	any
	nonnull
	line	1660
	colm	37
	synt	any
	invoke	1
	line	1660
	colm	26
	synt	any
	asgn
	unmark
	mark	L3
	pnull
	var	2
	var	5
	var	2
	line	1661
	colm	51
	synt	any
	keywd	lcase
	line	1661
	colm	59
	synt	any
	keywd	ucase
	line	1661
	colm	35
	synt	any
	invoke	3
	line	1661
	colm	27
	synt	any
	asgn
	unmark
lab L3
	var	2
	line	1662
	colm	27
	synt	any
	bscan
	pnull
	str	5
	line	1663
	colm	17
	synt	any
	tabmat
	pop
	mark	L4
	pnull
	var	0
	line	1664
	colm	28
	synt	any
	field	HexTo
	var	6
	int	6
	line	1664
	colm	38
	synt	any
	invoke	1
	line	1664
	colm	34
	synt	any
	invoke	1
	line	1664
	colm	17
	synt	any
	pret
lab L4
	synt	any
	pfail
	line	1662
	colm	27
	synt	any
	escan
	line	1660
	colm	9
	synt	endif
	unmark
lab L2
	pnull
	line	1670
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_HexTo
	local	0,001000,self
	local	1,001000,hexcode
	local	2,000020,val
	local	3,000020,local_hexcode
	local	4,000020,valo
	local	5,000020,c1
	local	6,000020,c2
	local	7,000020,c3
	local	8,000020,c4
	local	9,000000,keyword
	local	10,000000,string
	local	11,000000,map
	local	12,000000,hex
	local	13,000000,iand
	local	14,000000,char
	local	15,000000,ior
	local	16,000000,ishift
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,1,4
	con	5,002000,5,16r80
	con	6,002000,5,16r7f
	con	7,002000,6,16r800
	con	8,002000,5,16rc0
	con	9,002000,6,16r7c0
	con	10,002000,1,6
	con	11,002000,5,16r3f
	con	12,002000,8,16r10000
	con	13,002000,5,16re0
	con	14,002000,7,16rf000
	con	15,002000,2,12
	con	16,002000,6,16rfc0
	con	17,002000,9,16r200000
	con	18,002000,5,16rf0
	con	19,002000,9,16r1c0000
	con	20,002000,2,18
	con	21,002000,8,16r3f000
	declend
	line	1700
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	1729
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	1729
	colm	24
	synt	any
	field	AbortMessage
	int	0
	var	9
	str	1
	pnull
	int	2
	line	1729
	colm	49
	synt	any
	invoke	3
	var	9
	str	3
	pnull
	int	2
	line	1729
	colm	69
	synt	any
	invoke	3
	pnull
	var	0
	line	1730
	colm	37
	synt	any
	field	__AuxMessage
	int	0
	int	4
	line	1730
	colm	50
	synt	any
	invoke	2
	line	1729
	colm	37
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	line	1735
	colm	9
	synt	if
	mark0
	pnull
	var	3
	var	10
	pnull
	var	1
	line	1735
	colm	38
	synt	any
	nonnull
	line	1735
	colm	37
	synt	any
	invoke	1
	line	1735
	colm	26
	synt	any
	asgn
	unmark
	mark	L3
	pnull
	var	3
	var	11
	var	3
	line	1739
	colm	51
	synt	any
	keywd	lcase
	line	1739
	colm	59
	synt	any
	keywd	ucase
	line	1739
	colm	35
	synt	any
	invoke	3
	line	1739
	colm	27
	synt	any
	asgn
	unmark
lab L3
	line	1746
	colm	13
	synt	if
	mark0
	pnull
	var	2
	var	12
	var	3
	line	1746
	colm	28
	synt	any
	invoke	1
	line	1746
	colm	20
	synt	any
	asgn
	unmark
	mark	L4
	line	1758
	colm	17
	synt	ifelse
	mark	L5
	pnull
	var	2
	int	5
	line	1758
	colm	24
	synt	any
	numlt
	unmark
	mark	L7
	pnull
	var	5
	var	13
	int	6
	var	2
	line	1775
	colm	33
	synt	any
	invoke	2
	line	1775
	colm	24
	synt	any
	asgn
	unmark
lab L7
	pnull
	var	4
	var	14
	var	5
	line	1781
	colm	35
	synt	any
	invoke	1
	line	1781
	colm	26
	synt	any
	asgn
	goto	L6
lab L5
	line	1786
	colm	24
	synt	ifelse
	mark	L8
	pnull
	var	2
	int	7
	line	1786
	colm	31
	synt	any
	numlt
	unmark
	mark	L10
	pnull
	var	5
	var	15
	int	8
	var	16
	var	13
	int	9
	var	2
	line	1821
	colm	55
	synt	any
	invoke	2
	pnull
	int	10
	line	1821
	colm	70
	synt	any
	neg
	line	1821
	colm	48
	synt	any
	invoke	2
	line	1821
	colm	32
	synt	any
	invoke	2
	line	1821
	colm	24
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	6
	var	15
	int	5
	var	13
	int	11
	var	2
	line	1822
	colm	46
	synt	any
	invoke	2
	line	1822
	colm	32
	synt	any
	invoke	2
	line	1822
	colm	24
	synt	any
	asgn
	unmark
lab L11
	pnull
	var	4
	pnull
	var	14
	var	5
	line	1829
	colm	35
	synt	any
	invoke	1
	var	14
	var	6
	line	1829
	colm	49
	synt	any
	invoke	1
	line	1829
	colm	40
	synt	any
	cat
	line	1829
	colm	26
	synt	any
	asgn
	goto	L9
lab L8
	line	1834
	colm	24
	synt	ifelse
	mark	L12
	pnull
	var	2
	int	12
	line	1834
	colm	31
	synt	any
	numlt
	unmark
	mark	L14
	pnull
	var	5
	var	15
	int	13
	var	16
	var	13
	int	14
	var	2
	line	1891
	colm	55
	synt	any
	invoke	2
	pnull
	int	15
	line	1891
	colm	71
	synt	any
	neg
	line	1891
	colm	48
	synt	any
	invoke	2
	line	1891
	colm	32
	synt	any
	invoke	2
	line	1891
	colm	24
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	var	6
	var	15
	int	5
	var	16
	var	13
	int	16
	var	2
	line	1892
	colm	55
	synt	any
	invoke	2
	pnull
	int	10
	line	1892
	colm	70
	synt	any
	neg
	line	1892
	colm	48
	synt	any
	invoke	2
	line	1892
	colm	32
	synt	any
	invoke	2
	line	1892
	colm	24
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	var	7
	var	15
	int	5
	var	13
	int	11
	var	2
	line	1893
	colm	46
	synt	any
	invoke	2
	line	1893
	colm	32
	synt	any
	invoke	2
	line	1893
	colm	24
	synt	any
	asgn
	unmark
lab L16
	pnull
	var	4
	pnull
	pnull
	var	14
	var	5
	line	1900
	colm	35
	synt	any
	invoke	1
	var	14
	var	6
	line	1900
	colm	49
	synt	any
	invoke	1
	line	1900
	colm	40
	synt	any
	cat
	var	14
	var	7
	line	1900
	colm	63
	synt	any
	invoke	1
	line	1900
	colm	54
	synt	any
	cat
	line	1900
	colm	26
	synt	any
	asgn
	goto	L13
lab L12
	line	1905
	colm	24
	synt	ifelse
	mark	L17
	pnull
	var	2
	int	17
	line	1905
	colm	31
	synt	any
	numlt
	unmark
	mark	L19
	pnull
	var	5
	var	15
	int	18
	var	16
	var	13
	int	19
	var	2
	line	1980
	colm	55
	synt	any
	invoke	2
	pnull
	int	20
	line	1980
	colm	73
	synt	any
	neg
	line	1980
	colm	48
	synt	any
	invoke	2
	line	1980
	colm	32
	synt	any
	invoke	2
	line	1980
	colm	24
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	var	6
	var	15
	int	5
	var	16
	var	13
	int	21
	var	2
	line	1981
	colm	55
	synt	any
	invoke	2
	pnull
	int	15
	line	1981
	colm	72
	synt	any
	neg
	line	1981
	colm	48
	synt	any
	invoke	2
	line	1981
	colm	32
	synt	any
	invoke	2
	line	1981
	colm	24
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	var	7
	var	15
	int	5
	var	16
	var	13
	int	16
	var	2
	line	1982
	colm	55
	synt	any
	invoke	2
	pnull
	int	10
	line	1982
	colm	70
	synt	any
	neg
	line	1982
	colm	48
	synt	any
	invoke	2
	line	1982
	colm	32
	synt	any
	invoke	2
	line	1982
	colm	24
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	pnull
	var	8
	var	15
	int	5
	var	13
	int	11
	var	2
	line	1983
	colm	46
	synt	any
	invoke	2
	line	1983
	colm	32
	synt	any
	invoke	2
	line	1983
	colm	24
	synt	any
	asgn
	unmark
lab L22
	pnull
	var	4
	pnull
	pnull
	pnull
	var	14
	var	5
	line	1990
	colm	35
	synt	any
	invoke	1
	var	14
	var	6
	line	1990
	colm	49
	synt	any
	invoke	1
	line	1990
	colm	40
	synt	any
	cat
	var	14
	var	7
	line	1990
	colm	63
	synt	any
	invoke	1
	line	1990
	colm	54
	synt	any
	cat
	var	14
	var	8
	line	1990
	colm	77
	synt	any
	invoke	1
	line	1990
	colm	68
	synt	any
	cat
	line	1990
	colm	26
	synt	any
	asgn
	goto	L18
lab L17
	line	1997
	colm	21
	synt	any
	pfail
lab L18
	line	1905
	colm	24
	synt	endifelse
lab L13
	line	1834
	colm	24
	synt	endifelse
lab L9
	line	1786
	colm	24
	synt	endifelse
lab L6
	line	1758
	colm	17
	synt	endifelse
	unmark
lab L4
	mark	L23
	pnull
	var	0
	line	2003
	colm	28
	synt	any
	field	SpecialString
	var	4
	line	2003
	colm	42
	synt	any
	invoke	1
	line	2003
	colm	17
	synt	any
	pret
lab L23
	synt	any
	pfail
	line	1746
	colm	13
	synt	endif
	line	1735
	colm	9
	synt	endif
	unmark
lab L2
	pnull
	line	2006
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_DecimalTo
	local	0,001000,self
	local	1,001000,num
	local	2,000000,keyword
	local	3,000000,hexstring
	local	4,000000,integer
	con	0,002000,3,102
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	2024
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2025
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2025
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	2025
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	2025
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	2026
	colm	33
	synt	any
	field	__AuxMessage
	int	0
	line	2026
	colm	46
	synt	any
	invoke	1
	line	2025
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	0
	line	2034
	colm	20
	synt	any
	field	HexTo
	var	3
	var	4
	pnull
	var	1
	line	2034
	colm	45
	synt	any
	nonnull
	line	2034
	colm	44
	synt	any
	invoke	1
	line	2034
	colm	36
	synt	any
	invoke	1
	line	2034
	colm	26
	synt	any
	invoke	1
	line	2034
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	2035
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_AmpPos
	local	0,001000,self
	local	1,000020,j
	local	2,000020,k
	local	3,000000,image
	con	0,002000,1,1
	con	1,010000,9,046,163,165,142,152,145,143,164,072
	con	2,010000,12,046,163,165,142,152,145,143,164,133,153,135,072
	con	3,010000,1,012
	con	4,010000,29,137,137,125,124,106,070,123,151,172,145,124,141,142,154,145,133,046,163,165,142,152,145,143,164,133,153,135,135,072
	con	5,010000,2,153,072
	con	6,010000,5,046,160,157,163,072
	con	7,010000,2,152,072
	declend
	line	2041
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	int	0
	line	2042
	colm	19
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	int	0
	line	2046
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	0
	line	2062
	colm	13
	synt	any
	field	DebugPrint
	str	1
	var	3
	line	2062
	colm	43
	synt	any
	keywd	subject
	line	2062
	colm	42
	synt	any
	invoke	1
	line	2062
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
lab L5
	line	2064
	colm	9
	synt	while
	mark0
	pnull
	var	2
	line	2064
	colm	19
	synt	any
	keywd	pos
	line	2064
	colm	17
	synt	any
	numlt
	unmark
	mark	L5
	mark	L8
	pnull
	var	0
	line	2065
	colm	17
	synt	any
	field	DebugPrint
	str	2
	var	3
	pnull
	line	2065
	colm	50
	synt	any
	keywd	subject
	var	2
	line	2065
	colm	58
	synt	any
	subsc
	line	2065
	colm	49
	synt	any
	invoke	1
	str	3
	str	4
	pnull
	pnull
	var	0
	line	2066
	colm	61
	synt	any
	field	__UTF8SizeTable
	pnull
	line	2066
	colm	78
	synt	any
	keywd	subject
	var	2
	line	2066
	colm	86
	synt	any
	subsc
	line	2066
	colm	77
	synt	any
	subsc
	str	3
	str	5
	var	2
	line	2065
	colm	28
	synt	any
	invoke	8
	unmark
lab L8
	mark	L9
	pnull
	var	2
	dup
	pnull
	pnull
	var	0
	line	2069
	colm	23
	synt	any
	field	__UTF8SizeTable
	pnull
	line	2069
	colm	40
	synt	any
	keywd	subject
	var	2
	line	2069
	colm	48
	synt	any
	subsc
	line	2069
	colm	39
	synt	any
	subsc
	line	2069
	colm	15
	synt	any
	plus
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	1
	dup
	int	0
	line	2070
	colm	15
	synt	any
	plus
	asgn
	unmark
lab L10
	pnull
	var	0
	line	2072
	colm	17
	synt	any
	field	DebugPrint
	str	6
	line	2072
	colm	37
	synt	any
	keywd	pos
	str	3
	str	7
	var	1
	str	3
	str	5
	var	2
	line	2072
	colm	28
	synt	any
	invoke	8
lab L6
	unmark
	goto	L5
lab L7
	line	2064
	colm	9
	synt	endwhile
	unmark
lab L4
	mark	L11
	pnull
	var	0
	line	2076
	colm	13
	synt	any
	field	DebugPrint
	str	6
	line	2076
	colm	33
	synt	any
	keywd	pos
	str	3
	str	7
	var	1
	str	3
	str	5
	var	2
	line	2076
	colm	24
	synt	any
	invoke	8
	unmark
lab L11
	mark	L12
	mark	L13
	pnull
	var	1
	line	2078
	colm	16
	synt	any
	value
	line	2078
	colm	9
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	2079
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Equiv
	local	0,001000,self
	local	1,001000,val1
	local	2,001000,val2
	local	3,000020,local_val1
	local	4,000020,local_val2
	local	5,000000,image
	con	0,010000,5,166,141,154,061,072
	con	1,010000,11,154,157,143,141,154,137,166,141,154,061,072
	con	2,010000,5,166,141,154,062,072
	con	3,010000,11,154,157,143,141,154,137,166,141,154,062,072
	declend
	line	2129
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2150
	colm	9
	synt	any
	null
	pop
	pnull
	var	2
	line	2150
	colm	17
	synt	any
	null
	pop
	mark	L2
	var	2
	line	2150
	colm	25
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	mark	L3
	pnull
	var	1
	line	2151
	colm	9
	synt	any
	null
	pop
	line	2151
	colm	17
	synt	any
	pfail
	unmark
lab L3
	mark	L4
	pnull
	var	2
	line	2152
	colm	9
	synt	any
	null
	pop
	line	2152
	colm	17
	synt	any
	pfail
	unmark
lab L4
	mark	L5
	pnull
	var	5
	var	1
	line	2153
	colm	16
	synt	any
	invoke	1
	var	5
	var	2
	line	2153
	colm	33
	synt	any
	invoke	1
	line	2153
	colm	23
	synt	any
	lexeq
	pop
	mark	L6
	var	2
	line	2153
	colm	42
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	mark	L7
	pnull
	var	0
	line	2159
	colm	13
	synt	any
	field	DebugPrint
	str	0
	var	5
	var	1
	line	2159
	colm	38
	synt	any
	invoke	1
	line	2159
	colm	24
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	pnull
	var	3
	pnull
	var	0
	line	2161
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	2161
	colm	36
	synt	any
	invoke	1
	line	2161
	colm	20
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	0
	line	2163
	colm	13
	synt	any
	field	DebugPrint
	str	1
	var	5
	var	3
	line	2163
	colm	44
	synt	any
	invoke	1
	line	2163
	colm	24
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	pnull
	var	0
	line	2170
	colm	13
	synt	any
	field	DebugPrint
	str	2
	var	5
	var	2
	line	2170
	colm	38
	synt	any
	invoke	1
	line	2170
	colm	24
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	pnull
	var	4
	pnull
	var	0
	line	2172
	colm	27
	synt	any
	field	__Coerce
	var	2
	line	2172
	colm	36
	synt	any
	invoke	1
	line	2172
	colm	20
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	0
	line	2174
	colm	13
	synt	any
	field	DebugPrint
	str	3
	var	5
	var	4
	line	2174
	colm	44
	synt	any
	invoke	1
	line	2174
	colm	24
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	mark	L14
	pnull
	pnull
	var	3
	line	2176
	colm	27
	synt	any
	field	String
	line	2176
	colm	34
	synt	any
	invoke	0
	pnull
	var	4
	line	2176
	colm	50
	synt	any
	field	String
	line	2176
	colm	57
	synt	any
	invoke	0
	line	2176
	colm	37
	synt	any
	lexeq
	pop
	var	2
	line	2176
	colm	9
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	2177
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Nequiv
	local	0,001000,self
	local	1,001000,val1
	local	2,001000,val2
	declend
	line	2191
	colm	11
	synt	any
	mark	L1
	mark	L2
	mark	L3
	pnull
	var	0
	line	2192
	colm	25
	synt	any
	field	Equiv
	var	1
	var	2
	line	2192
	colm	31
	synt	any
	invoke	2
	unmark
	efail
lab L3
	pnull
	pop
	var	2
	line	2192
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	2193
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_LexEquals
	local	0,001000,self
	local	1,001000,str1
	local	2,001000,str2
	local	3,000020,local_str1
	local	4,000020,local_str2
	local	5,000000,keyword
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	2198
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2219
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2219
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2219
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2219
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2220
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2220
	colm	47
	synt	any
	invoke	1
	line	2219
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	2222
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2222
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2222
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2222
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2223
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2223
	colm	47
	synt	any
	invoke	1
	line	2222
	colm	34
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	2229
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	2229
	colm	36
	synt	any
	invoke	1
	line	2229
	colm	20
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	pnull
	var	0
	line	2235
	colm	27
	synt	any
	field	__Coerce
	var	2
	line	2235
	colm	36
	synt	any
	invoke	1
	line	2235
	colm	20
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	3
	line	2249
	colm	27
	synt	any
	field	String
	line	2249
	colm	34
	synt	any
	invoke	0
	pnull
	var	4
	line	2249
	colm	50
	synt	any
	field	String
	line	2249
	colm	57
	synt	any
	invoke	0
	line	2249
	colm	37
	synt	any
	lexeq
	pop
	var	2
	line	2249
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	2250
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_LexGTorEq
	local	0,001000,self
	local	1,001000,str1
	local	2,001000,str2
	local	3,000020,local_str1
	local	4,000020,local_str2
	local	5,000000,keyword
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	2255
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2276
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2276
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2276
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2276
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2277
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2277
	colm	47
	synt	any
	invoke	1
	line	2276
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	2279
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2279
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2279
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2279
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2280
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2280
	colm	47
	synt	any
	invoke	1
	line	2279
	colm	34
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	2286
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	2286
	colm	36
	synt	any
	invoke	1
	line	2286
	colm	20
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	pnull
	var	0
	line	2292
	colm	27
	synt	any
	field	__Coerce
	var	2
	line	2292
	colm	36
	synt	any
	invoke	1
	line	2292
	colm	20
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	3
	line	2306
	colm	27
	synt	any
	field	String
	line	2306
	colm	34
	synt	any
	invoke	0
	pnull
	var	4
	line	2306
	colm	51
	synt	any
	field	String
	line	2306
	colm	58
	synt	any
	invoke	0
	line	2306
	colm	37
	synt	any
	lexge
	pop
	var	2
	line	2306
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	2307
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_LexGT
	local	0,001000,self
	local	1,001000,str1
	local	2,001000,str2
	local	3,000020,local_str1
	local	4,000020,local_str2
	local	5,000000,keyword
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	2312
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2333
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2333
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2333
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2333
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2334
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2334
	colm	47
	synt	any
	invoke	1
	line	2333
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	2336
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2336
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2336
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2336
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2337
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2337
	colm	47
	synt	any
	invoke	1
	line	2336
	colm	34
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	2343
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	2343
	colm	36
	synt	any
	invoke	1
	line	2343
	colm	20
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	pnull
	var	0
	line	2349
	colm	27
	synt	any
	field	__Coerce
	var	2
	line	2349
	colm	36
	synt	any
	invoke	1
	line	2349
	colm	20
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	3
	line	2363
	colm	27
	synt	any
	field	String
	line	2363
	colm	34
	synt	any
	invoke	0
	pnull
	var	4
	line	2363
	colm	50
	synt	any
	field	String
	line	2363
	colm	57
	synt	any
	invoke	0
	line	2363
	colm	37
	synt	any
	lexgt
	pop
	var	2
	line	2363
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	2364
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_LexLTorEq
	local	0,001000,self
	local	1,001000,str1
	local	2,001000,str2
	local	3,000020,local_str1
	local	4,000020,local_str2
	local	5,000000,keyword
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	2369
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2390
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2390
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2390
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2390
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2391
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2391
	colm	47
	synt	any
	invoke	1
	line	2390
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	2393
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2393
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2393
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2393
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2394
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2394
	colm	47
	synt	any
	invoke	1
	line	2393
	colm	34
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	2400
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	2400
	colm	36
	synt	any
	invoke	1
	line	2400
	colm	20
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	pnull
	var	0
	line	2406
	colm	27
	synt	any
	field	__Coerce
	var	2
	line	2406
	colm	36
	synt	any
	invoke	1
	line	2406
	colm	20
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	3
	line	2420
	colm	27
	synt	any
	field	String
	line	2420
	colm	34
	synt	any
	invoke	0
	pnull
	var	4
	line	2420
	colm	51
	synt	any
	field	String
	line	2420
	colm	58
	synt	any
	invoke	0
	line	2420
	colm	37
	synt	any
	lexle
	pop
	var	2
	line	2420
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	2421
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_LexLT
	local	0,001000,self
	local	1,001000,str1
	local	2,001000,str2
	local	3,000020,local_str1
	local	4,000020,local_str2
	local	5,000000,keyword
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	2426
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2447
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2447
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2447
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2447
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2448
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2448
	colm	47
	synt	any
	invoke	1
	line	2447
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	2450
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2450
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2450
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2450
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2451
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2451
	colm	47
	synt	any
	invoke	1
	line	2450
	colm	34
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	2457
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	2457
	colm	36
	synt	any
	invoke	1
	line	2457
	colm	20
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	pnull
	var	0
	line	2463
	colm	27
	synt	any
	field	__Coerce
	var	2
	line	2463
	colm	36
	synt	any
	invoke	1
	line	2463
	colm	20
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	3
	line	2477
	colm	27
	synt	any
	field	String
	line	2477
	colm	34
	synt	any
	invoke	0
	pnull
	var	4
	line	2477
	colm	50
	synt	any
	field	String
	line	2477
	colm	57
	synt	any
	invoke	0
	line	2477
	colm	37
	synt	any
	lexlt
	pop
	var	2
	line	2477
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	2478
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_LexNE
	local	0,001000,self
	local	1,001000,str1
	local	2,001000,str2
	local	3,000020,local_str1
	local	4,000020,local_str2
	local	5,000000,keyword
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	2483
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2504
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2504
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2504
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2504
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2505
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2505
	colm	47
	synt	any
	invoke	1
	line	2504
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	2507
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2507
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2507
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2507
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2508
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2508
	colm	47
	synt	any
	invoke	1
	line	2507
	colm	34
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	2514
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	2514
	colm	36
	synt	any
	invoke	1
	line	2514
	colm	20
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	pnull
	var	0
	line	2520
	colm	27
	synt	any
	field	__Coerce
	var	2
	line	2520
	colm	36
	synt	any
	invoke	1
	line	2520
	colm	20
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	mark	L6
	pnull
	pnull
	var	3
	line	2534
	colm	27
	synt	any
	field	String
	line	2534
	colm	34
	synt	any
	invoke	0
	pnull
	var	4
	line	2534
	colm	51
	synt	any
	field	String
	line	2534
	colm	58
	synt	any
	invoke	0
	line	2534
	colm	37
	synt	any
	lexne
	pop
	var	2
	line	2534
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	2535
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Concatenate
	local	0,001000,self
	local	1,001000,ustr1
	local	2,001000,ustr2
	local	3,000020,str
	local	4,000020,local_ustr1
	local	5,000020,local_ustr2
	local	6,000000,keyword
	local	7,000000,image
	local	8,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,6,165,163,164,162,061,072
	con	5,010000,12,154,157,143,141,154,137,165,163,164,162,061,072
	con	6,010000,6,165,163,164,162,062,072
	con	7,010000,12,154,157,143,141,154,137,165,163,164,162,062,072
	con	8,010000,4,163,164,162,072
	declend
	line	2549
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2574
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2574
	colm	22
	synt	any
	field	AbortMessage
	int	0
	var	6
	str	1
	pnull
	int	2
	line	2574
	colm	47
	synt	any
	invoke	3
	var	6
	str	3
	pnull
	int	2
	line	2574
	colm	67
	synt	any
	invoke	3
	pnull
	var	0
	line	2575
	colm	35
	synt	any
	field	__AuxMessage
	int	0
	line	2575
	colm	48
	synt	any
	invoke	1
	line	2574
	colm	35
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	2577
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2577
	colm	22
	synt	any
	field	AbortMessage
	int	0
	var	6
	str	1
	pnull
	int	2
	line	2577
	colm	47
	synt	any
	invoke	3
	var	6
	str	3
	pnull
	int	2
	line	2577
	colm	67
	synt	any
	invoke	3
	pnull
	var	0
	line	2578
	colm	35
	synt	any
	field	__AuxMessage
	int	0
	line	2578
	colm	48
	synt	any
	invoke	1
	line	2577
	colm	35
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	0
	line	2585
	colm	13
	synt	any
	field	DebugPrint
	str	4
	var	7
	var	1
	line	2585
	colm	39
	synt	any
	invoke	1
	line	2585
	colm	24
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	pnull
	var	4
	pnull
	var	0
	line	2587
	colm	28
	synt	any
	field	__Coerce
	var	1
	line	2587
	colm	37
	synt	any
	invoke	1
	line	2587
	colm	21
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	0
	line	2589
	colm	13
	synt	any
	field	DebugPrint
	str	5
	var	7
	var	4
	line	2589
	colm	45
	synt	any
	invoke	1
	line	2589
	colm	24
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	pnull
	var	0
	line	2596
	colm	13
	synt	any
	field	DebugPrint
	str	6
	var	7
	var	2
	line	2596
	colm	39
	synt	any
	invoke	1
	line	2596
	colm	24
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	pnull
	var	5
	pnull
	var	0
	line	2598
	colm	28
	synt	any
	field	__Coerce
	var	2
	line	2598
	colm	37
	synt	any
	invoke	1
	line	2598
	colm	21
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	0
	line	2600
	colm	13
	synt	any
	field	DebugPrint
	str	7
	var	7
	var	5
	line	2600
	colm	45
	synt	any
	invoke	1
	line	2600
	colm	24
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	pnull
	var	3
	pnull
	pnull
	var	4
	line	2602
	colm	27
	synt	any
	field	String
	line	2602
	colm	34
	synt	any
	invoke	0
	pnull
	var	5
	line	2602
	colm	51
	synt	any
	field	String
	line	2602
	colm	58
	synt	any
	invoke	0
	line	2602
	colm	37
	synt	any
	cat
	line	2602
	colm	13
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	0
	line	2604
	colm	13
	synt	any
	field	DebugPrint
	str	8
	var	7
	var	3
	line	2604
	colm	37
	synt	any
	invoke	1
	line	2604
	colm	24
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	mark	L12
	pnull
	var	8
	line	2606
	colm	26
	synt	any
	field	New
	var	3
	line	2606
	colm	30
	synt	any
	invoke	1
	line	2606
	colm	9
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	2607
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Complement
	local	0,001000,self
	local	1,001000,val
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8Set
	con	0,002000,3,104
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	2612
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2613
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2613
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	2613
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	2613
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	2614
	colm	33
	synt	any
	field	__AuxMessage
	int	0
	line	2614
	colm	46
	synt	any
	invoke	1
	line	2613
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	3
	line	2616
	colm	29
	synt	any
	field	Complement
	var	1
	line	2616
	colm	40
	synt	any
	invoke	1
	line	2616
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	2617
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Difference
	local	0,001000,self
	local	1,001000,val1
	local	2,001000,val2
	local	3,000000,keyword
	local	4,000000,UTF8__UTF8Set
	con	0,002000,3,120
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	2622
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2623
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2623
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	2623
	colm	46
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	2623
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2624
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2624
	colm	47
	synt	any
	invoke	1
	line	2623
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	2626
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2626
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	2626
	colm	46
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	2626
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2627
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2627
	colm	47
	synt	any
	invoke	1
	line	2626
	colm	34
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	4
	line	2629
	colm	29
	synt	any
	field	Difference
	var	1
	var	2
	line	2629
	colm	40
	synt	any
	invoke	2
	line	2629
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	2630
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Intersect
	local	0,001000,self
	local	1,001000,val1
	local	2,001000,val2
	local	3,000000,keyword
	local	4,000000,UTF8__UTF8Set
	con	0,002000,3,120
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	2635
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2636
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2636
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	2636
	colm	46
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	2636
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2637
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2637
	colm	47
	synt	any
	invoke	1
	line	2636
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	2639
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2639
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	2639
	colm	46
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	2639
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2640
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2640
	colm	47
	synt	any
	invoke	1
	line	2639
	colm	34
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	4
	line	2642
	colm	29
	synt	any
	field	Intersect
	var	1
	var	2
	line	2642
	colm	39
	synt	any
	invoke	2
	line	2642
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	2643
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Union
	local	0,001000,self
	local	1,001000,val1
	local	2,001000,val2
	local	3,000000,keyword
	local	4,000000,UTF8__UTF8Set
	con	0,002000,3,120
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	2648
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2649
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2649
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	2649
	colm	46
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	2649
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2650
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2650
	colm	47
	synt	any
	invoke	1
	line	2649
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	2652
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2652
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	2652
	colm	46
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	2652
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2653
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2653
	colm	47
	synt	any
	invoke	1
	line	2652
	colm	34
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	4
	line	2655
	colm	29
	synt	any
	field	Union
	var	1
	var	2
	line	2655
	colm	35
	synt	any
	invoke	2
	line	2655
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	2656
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_ForEach
	local	0,001000,self
	local	1,001000,str
	local	2,000020,codepoint
	local	3,000020,local_str
	local	4,000020,tmp_val
	local	5,000000,keyword
	local	6,000000,type
	local	7,000000,image
	local	8,000000,pos
	local	9,000000,move
	local	10,000000,ximage
	con	0,002000,3,116
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,103
	con	5,010000,13,164,171,160,145,040,157,146,040,163,164,162,072,040
	con	6,010000,15,040,166,141,154,165,145,040,157,146,040,163,164,162,072,040
	con	7,010000,19,164,171,160,145,040,157,146,040,154,157,143,141,154,137,163,164,162,072,040
	con	8,010000,21,040,166,141,154,165,145,040,157,146,040,154,157,143,141,154,137,163,164,162,072,040
	con	9,002000,1,0
	con	10,010000,10,143,157,144,145,160,157,151,156,164,072
	con	11,010000,8,164,155,160,137,166,141,154,072
	declend
	line	2680
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2695
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2695
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2695
	colm	45
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2695
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	2696
	colm	33
	synt	any
	field	__AuxMessage
	int	4
	line	2696
	colm	46
	synt	any
	invoke	1
	line	2695
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	2698
	colm	13
	synt	any
	field	DebugPrint
	str	5
	var	6
	var	1
	line	2698
	colm	45
	synt	any
	invoke	1
	str	6
	var	7
	var	1
	line	2698
	colm	76
	synt	any
	invoke	1
	line	2698
	colm	24
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	2704
	colm	26
	synt	any
	field	__Coerce
	var	1
	line	2704
	colm	35
	synt	any
	invoke	1
	line	2704
	colm	19
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	0
	line	2706
	colm	13
	synt	any
	field	DebugPrint
	str	7
	var	6
	var	3
	line	2706
	colm	51
	synt	any
	invoke	1
	str	8
	var	7
	var	3
	line	2706
	colm	94
	synt	any
	invoke	1
	line	2706
	colm	24
	synt	any
	invoke	4
	unmark
lab L4
	mark	L5
	pnull
	var	3
	line	2711
	colm	18
	synt	any
	field	String
	line	2711
	colm	25
	synt	any
	invoke	0
	line	2711
	colm	28
	synt	any
	bscan
lab L6
	line	2724
	colm	13
	synt	while
	mark0
	mark	L9
	var	8
	int	9
	line	2724
	colm	28
	synt	any
	invoke	1
	unmark
	efail
lab L9
	pnull
	unmark
	mark	L6
	mark	L10
	pnull
	var	2
	var	9
	int	2
	line	2729
	colm	36
	synt	any
	invoke	1
	line	2729
	colm	27
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	0
	line	2731
	colm	21
	synt	any
	field	DebugPrint
	str	10
	var	10
	var	2
	line	2731
	colm	52
	synt	any
	invoke	1
	line	2731
	colm	32
	synt	any
	invoke	2
	unmark
lab L11
	mark	L12
	pnull
	var	2
	dup
	var	9
	pnull
	int	2
	pnull
	pnull
	pnull
	var	0
	line	2737
	colm	49
	synt	any
	field	__UTF8SizeTable
	pnull
	var	2
	line	2737
	colm	66
	synt	any
	value
	line	2737
	colm	65
	synt	any
	subsc
	int	2
	line	2737
	colm	77
	synt	any
	minus
	line	2737
	colm	41
	synt	any
	numle
	line	2737
	colm	38
	synt	any
	invoke	1
	line	2737
	colm	27
	synt	any
	cat
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	0
	line	2739
	colm	21
	synt	any
	field	DebugPrint
	str	10
	var	10
	var	2
	line	2739
	colm	52
	synt	any
	invoke	1
	line	2739
	colm	32
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	pnull
	var	4
	mark	L15
	pnull
	var	0
	line	2745
	colm	33
	synt	any
	field	SpecialString
	pnull
	var	0
	line	2745
	colm	52
	synt	any
	field	Valid
	var	2
	line	2745
	colm	58
	synt	any
	invoke	1
	line	2745
	colm	47
	synt	any
	invoke	1
	line	2745
	colm	70
	synt	any
	esusp
	goto	L16
lab L15
	pnull
	var	0
	line	2745
	colm	75
	synt	any
	field	__UTF8InvalidChar
lab L16
	line	2745
	colm	25
	synt	any
	asgn
	unmark
lab L14
	mark	L17
	pnull
	var	0
	line	2747
	colm	21
	synt	any
	field	DebugPrint
	str	11
	var	7
	var	4
	line	2747
	colm	49
	synt	any
	invoke	1
	line	2747
	colm	32
	synt	any
	invoke	2
	unmark
lab L17
	line	2749
	colm	17
	synt	suspend
	mark0
	var	4
	line	2749
	colm	17
	synt	any
	psusp
	pop
lab L18
	efail
lab L19
	line	2749
	colm	17
	synt	endsuspend
lab L7
	unmark
	goto	L6
lab L8
	line	2724
	colm	13
	synt	endwhile
	line	2711
	colm	28
	synt	any
	escan
	unmark
lab L5
	pnull
	line	2752
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Size
	local	0,001000,self
	local	1,001000,str
	local	2,000020,cnt
	local	3,000000,keyword
	local	4,000000,type
	local	5,000000,ClassObject__IsObject
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,6,163,164,162,151,156,147
	con	5,002000,1,0
	con	6,010000,4,125,124,106,070
	con	7,010000,7,125,124,106,070,123,145,164
	declend
	line	2773
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2777
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2777
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	2777
	colm	45
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	2777
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	2778
	colm	46
	synt	any
	field	__AuxMessage
	int	0
	line	2778
	colm	59
	synt	any
	invoke	1
	line	2777
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	line	2784
	colm	9
	synt	ifelse
	mark	L3
	pnull
	var	4
	var	1
	line	2784
	colm	18
	synt	any
	invoke	1
	str	4
	line	2784
	colm	24
	synt	any
	lexeq
	unmark
	mark	L5
	pnull
	var	2
	int	5
	line	2785
	colm	17
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	line	2786
	colm	13
	synt	every
	mark0
	pnull
	var	2
	dup
	pnull
	pnull
	var	0
	line	2786
	colm	31
	synt	any
	field	__UTF8CountTable
	pnull
	var	1
	line	2786
	colm	49
	synt	any
	bang
	line	2786
	colm	48
	synt	any
	subsc
	line	2786
	colm	23
	synt	any
	plus
	asgn
	pop
lab L7
	efail
lab L8
	line	2786
	colm	13
	synt	endevery
	unmark
lab L6
	mark	L9
	var	2
	line	2787
	colm	13
	synt	any
	pret
lab L9
	synt	any
	pfail
	goto	L4
lab L3
	line	2792
	colm	16
	synt	ifelse
	mark	L10
	var	5
	var	1
	str	6
	str	7
	line	2792
	colm	40
	synt	any
	invoke	3
	unmark
	mark	L12
	pnull
	var	1
	line	2793
	colm	23
	synt	any
	field	Size
	line	2793
	colm	28
	synt	any
	invoke	0
	line	2793
	colm	13
	synt	any
	pret
lab L12
	synt	any
	pfail
	goto	L11
lab L10
	line	2796
	colm	16
	synt	ifelse
	mark	L13
	pnull
	var	1
	line	2796
	colm	19
	synt	any
	null
	unmark
	mark	L15
	int	5
	line	2797
	colm	13
	synt	any
	pret
lab L15
	synt	any
	pfail
	goto	L14
lab L13
	mark	L16
	pnull
	var	1
	line	2803
	colm	20
	synt	any
	size
	line	2803
	colm	13
	synt	any
	pret
lab L16
	synt	any
	pfail
lab L14
	line	2796
	colm	16
	synt	endifelse
lab L11
	line	2792
	colm	16
	synt	endifelse
lab L4
	line	2784
	colm	9
	synt	endifelse
	unmark
lab L2
	pnull
	line	2805
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Random
	local	0,001000,self
	local	1,001000,str
	local	2,000020,local_str
	local	3,000020,i
	local	4,000000,keyword
	con	0,002000,3,113
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,103
	declend
	line	2810
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2825
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2825
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	4
	str	1
	pnull
	int	2
	line	2825
	colm	45
	synt	any
	invoke	3
	var	4
	str	3
	pnull
	int	2
	line	2825
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	2826
	colm	33
	synt	any
	field	__AuxMessage
	int	4
	line	2826
	colm	46
	synt	any
	invoke	1
	line	2825
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	2832
	colm	26
	synt	any
	field	__Coerce
	var	1
	line	2832
	colm	35
	synt	any
	invoke	1
	line	2832
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	pnull
	var	2
	line	2838
	colm	24
	synt	any
	field	Size
	line	2838
	colm	29
	synt	any
	invoke	0
	line	2838
	colm	14
	synt	any
	random
	line	2838
	colm	11
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	var	0
	line	2843
	colm	20
	synt	any
	field	__GetAt
	var	2
	var	3
	line	2843
	colm	28
	synt	any
	invoke	2
	line	2843
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	2844
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Subsection
	local	0,001000,self
	local	1,001000,ustr
	local	2,001000,i
	local	3,001000,j
	local	4,000020,tmpstr
	local	5,000000,keyword
	local	6,000000,integer
	local	7,000000,image
	con	0,002000,3,110
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,101
	con	5,002000,1,3
	con	6,002000,1,4
	con	7,010000,7,164,155,160,163,164,162,072
	con	8,010000,3,040,151,072
	con	9,010000,3,040,152,072
	declend
	line	2869
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2878
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2878
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	2878
	colm	46
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2878
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	2879
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	2879
	colm	47
	synt	any
	invoke	1
	line	2878
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	2881
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2881
	colm	18
	synt	any
	field	AbortMessage
	int	4
	var	5
	str	1
	pnull
	int	2
	line	2881
	colm	43
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2881
	colm	63
	synt	any
	invoke	3
	pnull
	var	0
	line	2882
	colm	31
	synt	any
	field	__AuxMessage
	int	4
	line	2882
	colm	44
	synt	any
	invoke	1
	line	2881
	colm	31
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	2
	var	6
	var	2
	line	2884
	colm	24
	synt	any
	invoke	1
	line	2884
	colm	12
	synt	any
	asgn
	line	2884
	colm	29
	synt	any
	esusp
	goto	L5
lab L4
	pnull
	var	0
	line	2884
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	5
	str	1
	pnull
	int	2
	line	2884
	colm	60
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2884
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	2885
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	5
	line	2885
	colm	61
	synt	any
	invoke	2
	var	7
	var	2
	line	2885
	colm	74
	synt	any
	invoke	1
	line	2884
	colm	48
	synt	any
	invoke	5
lab L5
	unmark
lab L3
	mark	L6
	pnull
	var	3
	line	2887
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2887
	colm	18
	synt	any
	field	AbortMessage
	int	4
	var	5
	str	1
	pnull
	int	2
	line	2887
	colm	43
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2887
	colm	63
	synt	any
	invoke	3
	pnull
	var	0
	line	2888
	colm	31
	synt	any
	field	__AuxMessage
	int	4
	line	2888
	colm	44
	synt	any
	invoke	1
	line	2887
	colm	31
	synt	any
	invoke	4
	unmark
lab L6
	mark	L7
	mark	L8
	pnull
	var	3
	var	6
	var	3
	line	2890
	colm	24
	synt	any
	invoke	1
	line	2890
	colm	12
	synt	any
	asgn
	line	2890
	colm	29
	synt	any
	esusp
	goto	L9
lab L8
	pnull
	var	0
	line	2890
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	5
	str	1
	pnull
	int	2
	line	2890
	colm	60
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	2890
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	2891
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	6
	line	2891
	colm	61
	synt	any
	invoke	2
	var	7
	var	3
	line	2891
	colm	74
	synt	any
	invoke	1
	line	2890
	colm	48
	synt	any
	invoke	5
lab L9
	unmark
lab L7
	mark	L10
	pnull
	var	4
	pnull
	var	0
	line	2893
	colm	23
	synt	any
	field	__Coerce
	var	1
	line	2893
	colm	32
	synt	any
	invoke	1
	line	2893
	colm	16
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	0
	line	2895
	colm	13
	synt	any
	field	DebugPrint
	str	7
	var	7
	var	4
	line	2895
	colm	40
	synt	any
	invoke	1
	str	8
	var	2
	str	9
	var	3
	line	2895
	colm	24
	synt	any
	invoke	6
	unmark
lab L11
	mark	L12
	mark	L13
	pnull
	var	0
	line	2897
	colm	20
	synt	any
	field	__GetAt
	var	4
	var	2
	var	3
	line	2897
	colm	28
	synt	any
	invoke	3
	line	2897
	colm	9
	synt	any
	pret
lab L13
	synt	any
	pfail
	unmark
lab L12
	pnull
	line	2898
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Subscript
	local	0,001000,self
	local	1,001000,str
	local	2,001000,i
	local	3,000000,keyword
	local	4,000000,integer
	local	5,000000,image
	con	0,002000,3,114
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,49,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040,046,156,165,154,154,012,115,151,163,163,151,156,147,040,125,124,106,070,040,117,142,152,145,143,164,057,166,141,154,165,145
	con	5,002000,3,101
	con	6,002000,1,3
	declend
	line	2913
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2919
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2919
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	2919
	colm	45
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	2919
	colm	65
	synt	any
	invoke	3
	str	4
	line	2919
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	2921
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2921
	colm	18
	synt	any
	field	AbortMessage
	int	5
	var	3
	str	1
	pnull
	int	2
	line	2921
	colm	43
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	2921
	colm	63
	synt	any
	invoke	3
	pnull
	var	0
	line	2922
	colm	31
	synt	any
	field	__AuxMessage
	int	5
	line	2922
	colm	44
	synt	any
	invoke	1
	line	2921
	colm	31
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	2
	var	4
	var	2
	line	2924
	colm	24
	synt	any
	invoke	1
	line	2924
	colm	12
	synt	any
	asgn
	line	2924
	colm	29
	synt	any
	esusp
	goto	L5
lab L4
	pnull
	var	0
	line	2924
	colm	35
	synt	any
	field	AbortMessage
	int	5
	var	3
	str	1
	pnull
	int	2
	line	2924
	colm	60
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	2924
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	2925
	colm	48
	synt	any
	field	__AuxMessage
	int	5
	int	6
	line	2925
	colm	61
	synt	any
	invoke	2
	var	5
	var	2
	line	2925
	colm	74
	synt	any
	invoke	1
	line	2924
	colm	48
	synt	any
	invoke	5
lab L5
	unmark
lab L3
	mark	L6
	mark	L7
	pnull
	var	0
	line	2927
	colm	20
	synt	any
	field	Subsection
	var	1
	var	2
	pnull
	var	2
	int	2
	line	2927
	colm	39
	synt	any
	plus
	line	2927
	colm	31
	synt	any
	invoke	3
	line	2927
	colm	9
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	2928
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_TabMatch
	local	0,001000,self
	local	1,001000,str
	local	2,000020,local_str
	local	3,000000,keyword
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	2942
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	2953
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	2953
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	2953
	colm	45
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	2953
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	2954
	colm	46
	synt	any
	field	__AuxMessage
	int	0
	line	2954
	colm	59
	synt	any
	invoke	1
	line	2953
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	2960
	colm	26
	synt	any
	field	__Coerce
	var	1
	line	2960
	colm	35
	synt	any
	invoke	1
	line	2960
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	pnull
	var	2
	line	2961
	colm	26
	synt	any
	field	String
	line	2961
	colm	33
	synt	any
	invoke	0
	line	2961
	colm	16
	synt	any
	tabmat
	pop
	var	2
	line	2961
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	2962
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Any
	local	0,001000,self
	local	1,001000,uset
	local	2,001000,ustr
	local	3,001000,i
	local	4,001000,j
	local	5,000020,c
	local	6,000020,found
	local	7,000020,fc
	local	8,000020,local_uset
	local	9,000020,local_ustr
	local	10,000020,sz
	local	11,000000,keyword
	local	12,000000,integer
	local	13,000000,image
	local	14,000000,ximage
	con	0,002000,3,104
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,101
	con	5,002000,1,3
	con	6,002000,1,4
	con	7,002000,1,0
	con	8,010000,2,151,072
	con	9,010000,1,012
	con	10,010000,2,152,072
	con	11,010000,3,163,172,072
	con	12,010000,12,146,143,056,123,164,162,151,156,147,050,051,072
	declend
	line	3019
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	3048
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	3048
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	11
	str	1
	pnull
	int	2
	line	3048
	colm	46
	synt	any
	invoke	3
	var	11
	str	3
	pnull
	int	2
	line	3048
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	3049
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	3049
	colm	47
	synt	any
	invoke	1
	line	3048
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	1
	line	3054
	colm	9
	synt	any
	null
	pop
	line	3054
	colm	17
	synt	any
	pfail
	unmark
lab L2
	mark	L3
	pnull
	var	8
	pnull
	var	0
	line	3059
	colm	27
	synt	any
	field	Cset
	var	1
	line	3059
	colm	32
	synt	any
	invoke	1
	line	3059
	colm	20
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	pnull
	var	3
	line	3068
	colm	9
	synt	any
	null
	mark	L5
	pnull
	var	2
	line	3068
	colm	17
	synt	any
	null
	pop
	line	3068
	colm	25
	synt	any
	keywd	pos
	line	3068
	colm	31
	synt	any
	esusp
	goto	L6
lab L5
	int	2
lab L6
	line	3068
	colm	12
	synt	any
	asgn
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	2
	line	3074
	colm	9
	synt	any
	null
	line	3074
	colm	18
	synt	any
	keywd	subject
	line	3074
	colm	15
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	9
	pnull
	var	0
	line	3079
	colm	27
	synt	any
	field	__Coerce
	var	2
	line	3079
	colm	36
	synt	any
	invoke	1
	line	3079
	colm	20
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	10
	pnull
	var	9
	line	3084
	colm	25
	synt	any
	field	Size
	line	3084
	colm	30
	synt	any
	invoke	0
	line	3084
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	4
	line	3088
	colm	9
	synt	any
	null
	pnull
	var	10
	int	2
	line	3088
	colm	18
	synt	any
	plus
	line	3088
	colm	12
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	mark	L12
	pnull
	var	3
	var	12
	var	3
	line	3094
	colm	24
	synt	any
	invoke	1
	line	3094
	colm	12
	synt	any
	asgn
	line	3094
	colm	29
	synt	any
	esusp
	goto	L13
lab L12
	pnull
	var	0
	line	3094
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	11
	str	1
	pnull
	int	2
	line	3094
	colm	60
	synt	any
	invoke	3
	var	11
	str	3
	pnull
	int	2
	line	3094
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	3095
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	5
	line	3095
	colm	61
	synt	any
	invoke	2
	var	13
	var	3
	line	3095
	colm	74
	synt	any
	invoke	1
	line	3094
	colm	48
	synt	any
	invoke	5
lab L13
	unmark
lab L11
	mark	L14
	mark	L15
	pnull
	var	4
	var	12
	var	4
	line	3097
	colm	24
	synt	any
	invoke	1
	line	3097
	colm	12
	synt	any
	asgn
	line	3097
	colm	29
	synt	any
	esusp
	goto	L16
lab L15
	pnull
	var	0
	line	3097
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	11
	str	1
	pnull
	int	2
	line	3097
	colm	60
	synt	any
	invoke	3
	var	11
	str	3
	pnull
	int	2
	line	3097
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	3098
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	6
	line	3098
	colm	61
	synt	any
	invoke	2
	var	13
	var	4
	line	3098
	colm	74
	synt	any
	invoke	1
	line	3097
	colm	48
	synt	any
	invoke	5
lab L16
	unmark
lab L14
	mark	L17
	pnull
	var	3
	int	7
	line	3105
	colm	12
	synt	any
	numle
	pop
	pnull
	var	3
	pnull
	pnull
	var	10
	var	3
	line	3105
	colm	28
	synt	any
	plus
	int	2
	line	3105
	colm	32
	synt	any
	plus
	line	3105
	colm	22
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	var	4
	int	7
	line	3106
	colm	12
	synt	any
	numle
	pop
	pnull
	var	4
	pnull
	pnull
	var	10
	var	4
	line	3106
	colm	28
	synt	any
	plus
	int	2
	line	3106
	colm	32
	synt	any
	plus
	line	3106
	colm	22
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	mark	L20
	pnull
	var	3
	var	4
	line	3112
	colm	12
	synt	any
	numne
	line	3112
	colm	18
	synt	any
	esusp
	goto	L21
lab L20
	line	3112
	colm	20
	synt	any
	pfail
lab L21
	unmark
lab L19
	mark	L22
	pnull
	var	3
	var	4
	line	3118
	colm	12
	synt	any
	numgt
	pop
	pnull
	var	3
	var	4
	line	3118
	colm	21
	synt	any
	swap
	unmark
lab L22
	mark	L23
	mark	L24
	pnull
	var	4
	pnull
	var	10
	int	2
	line	3125
	colm	18
	synt	any
	plus
	line	3125
	colm	12
	synt	any
	numle
	line	3125
	colm	23
	synt	any
	esusp
	goto	L25
lab L24
	line	3125
	colm	25
	synt	any
	pfail
lab L25
	unmark
lab L23
	mark	L26
	pnull
	var	0
	line	3132
	colm	13
	synt	any
	field	DebugPrint
	str	8
	var	3
	str	9
	str	10
	var	4
	str	9
	str	11
	var	10
	line	3132
	colm	24
	synt	any
	invoke	8
	unmark
lab L26
	mark	L27
	pnull
	var	7
	pnull
	var	0
	line	3134
	colm	19
	synt	any
	field	__GetAt
	var	9
	var	3
	line	3134
	colm	27
	synt	any
	invoke	2
	line	3134
	colm	12
	synt	any
	asgn
	unmark
lab L27
	mark	L28
	pnull
	var	0
	line	3136
	colm	13
	synt	any
	field	DebugPrint
	str	12
	var	14
	pnull
	var	7
	line	3136
	colm	49
	synt	any
	field	String
	line	3136
	colm	56
	synt	any
	invoke	0
	line	3136
	colm	46
	synt	any
	invoke	1
	line	3136
	colm	24
	synt	any
	invoke	2
	unmark
lab L28
	mark	L29
	mark	L30
	pnull
	var	8
	line	3138
	colm	26
	synt	any
	field	Member
	var	7
	line	3138
	colm	33
	synt	any
	invoke	1
	pop
	pnull
	var	3
	int	2
	line	3138
	colm	43
	synt	any
	plus
	line	3138
	colm	9
	synt	any
	pret
lab L30
	synt	any
	pfail
	unmark
lab L29
	pnull
	line	3139
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Bal
	local	0,001000,self
	local	1,001000,uset
	local	2,001000,usetopen
	local	3,001000,usetclose
	local	4,001000,ustr
	local	5,001000,i
	local	6,001000,j
	local	7,000020,cnt
	local	8,000020,testchar
	local	9,000020,local_uset
	local	10,000020,local_usetopen
	local	11,000020,local_usetclose
	local	12,000020,local_ustr
	local	13,000020,sz
	local	14,000000,integer
	local	15,000000,keyword
	local	16,000000,image
	local	17,000000,ximage
	con	0,002000,1,0
	con	1,002000,1,1
	con	2,002000,3,101
	con	3,010000,5,046,146,151,154,145
	con	4,010000,5,046,154,151,156,145
	con	5,002000,1,3
	con	6,002000,1,4
	con	7,010000,2,151,072
	con	8,010000,1,012
	con	9,010000,2,152,072
	con	10,010000,3,163,172,072
	con	11,010000,32,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,164,162,056,123,164,162,151,156,147,050,051,072
	con	12,020000,1,050
	con	13,020000,1,051
	con	14,010000,48,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,145,164,157,160,145,156,056,125,124,106,070,126,141,154,165,145,050,051,056,123,164,162,151,156,147,050,051,072
	con	15,010000,49,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,145,164,143,154,157,163,145,056,125,124,106,070,126,141,154,165,145,050,051,056,123,164,162,151,156,147,050,051,072
	con	16,010000,18,164,145,163,164,143,150,141,162,056,123,164,162,151,156,147,050,051,072
	declend
	line	3153
	colm	11
	synt	any
	mark	L1
	pnull
	var	7
	int	0
	line	3154
	colm	21
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	line	3200
	colm	9
	synt	any
	null
	pop
	line	3200
	colm	17
	synt	any
	pfail
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	5
	line	3208
	colm	9
	synt	any
	null
	mark	L4
	pnull
	var	4
	line	3208
	colm	17
	synt	any
	null
	pop
	line	3208
	colm	25
	synt	any
	keywd	pos
	line	3208
	colm	31
	synt	any
	esusp
	goto	L5
lab L4
	int	1
lab L5
	line	3208
	colm	12
	synt	any
	asgn
	unmark
lab L3
	mark	L6
	pnull
	pnull
	var	4
	line	3214
	colm	9
	synt	any
	null
	line	3214
	colm	18
	synt	any
	keywd	subject
	line	3214
	colm	15
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	12
	pnull
	var	0
	line	3219
	colm	27
	synt	any
	field	__Coerce
	var	4
	line	3219
	colm	36
	synt	any
	invoke	1
	line	3219
	colm	20
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	13
	pnull
	var	12
	line	3224
	colm	25
	synt	any
	field	Size
	line	3224
	colm	30
	synt	any
	invoke	0
	line	3224
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	6
	line	3229
	colm	9
	synt	any
	null
	pnull
	var	13
	int	1
	line	3229
	colm	18
	synt	any
	plus
	line	3229
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	var	5
	var	14
	var	5
	line	3236
	colm	24
	synt	any
	invoke	1
	line	3236
	colm	12
	synt	any
	asgn
	line	3236
	colm	29
	synt	any
	esusp
	goto	L12
lab L11
	pnull
	var	0
	line	3236
	colm	35
	synt	any
	field	AbortMessage
	int	2
	var	15
	str	3
	pnull
	int	1
	line	3236
	colm	60
	synt	any
	invoke	3
	var	15
	str	4
	pnull
	int	1
	line	3236
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	3237
	colm	48
	synt	any
	field	__AuxMessage
	int	2
	int	5
	line	3237
	colm	61
	synt	any
	invoke	2
	var	16
	var	5
	line	3237
	colm	74
	synt	any
	invoke	1
	line	3236
	colm	48
	synt	any
	invoke	5
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	pnull
	var	6
	var	14
	var	6
	line	3239
	colm	24
	synt	any
	invoke	1
	line	3239
	colm	12
	synt	any
	asgn
	line	3239
	colm	29
	synt	any
	esusp
	goto	L15
lab L14
	pnull
	var	0
	line	3239
	colm	35
	synt	any
	field	AbortMessage
	int	2
	var	15
	str	3
	pnull
	int	1
	line	3239
	colm	60
	synt	any
	invoke	3
	var	15
	str	4
	pnull
	int	1
	line	3239
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	3240
	colm	48
	synt	any
	field	__AuxMessage
	int	2
	int	6
	line	3240
	colm	61
	synt	any
	invoke	2
	var	16
	var	6
	line	3240
	colm	74
	synt	any
	invoke	1
	line	3239
	colm	48
	synt	any
	invoke	5
lab L15
	unmark
lab L13
	mark	L16
	pnull
	var	5
	int	0
	line	3247
	colm	12
	synt	any
	numle
	pop
	pnull
	var	5
	pnull
	pnull
	var	13
	var	5
	line	3247
	colm	28
	synt	any
	plus
	int	1
	line	3247
	colm	32
	synt	any
	plus
	line	3247
	colm	22
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	var	6
	int	0
	line	3248
	colm	12
	synt	any
	numle
	pop
	pnull
	var	6
	pnull
	pnull
	var	13
	var	6
	line	3248
	colm	28
	synt	any
	plus
	int	1
	line	3248
	colm	32
	synt	any
	plus
	line	3248
	colm	22
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	mark	L19
	pnull
	var	5
	var	6
	line	3254
	colm	12
	synt	any
	numne
	line	3254
	colm	18
	synt	any
	esusp
	goto	L20
lab L19
	line	3254
	colm	20
	synt	any
	pfail
lab L20
	unmark
lab L18
	mark	L21
	pnull
	var	5
	var	6
	line	3260
	colm	12
	synt	any
	numgt
	pop
	pnull
	var	5
	var	6
	line	3260
	colm	21
	synt	any
	swap
	unmark
lab L21
	mark	L22
	mark	L23
	pnull
	var	6
	pnull
	var	13
	int	1
	line	3266
	colm	18
	synt	any
	plus
	line	3266
	colm	12
	synt	any
	numle
	line	3266
	colm	23
	synt	any
	esusp
	goto	L24
lab L23
	line	3266
	colm	25
	synt	any
	pfail
lab L24
	unmark
lab L22
	mark	L25
	pnull
	var	0
	line	3272
	colm	13
	synt	any
	field	DebugPrint
	str	7
	var	5
	str	8
	str	9
	var	6
	str	8
	str	10
	var	13
	str	8
	str	11
	var	17
	pnull
	var	12
	line	3273
	colm	75
	synt	any
	field	String
	line	3273
	colm	82
	synt	any
	invoke	0
	line	3273
	colm	64
	synt	any
	invoke	1
	line	3272
	colm	24
	synt	any
	invoke	11
	unmark
lab L25
	mark	L26
	pnull
	var	9
	pnull
	var	0
	line	3282
	colm	27
	synt	any
	field	Cset
	var	1
	line	3282
	colm	32
	synt	any
	invoke	1
	line	3282
	colm	20
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	pnull
	pnull
	var	2
	line	3288
	colm	9
	synt	any
	null
	cset	12
	line	3288
	colm	19
	synt	any
	asgn
	unmark
lab L27
	mark	L28
	pnull
	var	10
	pnull
	var	0
	line	3289
	colm	31
	synt	any
	field	Cset
	var	2
	line	3289
	colm	36
	synt	any
	invoke	1
	line	3289
	colm	24
	synt	any
	asgn
	unmark
lab L28
	mark	L29
	pnull
	pnull
	var	3
	line	3295
	colm	9
	synt	any
	null
	cset	13
	line	3295
	colm	20
	synt	any
	asgn
	unmark
lab L29
	mark	L30
	pnull
	var	11
	pnull
	var	0
	line	3296
	colm	32
	synt	any
	field	Cset
	var	3
	line	3296
	colm	37
	synt	any
	invoke	1
	line	3296
	colm	25
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	pnull
	var	0
	line	3298
	colm	13
	synt	any
	field	DebugPrint
	str	14
	var	17
	pnull
	pnull
	var	10
	line	3299
	colm	43
	synt	any
	field	UTF8Value
	line	3299
	colm	53
	synt	any
	invoke	0
	line	3299
	colm	55
	synt	any
	field	String
	line	3299
	colm	62
	synt	any
	invoke	0
	line	3299
	colm	28
	synt	any
	invoke	1
	str	8
	str	15
	var	17
	pnull
	pnull
	var	11
	line	3300
	colm	97
	synt	any
	field	UTF8Value
	line	3300
	colm	107
	synt	any
	invoke	0
	line	3300
	colm	109
	synt	any
	field	String
	line	3300
	colm	116
	synt	any
	invoke	0
	line	3300
	colm	81
	synt	any
	invoke	1
	str	8
	str	11
	var	17
	pnull
	var	12
	line	3301
	colm	75
	synt	any
	field	String
	line	3301
	colm	82
	synt	any
	invoke	0
	line	3301
	colm	64
	synt	any
	invoke	1
	line	3298
	colm	24
	synt	any
	invoke	8
	unmark
lab L31
	mark	L32
lab L33
	line	3308
	colm	9
	synt	while
	mark0
	pnull
	var	5
	var	6
	line	3308
	colm	17
	synt	any
	numle
	unmark
	mark	L33
	mark	L36
	pnull
	var	8
	pnull
	var	0
	line	3325
	colm	29
	synt	any
	field	__GetAt
	var	12
	var	5
	line	3325
	colm	37
	synt	any
	invoke	2
	line	3325
	colm	22
	synt	any
	asgn
	unmark
lab L36
	mark	L37
	pnull
	var	0
	line	3327
	colm	17
	synt	any
	field	DebugPrint
	str	16
	var	17
	pnull
	var	8
	line	3327
	colm	65
	synt	any
	field	String
	line	3327
	colm	72
	synt	any
	invoke	0
	line	3327
	colm	56
	synt	any
	invoke	1
	line	3327
	colm	28
	synt	any
	invoke	2
	unmark
lab L37
	mark	L38
	line	3331
	colm	13
	synt	if
	mark0
	pnull
	var	7
	int	0
	line	3331
	colm	20
	synt	any
	numeq
	pop
	pnull
	var	9
	line	3331
	colm	36
	synt	any
	field	Member
	var	8
	line	3331
	colm	43
	synt	any
	invoke	1
	unmark
	line	3332
	colm	17
	synt	suspend
	mark0
	var	5
	line	3332
	colm	17
	synt	any
	psusp
	pop
lab L39
	efail
lab L40
	line	3332
	colm	17
	synt	endsuspend
	line	3331
	colm	13
	synt	endif
	unmark
lab L38
	mark	L41
	line	3335
	colm	13
	synt	ifelse
	mark	L42
	pnull
	var	10
	line	3335
	colm	30
	synt	any
	field	Member
	var	8
	line	3335
	colm	37
	synt	any
	invoke	1
	unmark
	pnull
	var	7
	dup
	int	1
	line	3336
	colm	21
	synt	any
	plus
	asgn
	goto	L43
lab L42
	line	3337
	colm	20
	synt	if
	mark0
	pnull
	var	11
	line	3337
	colm	38
	synt	any
	field	Member
	var	8
	line	3337
	colm	45
	synt	any
	invoke	1
	unmark
	pnull
	var	7
	dup
	int	1
	line	3338
	colm	21
	synt	any
	minus
	asgn
	line	3337
	colm	20
	synt	endif
lab L43
	line	3335
	colm	13
	synt	endifelse
	unmark
lab L41
	mark	L44
	line	3341
	colm	13
	synt	if
	mark0
	pnull
	var	7
	int	0
	line	3341
	colm	20
	synt	any
	numlt
	unmark
	line	3342
	colm	17
	synt	any
	pfail
	line	3341
	colm	13
	synt	endif
	unmark
lab L44
	pnull
	var	5
	dup
	int	1
	line	3344
	colm	15
	synt	any
	plus
	asgn
lab L34
	unmark
	goto	L33
lab L35
	line	3308
	colm	9
	synt	endwhile
	unmark
lab L32
	mark	L45
	line	3346
	colm	9
	synt	any
	pfail
	unmark
lab L45
	pnull
	line	3347
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Center
	local	0,001000,self
	local	1,001000,ustr
	local	2,001000,i
	local	3,001000,pstr
	local	4,000020,data
	local	5,000020,result
	local	6,000020,j
	local	7,000020,k
	local	8,000020,local_ustr
	local	9,000020,local_pstr
	local	10,000020,lstr
	local	11,000020,rstr
	local	12,000020,s
	local	13,000020,sz
	local	14,000000,keyword
	local	15,000000,ximage
	local	16,000000,integer
	local	17,000000,image
	local	18,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,1,040
	con	5,010000,32,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,164,162,056,123,164,162,151,156,147,050,051,072
	con	6,010000,1,012
	con	7,010000,32,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,160,163,164,162,056,123,164,162,151,156,147,050,051,072
	con	8,010000,2,151,072
	con	9,002000,3,101
	con	10,002000,1,3
	con	11,002000,1,0
	con	12,002000,3,205
	con	13,010000,24,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,040,146,157,162,040,151,072,040
	con	14,010000,3,163,172,072
	con	15,002000,1,2
	con	16,010000,2,152,072
	con	17,010000,2,153,072
	con	18,010000,14,154,163,164,162,056,123,164,162,151,156,147,050,051,072
	con	19,010000,14,162,163,164,162,056,123,164,162,151,156,147,050,051,072
	con	20,010000,2,163,072
	con	21,010000,5,144,141,164,141,072
	declend
	line	3445
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	3482
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	3482
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	14
	str	1
	pnull
	int	2
	line	3482
	colm	46
	synt	any
	invoke	3
	var	14
	str	3
	pnull
	int	2
	line	3482
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	3483
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	3483
	colm	47
	synt	any
	invoke	1
	line	3482
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	3488
	colm	9
	synt	any
	null
	int	2
	line	3488
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	var	3
	line	3494
	colm	9
	synt	any
	null
	str	4
	line	3494
	colm	15
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	8
	pnull
	var	0
	line	3499
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	3499
	colm	36
	synt	any
	invoke	1
	line	3499
	colm	20
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	9
	pnull
	var	0
	line	3504
	colm	27
	synt	any
	field	__Coerce
	var	3
	line	3504
	colm	36
	synt	any
	invoke	1
	line	3504
	colm	20
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	0
	line	3506
	colm	13
	synt	any
	field	DebugPrint
	str	5
	var	15
	pnull
	var	8
	line	3506
	colm	77
	synt	any
	field	String
	line	3506
	colm	84
	synt	any
	invoke	0
	line	3506
	colm	66
	synt	any
	invoke	1
	str	6
	str	7
	var	15
	pnull
	var	9
	line	3507
	colm	75
	synt	any
	field	String
	line	3507
	colm	82
	synt	any
	invoke	0
	line	3507
	colm	64
	synt	any
	invoke	1
	str	6
	str	8
	var	2
	line	3506
	colm	24
	synt	any
	invoke	8
	unmark
lab L6
	mark	L7
	mark	L8
	pnull
	var	2
	var	16
	var	2
	line	3514
	colm	24
	synt	any
	invoke	1
	line	3514
	colm	12
	synt	any
	asgn
	line	3514
	colm	29
	synt	any
	esusp
	goto	L9
lab L8
	pnull
	var	0
	line	3514
	colm	35
	synt	any
	field	AbortMessage
	int	9
	var	14
	str	1
	pnull
	int	2
	line	3514
	colm	60
	synt	any
	invoke	3
	var	14
	str	3
	pnull
	int	2
	line	3514
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	3515
	colm	48
	synt	any
	field	__AuxMessage
	int	9
	int	10
	line	3515
	colm	61
	synt	any
	invoke	2
	var	17
	var	2
	line	3515
	colm	74
	synt	any
	invoke	1
	line	3514
	colm	48
	synt	any
	invoke	5
lab L9
	unmark
lab L7
	mark	L10
	mark	L11
	pnull
	var	2
	int	11
	line	3518
	colm	12
	synt	any
	numge
	line	3518
	colm	18
	synt	any
	esusp
	goto	L12
lab L11
	pnull
	var	0
	line	3518
	colm	24
	synt	any
	field	AbortMessage
	int	12
	var	14
	str	1
	pnull
	int	2
	line	3518
	colm	49
	synt	any
	invoke	3
	var	14
	str	3
	pnull
	int	2
	line	3518
	colm	69
	synt	any
	invoke	3
	str	13
	var	2
	line	3518
	colm	37
	synt	any
	invoke	5
lab L12
	unmark
lab L10
	mark	L13
	pnull
	var	13
	pnull
	var	8
	line	3524
	colm	25
	synt	any
	field	Size
	line	3524
	colm	30
	synt	any
	invoke	0
	line	3524
	colm	12
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	var	0
	line	3526
	colm	13
	synt	any
	field	DebugPrint
	str	14
	var	13
	line	3526
	colm	24
	synt	any
	invoke	2
	unmark
lab L14
	mark	L15
	line	3532
	colm	9
	synt	ifelse
	mark	L16
	pnull
	var	2
	var	13
	line	3532
	colm	14
	synt	any
	numgt
	unmark
	mark	L18
	pnull
	var	6
	pnull
	pnull
	var	2
	var	13
	line	3533
	colm	21
	synt	any
	minus
	int	15
	line	3533
	colm	27
	synt	any
	div
	line	3533
	colm	15
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	var	7
	pnull
	pnull
	var	2
	var	13
	line	3534
	colm	21
	synt	any
	minus
	var	6
	line	3534
	colm	26
	synt	any
	minus
	line	3534
	colm	15
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	var	0
	line	3536
	colm	17
	synt	any
	field	DebugPrint
	str	16
	var	6
	str	6
	str	17
	var	7
	line	3536
	colm	28
	synt	any
	invoke	5
	unmark
lab L20
	mark	L21
	pnull
	var	10
	pnull
	var	0
	line	3538
	colm	25
	synt	any
	field	__GetAt
	pnull
	var	0
	line	3538
	colm	38
	synt	any
	field	Repl
	var	9
	var	6
	line	3538
	colm	43
	synt	any
	invoke	2
	int	2
	pnull
	var	6
	int	2
	line	3538
	colm	61
	synt	any
	plus
	line	3538
	colm	33
	synt	any
	invoke	3
	line	3538
	colm	18
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	pnull
	var	11
	pnull
	var	0
	line	3539
	colm	25
	synt	any
	field	Repl
	var	9
	var	7
	line	3539
	colm	30
	synt	any
	invoke	2
	line	3539
	colm	18
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	pnull
	var	12
	pnull
	var	11
	line	3540
	colm	22
	synt	any
	field	Size
	line	3540
	colm	27
	synt	any
	invoke	0
	line	3540
	colm	15
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	pnull
	var	11
	pnull
	var	0
	line	3541
	colm	25
	synt	any
	field	__GetAt
	var	11
	pnull
	pnull
	var	12
	var	7
	line	3541
	colm	40
	synt	any
	minus
	int	2
	line	3541
	colm	42
	synt	any
	plus
	int	11
	line	3541
	colm	33
	synt	any
	invoke	3
	line	3541
	colm	18
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	pnull
	var	4
	pnull
	var	8
	line	3542
	colm	31
	synt	any
	field	String
	line	3542
	colm	38
	synt	any
	invoke	0
	line	3542
	colm	18
	synt	any
	asgn
	unmark
lab L25
	mark	L26
	pnull
	var	0
	line	3544
	colm	17
	synt	any
	field	DebugPrint
	str	18
	var	15
	pnull
	var	10
	line	3544
	colm	57
	synt	any
	field	String
	line	3544
	colm	64
	synt	any
	invoke	0
	line	3544
	colm	52
	synt	any
	invoke	1
	str	6
	str	19
	var	15
	pnull
	var	11
	line	3545
	colm	55
	synt	any
	field	String
	line	3545
	colm	62
	synt	any
	invoke	0
	line	3545
	colm	50
	synt	any
	invoke	1
	str	6
	str	20
	var	12
	str	6
	str	19
	var	15
	pnull
	var	11
	line	3547
	colm	55
	synt	any
	field	String
	line	3547
	colm	62
	synt	any
	invoke	0
	line	3547
	colm	50
	synt	any
	invoke	1
	str	6
	str	21
	var	15
	var	4
	line	3548
	colm	41
	synt	any
	invoke	1
	line	3544
	colm	28
	synt	any
	invoke	14
	unmark
lab L26
	mark	L27
	pnull
	var	18
	line	3550
	colm	30
	synt	any
	field	New
	pnull
	pnull
	pnull
	var	10
	line	3550
	colm	39
	synt	any
	field	String
	line	3550
	colm	46
	synt	any
	invoke	0
	var	4
	line	3550
	colm	49
	synt	any
	cat
	pnull
	var	11
	line	3550
	colm	64
	synt	any
	field	String
	line	3550
	colm	71
	synt	any
	invoke	0
	line	3550
	colm	57
	synt	any
	cat
	line	3550
	colm	34
	synt	any
	invoke	1
	line	3550
	colm	13
	synt	any
	pret
lab L27
	synt	any
	pfail
	goto	L17
lab L16
	line	3552
	colm	16
	synt	ifelse
	mark	L28
	pnull
	pnull
	var	2
	int	15
	line	3552
	colm	21
	synt	any
	mod
	int	11
	line	3552
	colm	25
	synt	any
	numeq
	unmark
	mark	L30
	pnull
	var	7
	pnull
	var	2
	int	15
	line	3553
	colm	20
	synt	any
	div
	line	3553
	colm	15
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	pnull
	var	6
	pnull
	pnull
	pnull
	var	13
	int	15
	line	3554
	colm	23
	synt	any
	plus
	int	15
	line	3554
	colm	28
	synt	any
	div
	var	7
	line	3554
	colm	33
	synt	any
	minus
	line	3554
	colm	15
	synt	any
	asgn
	unmark
lab L31
	mark	L32
	pnull
	var	4
	pnull
	var	0
	line	3555
	colm	25
	synt	any
	field	__GetAt
	var	8
	var	6
	pnull
	var	6
	var	2
	line	3555
	colm	48
	synt	any
	plus
	line	3555
	colm	33
	synt	any
	invoke	3
	line	3555
	colm	18
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	var	4
	line	3556
	colm	13
	synt	any
	pret
lab L33
	synt	any
	pfail
	goto	L29
lab L28
	mark	L34
	pnull
	var	6
	pnull
	pnull
	pnull
	var	13
	int	10
	line	3559
	colm	22
	synt	any
	plus
	var	2
	line	3559
	colm	26
	synt	any
	minus
	int	15
	line	3559
	colm	31
	synt	any
	div
	line	3559
	colm	15
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	pnull
	var	4
	pnull
	var	0
	line	3560
	colm	25
	synt	any
	field	__GetAt
	var	9
	var	6
	pnull
	var	6
	var	2
	line	3560
	colm	48
	synt	any
	plus
	line	3560
	colm	33
	synt	any
	invoke	3
	line	3560
	colm	18
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	var	4
	line	3561
	colm	13
	synt	any
	pret
lab L36
	synt	any
	pfail
lab L29
	line	3552
	colm	16
	synt	endifelse
lab L17
	line	3532
	colm	9
	synt	endifelse
	unmark
lab L15
	pnull
	line	3563
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Char
	local	0,001000,self
	local	1,001000,i
	local	2,000000,keyword
	local	3,000000,integer
	local	4,000000,image
	con	0,002000,3,101
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,1,3
	declend
	line	3565
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	3566
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	3566
	colm	18
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	3566
	colm	43
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	3566
	colm	63
	synt	any
	invoke	3
	pnull
	var	0
	line	3567
	colm	31
	synt	any
	field	__AuxMessage
	int	0
	line	3567
	colm	44
	synt	any
	invoke	1
	line	3566
	colm	31
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	1
	var	3
	var	1
	line	3569
	colm	24
	synt	any
	invoke	1
	line	3569
	colm	12
	synt	any
	asgn
	line	3569
	colm	29
	synt	any
	esusp
	goto	L4
lab L3
	pnull
	var	0
	line	3569
	colm	35
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	3569
	colm	60
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	3569
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	3570
	colm	48
	synt	any
	field	__AuxMessage
	int	0
	int	4
	line	3570
	colm	61
	synt	any
	invoke	2
	var	4
	var	1
	line	3570
	colm	74
	synt	any
	invoke	1
	line	3569
	colm	48
	synt	any
	invoke	5
lab L4
	unmark
lab L2
	mark	L5
	mark	L6
	pnull
	var	0
	line	3572
	colm	20
	synt	any
	field	DecimalTo
	var	1
	line	3572
	colm	30
	synt	any
	invoke	1
	line	3572
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	3573
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Cset
	local	0,001000,self
	local	1,001000,val
	local	2,000000,UTF8__UTF8Set
	declend
	line	3575
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	3576
	colm	9
	synt	any
	null
	pop
	line	3576
	colm	16
	synt	any
	pfail
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	2
	line	3577
	colm	29
	synt	any
	field	__Coerce
	var	1
	line	3577
	colm	38
	synt	any
	invoke	1
	line	3577
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	3578
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Detab
	local	0,001000,self
	local	1,001000,ustr
	local	2,001000,i
	local	3,000020,j
	local	4,000020,k
	local	5,000020,str
	local	6,000020,local_ustr
	local	7,000020,isorted
	local	8,000020,ch
	local	9,000020,col
	local	10,000020,tst
	local	11,000020,interval
	local	12,000000,keyword
	local	13,000000,sort
	local	14,000000,equiv
	local	15,000000,ximage
	local	16,000000,type
	local	17,000000,image
	local	18,000000,UTF8__UTF8
	con	0,002000,1,1
	con	1,010000,0
	con	2,002000,1,8
	con	3,002000,3,103
	con	4,010000,5,046,146,151,154,145
	con	5,010000,5,046,154,151,156,145
	con	6,002000,1,0
	con	7,002000,1,9
	con	8,002000,1,2
	con	9,002000,3,210
	con	10,010000,18,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040
	con	11,010000,10,170,151,155,141,147,145,050,151,051,072
	con	12,010000,1,012
	con	13,010000,9,151,156,164,145,162,166,141,154,072
	con	14,010000,32,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,164,162,056,123,164,162,151,156,147,050,051,072
	con	15,010000,7,151,156,164,145,147,145,162
	con	16,002000,3,101
	con	17,002000,1,3
	con	18,010000,30,141,154,154,040,145,154,145,155,145,156,164,163,040,157,146,040,151,040,141,162,145,040,151,156,164,145,147,145,162,163
	con	19,010000,25,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,163,040,146,157,162,040,151,072,040
	con	20,010000,7,040,141,156,144,040,152,072
	con	21,010000,33,141,154,154,040,145,154,145,155,145,156,164,163,040,157,146,040,151,040,141,162,145,040,151,156,040,163,145,161,165,145,156,143,145
	con	22,010000,2,152,072
	con	23,010000,2,153,072
	con	24,010000,3,143,150,072
	con	25,010000,4,143,157,154,072
	con	26,010000,1,010
	con	27,010000,1,015
	con	28,010000,1,011
	con	29,010000,1,040
	con	30,010000,4,163,164,162,072
	declend
	line	3600
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	int	0
	line	3601
	colm	19
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	5
	str	1
	line	3605
	colm	21
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	9
	int	0
	line	3619
	colm	21
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	11
	int	2
	line	3623
	colm	26
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	line	3625
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	3625
	colm	21
	synt	any
	field	AbortMessage
	int	3
	var	12
	str	4
	pnull
	int	0
	line	3625
	colm	46
	synt	any
	invoke	3
	var	12
	str	5
	pnull
	int	0
	line	3625
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	3626
	colm	34
	synt	any
	field	__AuxMessage
	int	3
	line	3626
	colm	47
	synt	any
	invoke	1
	line	3625
	colm	34
	synt	any
	invoke	4
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	2
	line	3628
	colm	10
	synt	any
	size
	int	6
	line	3628
	colm	13
	synt	any
	numeq
	pop
	pnull
	var	2
	pnull
	int	7
	line	3628
	colm	25
	synt	any
	llist	1
	line	3628
	colm	22
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	7
	var	13
	var	2
	line	3629
	colm	26
	synt	any
	invoke	1
	line	3629
	colm	17
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	line	3630
	colm	9
	synt	if
	mark0
	mark	L9
	var	14
	var	2
	var	7
	line	3630
	colm	23
	synt	any
	invoke	2
	unmark
	efail
lab L9
	pnull
	unmark
	mark	L10
	pnull
	var	3
	pnull
	var	2
	int	0
	line	3631
	colm	19
	synt	any
	subsc
	line	3631
	colm	15
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	3632
	colm	13
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	2
	pnull
	int	8
	pnull
	var	2
	line	3632
	colm	31
	synt	any
	size
	push1
	line	3632
	colm	28
	synt	any
	toby
	line	3632
	colm	25
	synt	any
	subsc
	line	3632
	colm	21
	synt	any
	asgn
	pop
	mark0
	line	3633
	colm	17
	synt	ifelse
	mark	L14
	pnull
	var	3
	var	4
	line	3633
	colm	22
	synt	any
	numlt
	unmark
	pnull
	var	3
	var	4
	line	3634
	colm	23
	synt	any
	asgn
	goto	L15
lab L14
	unmark
	unmark
	pnull
	goto	L13
lab L15
	line	3633
	colm	17
	synt	endifelse
	unmark
lab L12
	efail
lab L13
	line	3632
	colm	13
	synt	endevery
	unmark
lab L11
	pnull
	var	0
	line	3639
	colm	17
	synt	any
	field	AbortMessage
	int	9
	var	12
	str	4
	pnull
	int	0
	line	3639
	colm	42
	synt	any
	invoke	3
	var	12
	str	5
	pnull
	int	0
	line	3639
	colm	62
	synt	any
	invoke	3
	str	10
	var	4
	line	3639
	colm	30
	synt	any
	invoke	5
	line	3630
	colm	9
	synt	endif
	unmark
lab L8
	mark	L16
	pnull
	var	0
	line	3642
	colm	13
	synt	any
	field	DebugPrint
	str	11
	var	15
	var	2
	line	3642
	colm	44
	synt	any
	invoke	1
	str	12
	str	13
	var	11
	line	3642
	colm	24
	synt	any
	invoke	5
	unmark
lab L16
	mark	L17
	pnull
	var	6
	pnull
	var	0
	line	3644
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	3644
	colm	36
	synt	any
	invoke	1
	line	3644
	colm	20
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	var	0
	line	3646
	colm	13
	synt	any
	field	DebugPrint
	str	14
	var	15
	pnull
	var	6
	line	3646
	colm	77
	synt	any
	field	String
	line	3646
	colm	84
	synt	any
	invoke	0
	line	3646
	colm	66
	synt	any
	invoke	1
	line	3646
	colm	24
	synt	any
	invoke	2
	unmark
lab L18
	mark	L19
	line	3648
	colm	9
	synt	every
	mark0
	pnull
	var	10
	var	16
	pnull
	var	2
	line	3648
	colm	29
	synt	any
	bang
	line	3648
	colm	28
	synt	any
	invoke	1
	line	3648
	colm	19
	synt	any
	asgn
	pop
	mark0
	mark	L22
	pnull
	var	10
	str	15
	line	3649
	colm	18
	synt	any
	lexeq
	line	3649
	colm	32
	synt	any
	esusp
	goto	L23
lab L22
	pnull
	var	0
	line	3649
	colm	38
	synt	any
	field	AbortMessage
	int	16
	var	12
	str	4
	pnull
	int	0
	line	3649
	colm	63
	synt	any
	invoke	3
	var	12
	str	5
	pnull
	int	0
	line	3649
	colm	83
	synt	any
	invoke	3
	pnull
	var	0
	line	3650
	colm	51
	synt	any
	field	__AuxMessage
	int	16
	int	17
	line	3650
	colm	64
	synt	any
	invoke	2
	var	17
	var	2
	line	3650
	colm	77
	synt	any
	invoke	1
	line	3649
	colm	51
	synt	any
	invoke	5
lab L23
	unmark
lab L20
	efail
lab L21
	line	3648
	colm	9
	synt	endevery
	unmark
lab L19
	mark	L24
	pnull
	var	0
	line	3653
	colm	13
	synt	any
	field	DebugPrint
	str	18
	line	3653
	colm	24
	synt	any
	invoke	1
	unmark
lab L24
	mark	L25
	line	3655
	colm	9
	synt	every
	mark0
	pnull
	var	10
	pnull
	var	2
	line	3655
	colm	23
	synt	any
	bang
	line	3655
	colm	20
	synt	any
	asgn
	pop
	mark0
	mark	L28
	pnull
	var	3
	dup
	var	10
	line	3656
	colm	16
	synt	any
	numle
	asgn
	line	3656
	colm	26
	synt	any
	esusp
	goto	L29
lab L28
	pnull
	var	0
	line	3656
	colm	32
	synt	any
	field	AbortMessage
	int	9
	var	12
	str	4
	pnull
	int	0
	line	3656
	colm	57
	synt	any
	invoke	3
	var	12
	str	5
	pnull
	int	0
	line	3656
	colm	77
	synt	any
	invoke	3
	str	19
	var	2
	str	20
	var	3
	line	3656
	colm	45
	synt	any
	invoke	7
lab L29
	unmark
lab L26
	efail
lab L27
	line	3655
	colm	9
	synt	endevery
	unmark
lab L25
	mark	L30
	pnull
	var	0
	line	3659
	colm	13
	synt	any
	field	DebugPrint
	str	21
	line	3659
	colm	24
	synt	any
	invoke	1
	unmark
lab L30
	mark	L31
	pnull
	var	3
	int	0
	line	3661
	colm	11
	synt	any
	asgn
	unmark
lab L31
	mark	L32
	pnull
	var	4
	pnull
	var	2
	var	3
	line	3662
	colm	15
	synt	any
	subsc
	line	3662
	colm	11
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	pnull
	var	0
	line	3664
	colm	13
	synt	any
	field	DebugPrint
	str	22
	var	3
	str	12
	str	23
	var	4
	line	3664
	colm	24
	synt	any
	invoke	5
	unmark
lab L33
	mark	L34
	line	3666
	colm	9
	synt	every
	mark0
	pnull
	var	8
	pnull
	pnull
	var	6
	line	3666
	colm	31
	synt	any
	field	ForEach
	line	3666
	colm	39
	synt	any
	invoke	0
	line	3666
	colm	41
	synt	any
	field	String
	line	3666
	colm	48
	synt	any
	invoke	0
	line	3666
	colm	18
	synt	any
	asgn
	pop
	mark0
	mark	L37
	pnull
	var	0
	line	3667
	colm	17
	synt	any
	field	DebugPrint
	str	24
	var	15
	var	8
	line	3667
	colm	41
	synt	any
	invoke	1
	str	12
	str	25
	var	9
	line	3667
	colm	28
	synt	any
	invoke	5
	unmark
lab L37
	mark	L38
	line	3669
	colm	13
	synt	case
	mark0
	var	8
	eret
	mark	L40
	ccase
	str	26
	line	3670
	colm	22
	synt	any
	eqv
	unmark
	pop
	mark	L41
	pnull
	var	5
	dup
	var	8
	line	3671
	colm	25
	synt	any
	cat
	asgn
	unmark
lab L41
	pnull
	var	9
	dup
	pnull
	var	9
	int	0
	line	3672
	colm	34
	synt	any
	numgt
	line	3672
	colm	25
	synt	any
	minus
	asgn
	goto	L39
lab L40
	mark	L42
	ccase
	mark	L43
	str	12
	line	3674
	colm	22
	synt	any
	esusp
	goto	L44
lab L43
	str	27
lab L44
	line	3674
	colm	29
	synt	any
	eqv
	unmark
	pop
	mark	L45
	pnull
	var	5
	dup
	var	8
	line	3675
	colm	25
	synt	any
	cat
	asgn
	unmark
lab L45
	pnull
	var	9
	pnull
	var	3
	int	0
	line	3676
	colm	30
	synt	any
	asgn
	line	3676
	colm	25
	synt	any
	asgn
	goto	L39
lab L42
	mark	L46
	ccase
	str	28
	line	3678
	colm	22
	synt	any
	eqv
	unmark
	pop
	mark	L47
	line	3679
	colm	21
	synt	every
	mark0
	pnull
	var	9
	pnull
	var	4
	int	0
	line	3679
	colm	36
	synt	any
	minus
	push1
	line	3679
	colm	31
	synt	any
	toby
	pop
	mark0
	pnull
	var	5
	dup
	str	29
	line	3680
	colm	29
	synt	any
	cat
	asgn
	unmark
lab L48
	efail
lab L49
	line	3679
	colm	21
	synt	endevery
	unmark
lab L47
	mark	L50
	pnull
	var	9
	var	4
	line	3682
	colm	25
	synt	any
	asgn
	unmark
lab L50
	mark	L51
	pnull
	var	3
	dup
	int	0
	line	3683
	colm	23
	synt	any
	plus
	asgn
	unmark
lab L51
	pnull
	var	4
	mark	L52
	pnull
	var	2
	var	3
	line	3684
	colm	28
	synt	any
	subsc
	line	3684
	colm	32
	synt	any
	esusp
	goto	L53
lab L52
	pnull
	var	4
	var	11
	line	3684
	colm	37
	synt	any
	plus
lab L53
	line	3684
	colm	23
	synt	any
	asgn
	goto	L39
lab L46
	pop
	mark	L54
	pnull
	var	5
	dup
	var	8
	line	3687
	colm	25
	synt	any
	cat
	asgn
	unmark
lab L54
	mark	L55
	pnull
	var	9
	dup
	int	0
	line	3688
	colm	25
	synt	any
	plus
	asgn
	unmark
lab L55
	pnull
	var	3
	dup
	pnull
	pnull
	var	9
	var	4
	line	3689
	colm	32
	synt	any
	numeq
	int	0
	line	3689
	colm	36
	synt	any
	numgt
	line	3689
	colm	23
	synt	any
	plus
	asgn
lab L39
	line	3669
	colm	13
	synt	endcase
	unmark
lab L38
	mark	L56
	pnull
	var	0
	line	3693
	colm	17
	synt	any
	field	DebugPrint
	str	25
	var	9
	str	12
	str	23
	var	4
	line	3693
	colm	28
	synt	any
	invoke	5
	unmark
lab L56
	mark	L57
	line	3695
	colm	13
	synt	if
	mark0
	pnull
	var	9
	var	4
	line	3695
	colm	20
	synt	any
	numeq
	unmark
	mark	L58
	pnull
	var	3
	dup
	int	0
	line	3696
	colm	19
	synt	any
	plus
	asgn
	unmark
lab L58
	pnull
	var	4
	mark	L59
	pnull
	var	2
	var	3
	line	3697
	colm	24
	synt	any
	subsc
	line	3697
	colm	28
	synt	any
	esusp
	goto	L60
lab L59
	pnull
	var	4
	var	11
	line	3697
	colm	32
	synt	any
	plus
lab L60
	line	3697
	colm	19
	synt	any
	asgn
	line	3695
	colm	13
	synt	endif
	unmark
lab L57
	pnull
	var	0
	line	3700
	colm	17
	synt	any
	field	DebugPrint
	str	30
	var	15
	var	5
	line	3700
	colm	42
	synt	any
	invoke	1
	line	3700
	colm	28
	synt	any
	invoke	2
	unmark
lab L35
	efail
lab L36
	line	3666
	colm	9
	synt	endevery
	unmark
lab L34
	mark	L61
	pnull
	var	0
	line	3704
	colm	13
	synt	any
	field	DebugPrint
	str	30
	var	15
	var	5
	line	3704
	colm	38
	synt	any
	invoke	1
	str	12
	str	14
	var	15
	pnull
	var	6
	line	3705
	colm	75
	synt	any
	field	String
	line	3705
	colm	82
	synt	any
	invoke	0
	line	3705
	colm	64
	synt	any
	invoke	1
	line	3704
	colm	24
	synt	any
	invoke	5
	unmark
lab L61
	mark	L62
	mark	L63
	line	3707
	colm	16
	synt	ifelse
	mark	L64
	pnull
	pnull
	var	6
	line	3707
	colm	29
	synt	any
	field	String
	line	3707
	colm	36
	synt	any
	invoke	0
	var	5
	line	3707
	colm	39
	synt	any
	lexeq
	unmark
	var	6
	goto	L65
lab L64
	pnull
	var	18
	line	3710
	colm	23
	synt	any
	field	New
	var	5
	line	3710
	colm	27
	synt	any
	invoke	1
lab L65
	line	3707
	colm	16
	synt	endifelse
	line	3707
	colm	9
	synt	any
	pret
lab L63
	synt	any
	pfail
	unmark
lab L62
	pnull
	line	3712
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Entab
	local	0,001000,self
	local	1,001000,ustr
	local	2,001000,i
	local	3,000020,j
	local	4,000020,k
	local	5,000020,str
	local	6,000020,local_ustr
	local	7,000020,isorted
	local	8,000020,ch
	local	9,000020,col
	local	10,000020,p
	local	11,000020,tst
	local	12,000020,interval
	local	13,000000,keyword
	local	14,000000,sort
	local	15,000000,equiv
	local	16,000000,ximage
	local	17,000000,type
	local	18,000000,image
	local	19,000000,reverse
	local	20,000000,many
	local	21,000000,UTF8__UTF8
	con	0,002000,1,1
	con	1,010000,0
	con	2,002000,1,8
	con	3,002000,3,103
	con	4,010000,5,046,146,151,154,145
	con	5,010000,5,046,154,151,156,145
	con	6,002000,1,0
	con	7,002000,1,9
	con	8,002000,1,2
	con	9,002000,3,210
	con	10,010000,18,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040
	con	11,010000,10,170,151,155,141,147,145,050,151,051,072
	con	12,010000,1,012
	con	13,010000,9,151,156,164,145,162,166,141,154,072
	con	14,010000,32,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,164,162,056,123,164,162,151,156,147,050,051,072
	con	15,010000,7,151,156,164,145,147,145,162
	con	16,002000,3,101
	con	17,002000,1,3
	con	18,010000,30,141,154,154,040,145,154,145,155,145,156,164,163,040,157,146,040,151,040,141,162,145,040,151,156,164,145,147,145,162,163
	con	19,010000,25,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,163,040,146,157,162,040,151,072,040
	con	20,010000,7,040,141,156,144,040,152,072
	con	21,010000,33,141,154,154,040,145,154,145,155,145,156,164,163,040,157,146,040,151,040,141,162,145,040,151,156,040,163,145,161,165,145,156,143,145
	con	22,010000,2,152,072
	con	23,010000,2,153,072
	con	24,010000,3,143,150,072
	con	25,010000,4,143,157,154,072
	con	26,010000,1,010
	con	27,010000,1,015
	con	28,010000,1,011
	con	29,010000,1,040
	con	30,010000,4,163,164,162,072
	con	31,020000,1,040
	declend
	line	3714
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	int	0
	line	3715
	colm	19
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	5
	str	1
	line	3719
	colm	21
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	9
	int	0
	line	3733
	colm	21
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	12
	int	2
	line	3739
	colm	26
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	line	3741
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	3741
	colm	21
	synt	any
	field	AbortMessage
	int	3
	var	13
	str	4
	pnull
	int	0
	line	3741
	colm	46
	synt	any
	invoke	3
	var	13
	str	5
	pnull
	int	0
	line	3741
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	3742
	colm	34
	synt	any
	field	__AuxMessage
	int	3
	line	3742
	colm	47
	synt	any
	invoke	1
	line	3741
	colm	34
	synt	any
	invoke	4
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	2
	line	3744
	colm	10
	synt	any
	size
	int	6
	line	3744
	colm	13
	synt	any
	numeq
	pop
	pnull
	var	2
	pnull
	int	7
	line	3744
	colm	25
	synt	any
	llist	1
	line	3744
	colm	22
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	7
	var	14
	var	2
	line	3745
	colm	26
	synt	any
	invoke	1
	line	3745
	colm	17
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	line	3746
	colm	9
	synt	if
	mark0
	mark	L9
	var	15
	var	2
	var	7
	line	3746
	colm	23
	synt	any
	invoke	2
	unmark
	efail
lab L9
	pnull
	unmark
	mark	L10
	pnull
	var	3
	pnull
	var	2
	int	0
	line	3747
	colm	19
	synt	any
	subsc
	line	3747
	colm	15
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	line	3748
	colm	13
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	2
	pnull
	int	8
	pnull
	var	2
	line	3748
	colm	31
	synt	any
	size
	push1
	line	3748
	colm	28
	synt	any
	toby
	line	3748
	colm	25
	synt	any
	subsc
	line	3748
	colm	21
	synt	any
	asgn
	pop
	mark0
	line	3749
	colm	17
	synt	ifelse
	mark	L14
	pnull
	var	3
	var	4
	line	3749
	colm	22
	synt	any
	numlt
	unmark
	pnull
	var	3
	var	4
	line	3750
	colm	23
	synt	any
	asgn
	goto	L15
lab L14
	unmark
	unmark
	pnull
	goto	L13
lab L15
	line	3749
	colm	17
	synt	endifelse
	unmark
lab L12
	efail
lab L13
	line	3748
	colm	13
	synt	endevery
	unmark
lab L11
	pnull
	var	0
	line	3755
	colm	17
	synt	any
	field	AbortMessage
	int	9
	var	13
	str	4
	pnull
	int	0
	line	3755
	colm	42
	synt	any
	invoke	3
	var	13
	str	5
	pnull
	int	0
	line	3755
	colm	62
	synt	any
	invoke	3
	str	10
	var	4
	line	3755
	colm	30
	synt	any
	invoke	5
	line	3746
	colm	9
	synt	endif
	unmark
lab L8
	mark	L16
	pnull
	var	0
	line	3758
	colm	13
	synt	any
	field	DebugPrint
	str	11
	var	16
	var	2
	line	3758
	colm	44
	synt	any
	invoke	1
	str	12
	str	13
	var	12
	line	3758
	colm	24
	synt	any
	invoke	5
	unmark
lab L16
	mark	L17
	pnull
	var	6
	pnull
	var	0
	line	3760
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	3760
	colm	36
	synt	any
	invoke	1
	line	3760
	colm	20
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	var	0
	line	3762
	colm	13
	synt	any
	field	DebugPrint
	str	14
	var	16
	pnull
	var	6
	line	3762
	colm	77
	synt	any
	field	String
	line	3762
	colm	84
	synt	any
	invoke	0
	line	3762
	colm	66
	synt	any
	invoke	1
	line	3762
	colm	24
	synt	any
	invoke	2
	unmark
lab L18
	mark	L19
	line	3764
	colm	9
	synt	every
	mark0
	pnull
	var	11
	var	17
	pnull
	var	2
	line	3764
	colm	29
	synt	any
	bang
	line	3764
	colm	28
	synt	any
	invoke	1
	line	3764
	colm	19
	synt	any
	asgn
	pop
	mark0
	mark	L22
	pnull
	var	11
	str	15
	line	3765
	colm	18
	synt	any
	lexeq
	line	3765
	colm	32
	synt	any
	esusp
	goto	L23
lab L22
	pnull
	var	0
	line	3765
	colm	38
	synt	any
	field	AbortMessage
	int	16
	var	13
	str	4
	pnull
	int	0
	line	3765
	colm	63
	synt	any
	invoke	3
	var	13
	str	5
	pnull
	int	0
	line	3765
	colm	83
	synt	any
	invoke	3
	pnull
	var	0
	line	3766
	colm	51
	synt	any
	field	__AuxMessage
	int	16
	int	17
	line	3766
	colm	64
	synt	any
	invoke	2
	var	18
	var	2
	line	3766
	colm	77
	synt	any
	invoke	1
	line	3765
	colm	51
	synt	any
	invoke	5
lab L23
	unmark
lab L20
	efail
lab L21
	line	3764
	colm	9
	synt	endevery
	unmark
lab L19
	mark	L24
	pnull
	var	0
	line	3769
	colm	13
	synt	any
	field	DebugPrint
	str	18
	line	3769
	colm	24
	synt	any
	invoke	1
	unmark
lab L24
	mark	L25
	line	3771
	colm	9
	synt	every
	mark0
	pnull
	var	11
	pnull
	var	2
	line	3771
	colm	23
	synt	any
	bang
	line	3771
	colm	20
	synt	any
	asgn
	pop
	mark0
	mark	L28
	pnull
	var	3
	dup
	var	11
	line	3772
	colm	16
	synt	any
	numle
	asgn
	line	3772
	colm	26
	synt	any
	esusp
	goto	L29
lab L28
	pnull
	var	0
	line	3772
	colm	32
	synt	any
	field	AbortMessage
	int	9
	var	13
	str	4
	pnull
	int	0
	line	3772
	colm	57
	synt	any
	invoke	3
	var	13
	str	5
	pnull
	int	0
	line	3772
	colm	77
	synt	any
	invoke	3
	str	19
	var	2
	str	20
	var	3
	line	3772
	colm	45
	synt	any
	invoke	7
lab L29
	unmark
lab L26
	efail
lab L27
	line	3771
	colm	9
	synt	endevery
	unmark
lab L25
	mark	L30
	pnull
	var	0
	line	3775
	colm	13
	synt	any
	field	DebugPrint
	str	21
	line	3775
	colm	24
	synt	any
	invoke	1
	unmark
lab L30
	mark	L31
	pnull
	var	3
	int	0
	line	3777
	colm	11
	synt	any
	asgn
	unmark
lab L31
	mark	L32
	pnull
	var	4
	pnull
	var	2
	var	3
	line	3778
	colm	15
	synt	any
	subsc
	line	3778
	colm	11
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	pnull
	var	0
	line	3780
	colm	13
	synt	any
	field	DebugPrint
	str	22
	var	3
	str	12
	str	23
	var	4
	line	3780
	colm	24
	synt	any
	invoke	5
	unmark
lab L33
	mark	L34
	line	3782
	colm	9
	synt	every
	mark0
	pnull
	var	8
	pnull
	pnull
	var	6
	line	3782
	colm	31
	synt	any
	field	ForEach
	line	3782
	colm	39
	synt	any
	invoke	0
	line	3782
	colm	41
	synt	any
	field	String
	line	3782
	colm	48
	synt	any
	invoke	0
	line	3782
	colm	18
	synt	any
	asgn
	pop
	mark0
	mark	L37
	pnull
	var	0
	line	3784
	colm	17
	synt	any
	field	DebugPrint
	str	24
	var	16
	var	8
	line	3784
	colm	41
	synt	any
	invoke	1
	str	12
	str	25
	var	9
	line	3784
	colm	28
	synt	any
	invoke	5
	unmark
lab L37
	mark	L38
	line	3786
	colm	13
	synt	case
	mark0
	var	8
	eret
	mark	L40
	ccase
	str	26
	line	3787
	colm	22
	synt	any
	eqv
	unmark
	pop
	mark	L41
	pnull
	var	5
	dup
	var	8
	line	3788
	colm	25
	synt	any
	cat
	asgn
	unmark
lab L41
	pnull
	var	9
	dup
	pnull
	var	9
	int	0
	line	3789
	colm	34
	synt	any
	numgt
	line	3789
	colm	25
	synt	any
	minus
	asgn
	goto	L39
lab L40
	mark	L42
	ccase
	mark	L43
	str	12
	line	3791
	colm	22
	synt	any
	esusp
	goto	L44
lab L43
	str	27
lab L44
	line	3791
	colm	29
	synt	any
	eqv
	unmark
	pop
	mark	L45
	pnull
	var	5
	dup
	var	8
	line	3792
	colm	25
	synt	any
	cat
	asgn
	unmark
lab L45
	pnull
	var	9
	pnull
	var	3
	int	0
	line	3793
	colm	30
	synt	any
	asgn
	line	3793
	colm	25
	synt	any
	asgn
	goto	L39
lab L42
	mark	L46
	ccase
	str	28
	line	3795
	colm	22
	synt	any
	eqv
	unmark
	pop
	mark	L47
	pnull
	var	9
	var	4
	line	3796
	colm	25
	synt	any
	asgn
	unmark
lab L47
	mark	L48
	pnull
	var	3
	dup
	int	0
	line	3797
	colm	23
	synt	any
	plus
	asgn
	unmark
lab L48
	pnull
	var	4
	mark	L49
	pnull
	var	2
	var	3
	line	3798
	colm	28
	synt	any
	subsc
	line	3798
	colm	32
	synt	any
	esusp
	goto	L50
lab L49
	pnull
	var	4
	var	12
	line	3798
	colm	37
	synt	any
	plus
lab L50
	line	3798
	colm	23
	synt	any
	asgn
	goto	L39
lab L46
	mark	L51
	ccase
	str	29
	line	3800
	colm	21
	synt	any
	eqv
	unmark
	pop
	mark	L52
	pnull
	var	5
	dup
	str	29
	line	3801
	colm	25
	synt	any
	cat
	asgn
	unmark
lab L52
	mark	L53
	pnull
	var	9
	dup
	int	0
	line	3802
	colm	25
	synt	any
	plus
	asgn
	unmark
lab L53
	mark	L54
	pnull
	var	0
	line	3804
	colm	25
	synt	any
	field	DebugPrint
	str	25
	var	9
	str	12
	str	23
	var	4
	line	3804
	colm	36
	synt	any
	invoke	5
	unmark
lab L54
	line	3806
	colm	21
	synt	if
	mark0
	pnull
	var	9
	var	4
	line	3806
	colm	28
	synt	any
	numeq
	unmark
	mark	L55
	pnull
	var	0
	line	3808
	colm	29
	synt	any
	field	DebugPrint
	str	30
	var	16
	var	5
	line	3808
	colm	54
	synt	any
	invoke	1
	line	3808
	colm	40
	synt	any
	invoke	2
	unmark
lab L55
	mark	L56
	pnull
	var	5
	var	19
	var	5
	line	3810
	colm	41
	synt	any
	invoke	1
	line	3810
	colm	29
	synt	any
	asgn
	unmark
lab L56
	mark	L57
	pnull
	var	0
	line	3812
	colm	29
	synt	any
	field	DebugPrint
	str	30
	var	16
	var	5
	line	3812
	colm	54
	synt	any
	invoke	1
	line	3812
	colm	40
	synt	any
	invoke	2
	unmark
lab L57
	mark	L58
	line	3814
	colm	25
	synt	if
	mark0
	pnull
	var	10
	var	20
	cset	31
	var	5
	line	3814
	colm	39
	synt	any
	invoke	2
	line	3814
	colm	30
	synt	any
	asgn
	unmark
	mark	L59
	pnull
	var	5
	pnull
	str	28
	pnull
	var	5
	var	10
	int	6
	line	3815
	colm	49
	synt	any
	synt	any
	sect
	line	3815
	colm	41
	synt	any
	cat
	line	3815
	colm	33
	synt	any
	asgn
	unmark
lab L59
	pnull
	var	0
	line	3817
	colm	33
	synt	any
	field	DebugPrint
	str	30
	var	16
	var	5
	line	3817
	colm	58
	synt	any
	invoke	1
	line	3817
	colm	44
	synt	any
	invoke	2
	line	3814
	colm	25
	synt	endif
	unmark
lab L58
	mark	L60
	pnull
	var	0
	line	3821
	colm	29
	synt	any
	field	DebugPrint
	str	30
	var	16
	var	5
	line	3821
	colm	54
	synt	any
	invoke	1
	line	3821
	colm	40
	synt	any
	invoke	2
	unmark
lab L60
	mark	L61
	pnull
	var	5
	var	19
	var	5
	line	3823
	colm	41
	synt	any
	invoke	1
	line	3823
	colm	29
	synt	any
	asgn
	unmark
lab L61
	pnull
	var	0
	line	3825
	colm	29
	synt	any
	field	DebugPrint
	str	30
	var	16
	var	5
	line	3825
	colm	54
	synt	any
	invoke	1
	line	3825
	colm	40
	synt	any
	invoke	2
	line	3806
	colm	21
	synt	endif
	goto	L39
lab L51
	pop
	mark	L62
	pnull
	var	5
	dup
	var	8
	line	3829
	colm	25
	synt	any
	cat
	asgn
	unmark
lab L62
	mark	L63
	pnull
	var	9
	dup
	int	0
	line	3830
	colm	25
	synt	any
	plus
	asgn
	unmark
lab L63
	pnull
	var	3
	dup
	pnull
	pnull
	var	9
	var	4
	line	3831
	colm	32
	synt	any
	numeq
	int	0
	line	3831
	colm	36
	synt	any
	numgt
	line	3831
	colm	23
	synt	any
	plus
	asgn
lab L39
	line	3786
	colm	13
	synt	endcase
	unmark
lab L38
	mark	L64
	pnull
	var	0
	line	3835
	colm	17
	synt	any
	field	DebugPrint
	str	25
	var	9
	str	12
	str	23
	var	4
	line	3835
	colm	28
	synt	any
	invoke	5
	unmark
lab L64
	mark	L65
	line	3837
	colm	13
	synt	if
	mark0
	pnull
	var	9
	var	4
	line	3837
	colm	20
	synt	any
	numeq
	unmark
	mark	L66
	pnull
	var	3
	dup
	int	0
	line	3838
	colm	19
	synt	any
	plus
	asgn
	unmark
lab L66
	pnull
	var	4
	mark	L67
	pnull
	var	2
	var	3
	line	3839
	colm	23
	synt	any
	subsc
	line	3839
	colm	27
	synt	any
	esusp
	goto	L68
lab L67
	pnull
	var	4
	var	12
	line	3839
	colm	31
	synt	any
	plus
lab L68
	line	3839
	colm	19
	synt	any
	asgn
	line	3837
	colm	13
	synt	endif
	unmark
lab L65
	pnull
	var	0
	line	3842
	colm	17
	synt	any
	field	DebugPrint
	str	30
	var	16
	var	5
	line	3842
	colm	42
	synt	any
	invoke	1
	line	3842
	colm	28
	synt	any
	invoke	2
	unmark
lab L35
	efail
lab L36
	line	3782
	colm	9
	synt	endevery
	unmark
lab L34
	mark	L69
	pnull
	var	0
	line	3846
	colm	13
	synt	any
	field	DebugPrint
	str	30
	var	16
	var	5
	line	3846
	colm	38
	synt	any
	invoke	1
	str	12
	str	14
	var	16
	pnull
	var	6
	line	3847
	colm	75
	synt	any
	field	String
	line	3847
	colm	82
	synt	any
	invoke	0
	line	3847
	colm	64
	synt	any
	invoke	1
	line	3846
	colm	24
	synt	any
	invoke	5
	unmark
lab L69
	mark	L70
	mark	L71
	line	3849
	colm	16
	synt	ifelse
	mark	L72
	pnull
	pnull
	var	6
	line	3849
	colm	29
	synt	any
	field	String
	line	3849
	colm	36
	synt	any
	invoke	0
	var	5
	line	3849
	colm	39
	synt	any
	lexeq
	unmark
	var	6
	goto	L73
lab L72
	pnull
	var	21
	line	3852
	colm	23
	synt	any
	field	New
	var	5
	line	3852
	colm	27
	synt	any
	invoke	1
lab L73
	line	3849
	colm	16
	synt	endifelse
	line	3849
	colm	9
	synt	any
	pret
lab L71
	synt	any
	pfail
	unmark
lab L70
	pnull
	line	3854
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Find
	local	0,001000,self
	local	1,001000,ustr1
	local	2,001000,ustr
	local	3,001000,i
	local	4,001000,j
	local	5,000020,sz1
	local	6,000020,termcnt
	local	7,000020,local_ustr
	local	8,000020,local_ustr1
	local	9,000020,str3
	local	10,000020,str4
	local	11,000020,sz
	local	12,000000,keyword
	local	13,000000,integer
	local	14,000000,image
	local	15,000000,ximage
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,101
	con	5,002000,1,3
	con	6,002000,1,4
	con	7,002000,1,0
	con	8,010000,32,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,164,162,056,123,164,162,151,156,147,050,051,072
	con	9,010000,1,012
	con	10,010000,2,151,072
	con	11,010000,2,152,072
	con	12,010000,3,163,172,072
	con	13,010000,33,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,164,162,061,056,123,164,162,151,156,147,050,051,072
	con	14,010000,4,163,172,061,072
	con	15,010000,8,164,145,162,155,143,156,164,072
	con	16,010000,5,163,164,162,063,072
	con	17,010000,5,163,164,162,064,072
	con	18,010000,8,163,165,163,160,145,156,144,040
	declend
	line	3856
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	3887
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	3887
	colm	22
	synt	any
	field	AbortMessage
	int	0
	var	12
	str	1
	pnull
	int	2
	line	3887
	colm	47
	synt	any
	invoke	3
	var	12
	str	3
	pnull
	int	2
	line	3887
	colm	67
	synt	any
	invoke	3
	pnull
	var	0
	line	3888
	colm	35
	synt	any
	field	__AuxMessage
	int	0
	line	3888
	colm	48
	synt	any
	invoke	1
	line	3887
	colm	35
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	3
	line	3897
	colm	9
	synt	any
	null
	mark	L3
	pnull
	var	2
	line	3897
	colm	17
	synt	any
	null
	pop
	line	3897
	colm	25
	synt	any
	keywd	pos
	line	3897
	colm	31
	synt	any
	esusp
	goto	L4
lab L3
	int	2
lab L4
	line	3897
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	pnull
	pnull
	var	2
	line	3902
	colm	9
	synt	any
	null
	line	3902
	colm	18
	synt	any
	keywd	subject
	line	3902
	colm	15
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	7
	pnull
	var	0
	line	3906
	colm	27
	synt	any
	field	__Coerce
	var	2
	line	3906
	colm	36
	synt	any
	invoke	1
	line	3906
	colm	20
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	11
	pnull
	var	7
	line	3910
	colm	25
	synt	any
	field	Size
	line	3910
	colm	30
	synt	any
	invoke	0
	line	3910
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	4
	line	3914
	colm	9
	synt	any
	null
	pnull
	var	11
	int	2
	line	3914
	colm	18
	synt	any
	plus
	line	3914
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	pnull
	var	3
	var	13
	var	3
	line	3920
	colm	24
	synt	any
	invoke	1
	line	3920
	colm	12
	synt	any
	asgn
	line	3920
	colm	29
	synt	any
	esusp
	goto	L11
lab L10
	pnull
	var	0
	line	3920
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	12
	str	1
	pnull
	int	2
	line	3920
	colm	60
	synt	any
	invoke	3
	var	12
	str	3
	pnull
	int	2
	line	3920
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	3921
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	5
	line	3921
	colm	61
	synt	any
	invoke	2
	var	14
	var	3
	line	3921
	colm	74
	synt	any
	invoke	1
	line	3920
	colm	48
	synt	any
	invoke	5
lab L11
	unmark
lab L9
	mark	L12
	mark	L13
	pnull
	var	4
	var	13
	var	4
	line	3922
	colm	24
	synt	any
	invoke	1
	line	3922
	colm	12
	synt	any
	asgn
	line	3922
	colm	29
	synt	any
	esusp
	goto	L14
lab L13
	pnull
	var	0
	line	3922
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	12
	str	1
	pnull
	int	2
	line	3922
	colm	60
	synt	any
	invoke	3
	var	12
	str	3
	pnull
	int	2
	line	3922
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	3923
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	6
	line	3923
	colm	61
	synt	any
	invoke	2
	var	14
	var	4
	line	3923
	colm	74
	synt	any
	invoke	1
	line	3922
	colm	48
	synt	any
	invoke	5
lab L14
	unmark
lab L12
	mark	L15
	pnull
	var	3
	int	7
	line	3929
	colm	12
	synt	any
	numle
	pop
	pnull
	var	3
	pnull
	pnull
	var	11
	var	3
	line	3929
	colm	28
	synt	any
	plus
	int	2
	line	3929
	colm	32
	synt	any
	plus
	line	3929
	colm	22
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	var	4
	int	7
	line	3930
	colm	12
	synt	any
	numle
	pop
	pnull
	var	4
	pnull
	pnull
	var	11
	var	4
	line	3930
	colm	28
	synt	any
	plus
	int	2
	line	3930
	colm	32
	synt	any
	plus
	line	3930
	colm	22
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	mark	L18
	pnull
	var	3
	var	4
	line	3935
	colm	12
	synt	any
	numne
	line	3935
	colm	18
	synt	any
	esusp
	goto	L19
lab L18
	line	3935
	colm	20
	synt	any
	pfail
lab L19
	unmark
lab L17
	mark	L20
	pnull
	var	3
	var	4
	line	3940
	colm	12
	synt	any
	numgt
	pop
	pnull
	var	3
	var	4
	line	3940
	colm	21
	synt	any
	swap
	unmark
lab L20
	mark	L21
	mark	L22
	pnull
	var	4
	pnull
	var	11
	int	2
	line	3946
	colm	18
	synt	any
	plus
	line	3946
	colm	12
	synt	any
	numle
	line	3946
	colm	23
	synt	any
	esusp
	goto	L23
lab L22
	line	3946
	colm	25
	synt	any
	pfail
lab L23
	unmark
lab L21
	mark	L24
	pnull
	var	0
	line	3951
	colm	13
	synt	any
	field	DebugPrint
	str	8
	var	15
	pnull
	var	7
	line	3951
	colm	77
	synt	any
	field	String
	line	3951
	colm	84
	synt	any
	invoke	0
	line	3951
	colm	66
	synt	any
	invoke	1
	str	9
	str	10
	var	3
	str	9
	str	11
	var	4
	str	9
	str	12
	var	11
	line	3951
	colm	24
	synt	any
	invoke	11
	unmark
lab L24
	mark	L25
	pnull
	var	8
	pnull
	var	0
	line	3954
	colm	28
	synt	any
	field	__Coerce
	var	1
	line	3954
	colm	37
	synt	any
	invoke	1
	line	3954
	colm	21
	synt	any
	asgn
	unmark
lab L25
	mark	L26
	pnull
	var	0
	line	3956
	colm	13
	synt	any
	field	DebugPrint
	str	13
	var	15
	pnull
	var	8
	line	3956
	colm	79
	synt	any
	field	String
	line	3956
	colm	86
	synt	any
	invoke	0
	line	3956
	colm	67
	synt	any
	invoke	1
	line	3956
	colm	24
	synt	any
	invoke	2
	unmark
lab L26
	mark	L27
	pnull
	var	5
	pnull
	var	8
	line	3958
	colm	27
	synt	any
	field	Size
	line	3958
	colm	32
	synt	any
	invoke	0
	line	3958
	colm	13
	synt	any
	asgn
	unmark
lab L27
	mark	L28
	pnull
	var	0
	line	3960
	colm	13
	synt	any
	field	DebugPrint
	str	14
	var	5
	line	3960
	colm	24
	synt	any
	invoke	2
	unmark
lab L28
	mark	L29
	pnull
	var	6
	pnull
	var	4
	var	5
	line	3962
	colm	22
	synt	any
	minus
	line	3962
	colm	17
	synt	any
	asgn
	unmark
lab L29
	mark	L30
	pnull
	var	0
	line	3964
	colm	13
	synt	any
	field	DebugPrint
	str	15
	var	6
	line	3964
	colm	24
	synt	any
	invoke	2
	unmark
lab L30
	mark	L31
	pnull
	var	9
	pnull
	var	8
	line	3966
	colm	28
	synt	any
	field	String
	line	3966
	colm	35
	synt	any
	invoke	0
	line	3966
	colm	14
	synt	any
	asgn
	unmark
lab L31
	mark	L32
lab L33
	line	3967
	colm	9
	synt	while
	mark0
	pnull
	var	3
	var	6
	line	3967
	colm	17
	synt	any
	numle
	unmark
	mark	L33
	mark	L36
	pnull
	var	10
	pnull
	pnull
	var	0
	line	3968
	colm	25
	synt	any
	field	__GetAt
	var	7
	var	3
	pnull
	var	3
	var	5
	line	3968
	colm	48
	synt	any
	plus
	line	3968
	colm	33
	synt	any
	invoke	3
	line	3968
	colm	53
	synt	any
	field	String
	line	3968
	colm	60
	synt	any
	invoke	0
	line	3968
	colm	18
	synt	any
	asgn
	unmark
lab L36
	mark	L37
	pnull
	var	0
	line	3970
	colm	17
	synt	any
	field	DebugPrint
	str	16
	var	15
	var	9
	line	3970
	colm	43
	synt	any
	invoke	1
	str	9
	str	17
	var	15
	var	10
	line	3970
	colm	72
	synt	any
	invoke	1
	str	9
	str	10
	var	3
	line	3970
	colm	28
	synt	any
	invoke	8
	unmark
lab L37
	mark	L38
	line	3972
	colm	13
	synt	if
	mark0
	pnull
	var	9
	var	10
	line	3972
	colm	21
	synt	any
	lexeq
	unmark
	mark	L39
	pnull
	var	0
	line	3974
	colm	21
	synt	any
	field	DebugPrint
	str	18
	var	3
	line	3974
	colm	32
	synt	any
	invoke	2
	unmark
lab L39
	line	3976
	colm	17
	synt	suspend
	mark0
	var	3
	line	3976
	colm	17
	synt	any
	psusp
	pop
lab L40
	efail
lab L41
	line	3976
	colm	17
	synt	endsuspend
	line	3972
	colm	13
	synt	endif
	unmark
lab L38
	pnull
	var	3
	dup
	int	2
	line	3978
	colm	15
	synt	any
	plus
	asgn
lab L34
	unmark
	goto	L33
lab L35
	line	3967
	colm	9
	synt	endwhile
	unmark
lab L32
	mark	L42
	line	3980
	colm	9
	synt	any
	pfail
	unmark
lab L42
	pnull
	line	3981
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Left
	local	0,001000,self
	local	1,001000,ustr
	local	2,001000,i
	local	3,001000,pstr
	local	4,000020,local_ustr
	local	5,000020,local_pstr
	local	6,000020,j
	local	7,000020,k
	local	8,000020,rstr
	local	9,000020,s
	local	10,000000,keyword
	local	11,000000,type
	local	12,000000,ximage
	local	13,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,7,151,156,164,145,147,145,162
	con	5,002000,3,101
	con	6,002000,1,5
	con	7,002000,1,0
	con	8,002000,1,6
	con	9,010000,1,040
	con	10,010000,32,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,164,162,056,123,164,162,151,156,147,050,051,072
	con	11,010000,1,012
	con	12,010000,32,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,160,163,164,162,056,123,164,162,151,156,147,050,051,072
	con	13,010000,2,151,072
	con	14,010000,2,152,072
	con	15,010000,2,153,072
	con	16,010000,14,162,163,164,162,056,123,164,162,151,156,147,050,051,072
	con	17,010000,2,163,072
	declend
	line	3983
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	4012
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	4012
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	10
	str	1
	pnull
	int	2
	line	4012
	colm	46
	synt	any
	invoke	3
	var	10
	str	3
	pnull
	int	2
	line	4012
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	4013
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	4013
	colm	47
	synt	any
	invoke	1
	line	4012
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	4015
	colm	9
	synt	any
	null
	int	2
	line	4015
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	11
	var	2
	line	4016
	colm	16
	synt	any
	invoke	1
	str	4
	line	4016
	colm	20
	synt	any
	lexeq
	line	4016
	colm	34
	synt	any
	esusp
	goto	L5
lab L4
	pnull
	var	0
	line	4016
	colm	40
	synt	any
	field	AbortMessage
	int	5
	var	10
	str	1
	pnull
	int	2
	line	4016
	colm	65
	synt	any
	invoke	3
	var	10
	str	3
	pnull
	int	2
	line	4016
	colm	85
	synt	any
	invoke	3
	pnull
	var	0
	line	4017
	colm	53
	synt	any
	field	__AuxMessage
	int	5
	int	6
	line	4017
	colm	66
	synt	any
	invoke	2
	var	11
	var	2
	line	4017
	colm	78
	synt	any
	invoke	1
	line	4016
	colm	53
	synt	any
	invoke	5
lab L5
	unmark
lab L3
	mark	L6
	mark	L7
	pnull
	var	2
	int	7
	line	4019
	colm	12
	synt	any
	numgt
	line	4019
	colm	17
	synt	any
	esusp
	goto	L8
lab L7
	pnull
	var	0
	line	4019
	colm	23
	synt	any
	field	AbortMessage
	int	5
	var	10
	str	1
	pnull
	int	2
	line	4019
	colm	48
	synt	any
	invoke	3
	var	10
	str	3
	pnull
	int	2
	line	4019
	colm	68
	synt	any
	invoke	3
	pnull
	var	0
	line	4020
	colm	36
	synt	any
	field	__AuxMessage
	int	5
	int	8
	line	4020
	colm	49
	synt	any
	invoke	2
	var	2
	line	4019
	colm	36
	synt	any
	invoke	5
lab L8
	unmark
lab L6
	mark	L9
	pnull
	pnull
	var	3
	line	4022
	colm	9
	synt	any
	null
	str	9
	line	4022
	colm	15
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	4
	pnull
	var	0
	line	4023
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	4023
	colm	36
	synt	any
	invoke	1
	line	4023
	colm	20
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	5
	pnull
	var	0
	line	4024
	colm	27
	synt	any
	field	__Coerce
	var	3
	line	4024
	colm	36
	synt	any
	invoke	1
	line	4024
	colm	20
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	0
	line	4026
	colm	13
	synt	any
	field	DebugPrint
	str	10
	var	12
	pnull
	var	4
	line	4026
	colm	77
	synt	any
	field	String
	line	4026
	colm	84
	synt	any
	invoke	0
	line	4026
	colm	66
	synt	any
	invoke	1
	str	11
	str	12
	var	12
	pnull
	var	5
	line	4027
	colm	75
	synt	any
	field	String
	line	4027
	colm	82
	synt	any
	invoke	0
	line	4027
	colm	64
	synt	any
	invoke	1
	str	11
	str	13
	var	2
	line	4026
	colm	24
	synt	any
	invoke	8
	unmark
lab L12
	mark	L13
	pnull
	var	6
	pnull
	var	4
	line	4030
	colm	24
	synt	any
	field	Size
	line	4030
	colm	29
	synt	any
	invoke	0
	line	4030
	colm	11
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	var	0
	line	4032
	colm	13
	synt	any
	field	DebugPrint
	str	14
	var	6
	line	4032
	colm	24
	synt	any
	invoke	2
	unmark
lab L14
	mark	L15
	line	4034
	colm	9
	synt	ifelse
	mark	L16
	pnull
	var	2
	var	6
	line	4034
	colm	14
	synt	any
	numgt
	unmark
	mark	L18
	pnull
	var	7
	pnull
	var	2
	var	6
	line	4035
	colm	21
	synt	any
	minus
	line	4035
	colm	15
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	var	8
	pnull
	var	0
	line	4036
	colm	25
	synt	any
	field	Repl
	var	5
	var	7
	line	4036
	colm	30
	synt	any
	invoke	2
	line	4036
	colm	18
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	var	9
	pnull
	var	8
	line	4037
	colm	22
	synt	any
	field	Size
	line	4037
	colm	27
	synt	any
	invoke	0
	line	4037
	colm	15
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	var	0
	line	4039
	colm	17
	synt	any
	field	DebugPrint
	str	15
	var	7
	str	11
	str	16
	var	12
	pnull
	var	8
	line	4040
	colm	37
	synt	any
	field	String
	line	4040
	colm	44
	synt	any
	invoke	0
	line	4040
	colm	32
	synt	any
	invoke	1
	str	11
	str	17
	var	9
	line	4039
	colm	28
	synt	any
	invoke	8
	unmark
lab L21
	mark	L22
	pnull
	var	8
	pnull
	var	0
	line	4042
	colm	25
	synt	any
	field	__GetAt
	var	8
	pnull
	pnull
	var	9
	var	7
	line	4042
	colm	40
	synt	any
	minus
	int	2
	line	4042
	colm	42
	synt	any
	plus
	int	7
	line	4042
	colm	33
	synt	any
	invoke	3
	line	4042
	colm	18
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	pnull
	var	0
	line	4044
	colm	17
	synt	any
	field	DebugPrint
	str	16
	var	12
	pnull
	var	8
	line	4044
	colm	57
	synt	any
	field	String
	line	4044
	colm	64
	synt	any
	invoke	0
	line	4044
	colm	52
	synt	any
	invoke	1
	str	11
	str	10
	var	12
	pnull
	var	4
	line	4045
	colm	79
	synt	any
	field	String
	line	4045
	colm	86
	synt	any
	invoke	0
	line	4045
	colm	68
	synt	any
	invoke	1
	line	4044
	colm	28
	synt	any
	invoke	5
	unmark
lab L23
	mark	L24
	pnull
	var	13
	line	4047
	colm	30
	synt	any
	field	New
	pnull
	pnull
	var	4
	line	4047
	colm	45
	synt	any
	field	String
	line	4047
	colm	52
	synt	any
	invoke	0
	pnull
	var	8
	line	4047
	colm	62
	synt	any
	field	String
	line	4047
	colm	69
	synt	any
	invoke	0
	line	4047
	colm	55
	synt	any
	cat
	line	4047
	colm	34
	synt	any
	invoke	1
	line	4047
	colm	13
	synt	any
	pret
lab L24
	synt	any
	pfail
	goto	L17
lab L16
	mark	L25
	pnull
	var	0
	line	4049
	colm	24
	synt	any
	field	__GetAt
	var	4
	int	2
	var	2
	line	4049
	colm	32
	synt	any
	invoke	3
	line	4049
	colm	13
	synt	any
	pret
lab L25
	synt	any
	pfail
lab L17
	line	4034
	colm	9
	synt	endifelse
	unmark
lab L15
	pnull
	line	4051
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Many
	local	0,001000,self
	local	1,001000,uset
	local	2,001000,ustr
	local	3,001000,i
	local	4,001000,j
	local	5,000020,c
	local	6,000020,found
	local	7,000020,local_ustr
	local	8,000020,local_uset
	local	9,000020,fc
	local	10,000020,startpos
	local	11,000020,sz
	local	12,000000,keyword
	local	13,000000,integer
	local	14,000000,image
	con	0,002000,3,104
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,101
	con	5,002000,1,3
	con	6,002000,1,4
	con	7,002000,1,0
	declend
	line	4053
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	4084
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	4084
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	12
	str	1
	pnull
	int	2
	line	4084
	colm	46
	synt	any
	invoke	3
	var	12
	str	3
	pnull
	int	2
	line	4084
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	4085
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	4085
	colm	47
	synt	any
	invoke	1
	line	4084
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	3
	line	4094
	colm	9
	synt	any
	null
	mark	L3
	pnull
	var	2
	line	4094
	colm	17
	synt	any
	null
	pop
	line	4094
	colm	25
	synt	any
	keywd	pos
	line	4094
	colm	31
	synt	any
	esusp
	goto	L4
lab L3
	int	2
lab L4
	line	4094
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	pnull
	pnull
	var	2
	line	4099
	colm	9
	synt	any
	null
	line	4099
	colm	18
	synt	any
	keywd	subject
	line	4099
	colm	15
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	7
	pnull
	var	0
	line	4103
	colm	27
	synt	any
	field	__Coerce
	var	2
	line	4103
	colm	36
	synt	any
	invoke	1
	line	4103
	colm	20
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	11
	pnull
	var	7
	line	4107
	colm	25
	synt	any
	field	Size
	line	4107
	colm	30
	synt	any
	invoke	0
	line	4107
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	4
	line	4111
	colm	9
	synt	any
	null
	pnull
	var	11
	int	2
	line	4111
	colm	18
	synt	any
	plus
	line	4111
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	pnull
	var	3
	var	13
	var	3
	line	4117
	colm	24
	synt	any
	invoke	1
	line	4117
	colm	12
	synt	any
	asgn
	line	4117
	colm	29
	synt	any
	esusp
	goto	L11
lab L10
	pnull
	var	0
	line	4117
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	12
	str	1
	pnull
	int	2
	line	4117
	colm	60
	synt	any
	invoke	3
	var	12
	str	3
	pnull
	int	2
	line	4117
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	4118
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	5
	line	4118
	colm	61
	synt	any
	invoke	2
	var	14
	var	3
	line	4118
	colm	74
	synt	any
	invoke	1
	line	4117
	colm	48
	synt	any
	invoke	5
lab L11
	unmark
lab L9
	mark	L12
	mark	L13
	pnull
	var	4
	var	13
	var	4
	line	4120
	colm	24
	synt	any
	invoke	1
	line	4120
	colm	12
	synt	any
	asgn
	line	4120
	colm	29
	synt	any
	esusp
	goto	L14
lab L13
	pnull
	var	0
	line	4120
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	12
	str	1
	pnull
	int	2
	line	4120
	colm	60
	synt	any
	invoke	3
	var	12
	str	3
	pnull
	int	2
	line	4120
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	4121
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	6
	line	4121
	colm	61
	synt	any
	invoke	2
	var	14
	var	4
	line	4121
	colm	74
	synt	any
	invoke	1
	line	4120
	colm	48
	synt	any
	invoke	5
lab L14
	unmark
lab L12
	mark	L15
	pnull
	var	3
	int	7
	line	4128
	colm	12
	synt	any
	numle
	pop
	pnull
	var	3
	pnull
	pnull
	var	11
	var	3
	line	4128
	colm	28
	synt	any
	plus
	int	2
	line	4128
	colm	32
	synt	any
	plus
	line	4128
	colm	22
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	var	4
	int	7
	line	4129
	colm	12
	synt	any
	numle
	pop
	pnull
	var	4
	pnull
	pnull
	var	11
	var	4
	line	4129
	colm	28
	synt	any
	plus
	int	2
	line	4129
	colm	32
	synt	any
	plus
	line	4129
	colm	22
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	mark	L18
	pnull
	var	3
	var	4
	line	4134
	colm	12
	synt	any
	numne
	line	4134
	colm	18
	synt	any
	esusp
	goto	L19
lab L18
	line	4134
	colm	20
	synt	any
	pfail
lab L19
	unmark
lab L17
	mark	L20
	pnull
	var	3
	var	4
	line	4139
	colm	12
	synt	any
	numgt
	pop
	pnull
	var	3
	var	4
	line	4139
	colm	21
	synt	any
	swap
	unmark
lab L20
	mark	L21
	mark	L22
	pnull
	var	4
	pnull
	var	11
	int	2
	line	4145
	colm	18
	synt	any
	plus
	line	4145
	colm	12
	synt	any
	numle
	line	4145
	colm	23
	synt	any
	esusp
	goto	L23
lab L22
	line	4145
	colm	25
	synt	any
	pfail
lab L23
	unmark
lab L21
	mark	L24
	pnull
	var	8
	pnull
	var	0
	line	4150
	colm	27
	synt	any
	field	Cset
	var	1
	line	4150
	colm	32
	synt	any
	invoke	1
	line	4150
	colm	20
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	pnull
	var	10
	var	3
	line	4151
	colm	18
	synt	any
	asgn
	unmark
lab L25
	mark	L26
lab L27
	line	4152
	colm	9
	synt	while
	mark0
	pnull
	var	3
	var	4
	line	4152
	colm	17
	synt	any
	numlt
	pop
	pnull
	var	8
	line	4152
	colm	33
	synt	any
	field	Member
	pnull
	var	0
	line	4152
	colm	45
	synt	any
	field	__GetAt
	var	7
	var	3
	line	4152
	colm	53
	synt	any
	invoke	2
	line	4152
	colm	40
	synt	any
	invoke	1
	unmark
	mark	L27
	pnull
	var	3
	dup
	int	2
	line	4153
	colm	15
	synt	any
	plus
	asgn
lab L28
	unmark
	goto	L27
lab L29
	line	4152
	colm	9
	synt	endwhile
	unmark
lab L26
	mark	L30
	line	4155
	colm	9
	synt	ifelse
	mark	L31
	pnull
	var	3
	var	10
	line	4155
	colm	14
	synt	any
	numeq
	unmark
	line	4156
	colm	13
	synt	any
	pfail
	goto	L32
lab L31
	mark	L33
	var	3
	line	4158
	colm	13
	synt	any
	pret
lab L33
	synt	any
	pfail
lab L32
	line	4155
	colm	9
	synt	endifelse
	unmark
lab L30
	pnull
	line	4160
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Map
	local	0,001000,self
	local	1,001000,ustr
	local	2,001000,ustr1
	local	3,001000,ustr2
	local	4,000020,i
	local	5,000020,ch
	local	6,000020,local_ustr
	local	7,000020,local_ustr1
	local	8,000020,local_ustr2
	local	9,000020,k
	local	10,000020,str
	local	11,000040,maptab
	local	12,000040,istr1
	local	13,000040,istr2
	local	14,000000,table
	local	15,000000,keyword
	local	16,000000,string
	local	17,000000,ximage
	local	18,000000,UTF8__UTF8
	con	0,010000,0
	con	1,002000,3,103
	con	2,010000,5,046,146,151,154,145
	con	3,002000,1,1
	con	4,010000,5,046,154,151,156,145
	con	5,010000,33,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,164,162,061,056,123,164,162,151,156,147,050,051,072
	con	6,002000,3,208
	con	7,010000,33,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,164,162,062,056,123,164,162,151,156,147,050,051,072
	con	8,002000,3,101
	con	9,002000,1,7
	con	10,010000,1,050
	con	11,010000,7,051,040,141,156,144,040,050
	con	12,010000,1,051
	con	13,010000,15,170,151,155,141,147,145,050,155,141,160,164,141,142,051,072
	con	14,010000,4,163,164,162,072
	declend
	line	4162
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	11
	var	14
	line	4208
	colm	30
	synt	any
	invoke	0
	line	4208
	colm	20
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	10
	str	0
	line	4199
	colm	21
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	1
	line	4211
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	4211
	colm	21
	synt	any
	field	AbortMessage
	int	1
	var	15
	str	2
	pnull
	int	3
	line	4211
	colm	46
	synt	any
	invoke	3
	var	15
	str	4
	pnull
	int	3
	line	4211
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	4212
	colm	34
	synt	any
	field	__AuxMessage
	int	1
	line	4212
	colm	47
	synt	any
	invoke	1
	line	4211
	colm	34
	synt	any
	invoke	4
	unmark
lab L5
	mark	L6
	pnull
	var	6
	pnull
	var	0
	line	4214
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	4214
	colm	36
	synt	any
	invoke	1
	line	4214
	colm	20
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	2
	line	4215
	colm	9
	synt	any
	null
	var	16
	line	4215
	colm	28
	synt	any
	keywd	ucase
	line	4215
	colm	27
	synt	any
	invoke	1
	line	4215
	colm	16
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	7
	pnull
	var	0
	line	4216
	colm	28
	synt	any
	field	__Coerce
	var	2
	line	4216
	colm	37
	synt	any
	invoke	1
	line	4216
	colm	21
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	0
	line	4218
	colm	13
	synt	any
	field	DebugPrint
	str	5
	var	17
	pnull
	var	7
	line	4218
	colm	79
	synt	any
	field	String
	line	4218
	colm	86
	synt	any
	invoke	0
	line	4218
	colm	67
	synt	any
	invoke	1
	line	4218
	colm	24
	synt	any
	invoke	2
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	3
	line	4220
	colm	9
	synt	any
	null
	var	16
	line	4220
	colm	28
	synt	any
	keywd	lcase
	line	4220
	colm	27
	synt	any
	invoke	1
	line	4220
	colm	16
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	8
	pnull
	var	0
	line	4221
	colm	28
	synt	any
	field	__Coerce
	var	3
	line	4221
	colm	37
	synt	any
	invoke	1
	line	4221
	colm	21
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	2
	line	4222
	colm	10
	synt	any
	size
	pnull
	var	3
	line	4222
	colm	21
	synt	any
	size
	line	4222
	colm	17
	synt	any
	lexne
	pop
	pnull
	var	0
	line	4222
	colm	35
	synt	any
	field	AbortMessage
	int	6
	var	15
	str	2
	pnull
	int	3
	line	4222
	colm	60
	synt	any
	invoke	3
	var	15
	str	4
	pnull
	int	3
	line	4222
	colm	80
	synt	any
	invoke	3
	line	4222
	colm	48
	synt	any
	invoke	3
	unmark
lab L12
	mark	L13
	pnull
	var	0
	line	4224
	colm	13
	synt	any
	field	DebugPrint
	str	7
	var	17
	pnull
	var	8
	line	4224
	colm	79
	synt	any
	field	String
	line	4224
	colm	86
	synt	any
	invoke	0
	line	4224
	colm	67
	synt	any
	invoke	1
	line	4224
	colm	24
	synt	any
	invoke	2
	unmark
lab L13
	mark	L14
	mark	L15
	pnull
	pnull
	var	4
	pnull
	var	7
	line	4226
	colm	27
	synt	any
	field	Size
	line	4226
	colm	32
	synt	any
	invoke	0
	line	4226
	colm	13
	synt	any
	asgn
	pnull
	var	8
	line	4226
	colm	49
	synt	any
	field	Size
	line	4226
	colm	54
	synt	any
	invoke	0
	line	4226
	colm	36
	synt	any
	numeq
	line	4226
	colm	58
	synt	any
	esusp
	goto	L16
lab L15
	pnull
	var	0
	line	4227
	colm	21
	synt	any
	field	AbortMessage
	int	8
	var	15
	str	2
	pnull
	int	3
	line	4227
	colm	46
	synt	any
	invoke	3
	var	15
	str	4
	pnull
	int	3
	line	4227
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	4228
	colm	34
	synt	any
	field	__AuxMessage
	int	1
	int	9
	line	4228
	colm	47
	synt	any
	invoke	2
	str	10
	pnull
	var	7
	line	4229
	colm	41
	synt	any
	field	String
	line	4229
	colm	48
	synt	any
	invoke	0
	str	11
	pnull
	var	8
	line	4229
	colm	74
	synt	any
	field	String
	line	4229
	colm	81
	synt	any
	invoke	0
	str	12
	line	4227
	colm	34
	synt	any
	invoke	9
lab L16
	unmark
lab L14
	mark	L17
	line	4231
	colm	9
	synt	if
	mark0
	mark	L18
	pnull
	var	12
	line	4231
	colm	12
	synt	any
	null
	line	4231
	colm	19
	synt	any
	esusp
	goto	L19
lab L18
	mark	L20
	pnull
	var	13
	line	4231
	colm	21
	synt	any
	null
	line	4231
	colm	28
	synt	any
	esusp
	goto	L21
lab L20
	mark	L22
	pnull
	pnull
	var	12
	line	4231
	colm	35
	synt	any
	field	String
	line	4231
	colm	42
	synt	any
	invoke	0
	pnull
	var	7
	line	4231
	colm	60
	synt	any
	field	String
	line	4231
	colm	67
	synt	any
	invoke	0
	line	4231
	colm	45
	synt	any
	lexne
	line	4231
	colm	70
	synt	any
	esusp
	goto	L23
lab L22
	pnull
	pnull
	var	13
	line	4231
	colm	77
	synt	any
	field	String
	line	4231
	colm	84
	synt	any
	invoke	0
	pnull
	var	8
	line	4231
	colm	102
	synt	any
	field	String
	line	4231
	colm	109
	synt	any
	invoke	0
	line	4231
	colm	87
	synt	any
	lexne
lab L23
lab L21
lab L19
	unmark
	mark	L24
	line	4233
	colm	13
	synt	every
	mark0
	pnull
	var	9
	pnull
	int	3
	var	4
	push1
	line	4233
	colm	26
	synt	any
	toby
	line	4233
	colm	21
	synt	any
	asgn
	pop
	mark0
	pnull
	pnull
	var	11
	pnull
	pnull
	var	0
	line	4234
	colm	28
	synt	any
	field	__GetAt
	var	7
	var	9
	line	4234
	colm	36
	synt	any
	invoke	2
	line	4234
	colm	51
	synt	any
	field	String
	line	4234
	colm	58
	synt	any
	invoke	0
	line	4234
	colm	23
	synt	any
	subsc
	pnull
	pnull
	var	0
	line	4234
	colm	67
	synt	any
	field	__GetAt
	var	8
	var	9
	line	4234
	colm	75
	synt	any
	invoke	2
	line	4234
	colm	90
	synt	any
	field	String
	line	4234
	colm	97
	synt	any
	invoke	0
	line	4234
	colm	61
	synt	any
	asgn
	unmark
lab L25
	efail
lab L26
	line	4233
	colm	13
	synt	endevery
	unmark
lab L24
	mark	L27
	pnull
	var	12
	var	7
	line	4237
	colm	19
	synt	any
	asgn
	unmark
lab L27
	pnull
	var	13
	var	8
	line	4238
	colm	19
	synt	any
	asgn
	line	4231
	colm	9
	synt	endif
	unmark
lab L17
	mark	L28
	pnull
	var	0
	line	4241
	colm	13
	synt	any
	field	DebugPrint
	str	13
	var	17
	var	11
	line	4241
	colm	49
	synt	any
	invoke	1
	line	4241
	colm	24
	synt	any
	invoke	2
	unmark
lab L28
	mark	L29
	line	4243
	colm	9
	synt	every
	mark0
	pnull
	var	5
	pnull
	pnull
	var	0
	line	4243
	colm	25
	synt	any
	field	ForEach
	var	6
	line	4243
	colm	33
	synt	any
	invoke	1
	line	4243
	colm	45
	synt	any
	field	String
	line	4243
	colm	52
	synt	any
	invoke	0
	line	4243
	colm	18
	synt	any
	asgn
	pop
	mark0
	pnull
	var	10
	dup
	mark	L32
	pnull
	pnull
	var	11
	var	5
	line	4244
	colm	30
	synt	any
	subsc
	line	4244
	colm	23
	synt	any
	nonnull
	line	4244
	colm	35
	synt	any
	esusp
	goto	L33
lab L32
	var	5
lab L33
	line	4244
	colm	17
	synt	any
	cat
	asgn
	unmark
lab L30
	efail
lab L31
	line	4243
	colm	9
	synt	endevery
	unmark
lab L29
	mark	L34
	pnull
	var	0
	line	4247
	colm	13
	synt	any
	field	DebugPrint
	str	14
	var	17
	var	10
	line	4247
	colm	38
	synt	any
	invoke	1
	line	4247
	colm	24
	synt	any
	invoke	2
	unmark
lab L34
	mark	L35
	mark	L36
	line	4249
	colm	16
	synt	ifelse
	mark	L37
	pnull
	pnull
	var	6
	line	4249
	colm	29
	synt	any
	field	String
	line	4249
	colm	36
	synt	any
	invoke	0
	var	10
	line	4249
	colm	39
	synt	any
	lexeq
	unmark
	var	6
	goto	L38
lab L37
	pnull
	var	18
	line	4252
	colm	23
	synt	any
	field	New
	var	10
	line	4252
	colm	27
	synt	any
	invoke	1
lab L38
	line	4249
	colm	16
	synt	endifelse
	line	4249
	colm	9
	synt	any
	pret
lab L36
	synt	any
	pfail
	unmark
lab L35
	pnull
	line	4254
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Match
	local	0,001000,self
	local	1,001000,ustr1
	local	2,001000,ustr
	local	3,001000,i
	local	4,001000,j
	local	5,000020,sz1
	local	6,000020,local_ustr
	local	7,000020,local_ustr1
	local	8,000020,str
	local	9,000020,str3
	local	10,000020,sz
	local	11,000000,keyword
	local	12,000000,integer
	local	13,000000,image
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,101
	con	5,002000,1,3
	con	6,002000,1,4
	con	7,002000,1,0
	declend
	line	4256
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	4285
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	4285
	colm	22
	synt	any
	field	AbortMessage
	int	0
	var	11
	str	1
	pnull
	int	2
	line	4285
	colm	47
	synt	any
	invoke	3
	var	11
	str	3
	pnull
	int	2
	line	4285
	colm	67
	synt	any
	invoke	3
	pnull
	var	0
	line	4286
	colm	35
	synt	any
	field	__AuxMessage
	int	0
	line	4286
	colm	48
	synt	any
	invoke	1
	line	4285
	colm	35
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	3
	line	4295
	colm	9
	synt	any
	null
	mark	L3
	pnull
	var	2
	line	4295
	colm	17
	synt	any
	null
	pop
	line	4295
	colm	25
	synt	any
	keywd	pos
	line	4295
	colm	31
	synt	any
	esusp
	goto	L4
lab L3
	int	2
lab L4
	line	4295
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	pnull
	pnull
	var	2
	line	4300
	colm	9
	synt	any
	null
	line	4300
	colm	18
	synt	any
	keywd	subject
	line	4300
	colm	15
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	6
	pnull
	var	0
	line	4304
	colm	27
	synt	any
	field	__Coerce
	var	2
	line	4304
	colm	36
	synt	any
	invoke	1
	line	4304
	colm	20
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	10
	pnull
	var	6
	line	4308
	colm	25
	synt	any
	field	Size
	line	4308
	colm	30
	synt	any
	invoke	0
	line	4308
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	4
	line	4312
	colm	9
	synt	any
	null
	pnull
	var	10
	int	2
	line	4312
	colm	18
	synt	any
	plus
	line	4312
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	pnull
	var	3
	var	12
	var	3
	line	4318
	colm	24
	synt	any
	invoke	1
	line	4318
	colm	12
	synt	any
	asgn
	line	4318
	colm	29
	synt	any
	esusp
	goto	L11
lab L10
	pnull
	var	0
	line	4318
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	11
	str	1
	pnull
	int	2
	line	4318
	colm	60
	synt	any
	invoke	3
	var	11
	str	3
	pnull
	int	2
	line	4318
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	4319
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	5
	line	4319
	colm	61
	synt	any
	invoke	2
	var	13
	var	3
	line	4319
	colm	74
	synt	any
	invoke	1
	line	4318
	colm	48
	synt	any
	invoke	5
lab L11
	unmark
lab L9
	mark	L12
	mark	L13
	pnull
	var	4
	var	12
	var	4
	line	4321
	colm	24
	synt	any
	invoke	1
	line	4321
	colm	12
	synt	any
	asgn
	line	4321
	colm	29
	synt	any
	esusp
	goto	L14
lab L13
	pnull
	var	0
	line	4321
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	11
	str	1
	pnull
	int	2
	line	4321
	colm	60
	synt	any
	invoke	3
	var	11
	str	3
	pnull
	int	2
	line	4321
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	4322
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	6
	line	4322
	colm	61
	synt	any
	invoke	2
	var	13
	var	4
	line	4322
	colm	74
	synt	any
	invoke	1
	line	4321
	colm	48
	synt	any
	invoke	5
lab L14
	unmark
lab L12
	mark	L15
	pnull
	var	3
	int	7
	line	4329
	colm	12
	synt	any
	numle
	pop
	pnull
	var	3
	pnull
	pnull
	var	10
	var	3
	line	4329
	colm	28
	synt	any
	plus
	int	2
	line	4329
	colm	32
	synt	any
	plus
	line	4329
	colm	22
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	var	4
	int	7
	line	4330
	colm	12
	synt	any
	numle
	pop
	pnull
	var	4
	pnull
	pnull
	var	10
	var	4
	line	4330
	colm	28
	synt	any
	plus
	int	2
	line	4330
	colm	32
	synt	any
	plus
	line	4330
	colm	22
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	mark	L18
	pnull
	var	3
	var	4
	line	4335
	colm	12
	synt	any
	numne
	line	4335
	colm	18
	synt	any
	esusp
	goto	L19
lab L18
	line	4335
	colm	20
	synt	any
	pfail
lab L19
	unmark
lab L17
	mark	L20
	pnull
	var	3
	var	4
	line	4340
	colm	12
	synt	any
	numgt
	pop
	pnull
	var	3
	var	4
	line	4340
	colm	21
	synt	any
	swap
	unmark
lab L20
	mark	L21
	mark	L22
	pnull
	var	4
	pnull
	var	10
	int	2
	line	4346
	colm	18
	synt	any
	plus
	line	4346
	colm	12
	synt	any
	numle
	line	4346
	colm	23
	synt	any
	esusp
	goto	L23
lab L22
	line	4346
	colm	25
	synt	any
	pfail
lab L23
	unmark
lab L21
	mark	L24
	pnull
	var	7
	pnull
	var	0
	line	4351
	colm	28
	synt	any
	field	__Coerce
	var	1
	line	4351
	colm	37
	synt	any
	invoke	1
	line	4351
	colm	21
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	pnull
	var	5
	pnull
	var	7
	line	4352
	colm	27
	synt	any
	field	Size
	line	4352
	colm	32
	synt	any
	invoke	0
	line	4352
	colm	13
	synt	any
	asgn
	unmark
lab L25
	mark	L26
	mark	L27
	pnull
	var	5
	pnull
	var	4
	var	3
	line	4353
	colm	19
	synt	any
	minus
	line	4353
	colm	13
	synt	any
	numle
	line	4353
	colm	24
	synt	any
	esusp
	goto	L28
lab L27
	line	4353
	colm	26
	synt	any
	pfail
lab L28
	unmark
lab L26
	mark	L29
	pnull
	var	9
	pnull
	var	7
	line	4354
	colm	28
	synt	any
	field	String
	line	4354
	colm	35
	synt	any
	invoke	0
	line	4354
	colm	14
	synt	any
	asgn
	unmark
lab L29
	mark	L30
	pnull
	var	8
	pnull
	pnull
	var	0
	line	4355
	colm	20
	synt	any
	field	__GetAt
	var	6
	var	3
	pnull
	var	3
	var	5
	line	4355
	colm	43
	synt	any
	plus
	line	4355
	colm	28
	synt	any
	invoke	3
	line	4355
	colm	48
	synt	any
	field	String
	line	4355
	colm	55
	synt	any
	invoke	0
	line	4355
	colm	13
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	line	4356
	colm	9
	synt	ifelse
	mark	L32
	pnull
	var	8
	var	9
	line	4356
	colm	16
	synt	any
	lexeq
	unmark
	mark	L34
	pnull
	var	3
	var	5
	line	4357
	colm	22
	synt	any
	plus
	line	4357
	colm	13
	synt	any
	pret
lab L34
	synt	any
	pfail
	goto	L33
lab L32
	line	4359
	colm	13
	synt	any
	pfail
lab L33
	line	4356
	colm	9
	synt	endifelse
	unmark
lab L31
	pnull
	line	4361
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Move
	local	0,001000,self
	local	1,001000,i
	local	2,000020,ustr
	local	3,000020,newpos
	local	4,000020,newcpos
	local	5,000020,curpos
	local	6,000020,curcpos
	local	7,000020,sz
	local	8,000000,integer
	local	9,000000,keyword
	local	10,000000,image
	local	11,000000,UTF8__UTF8
	con	0,002000,1,1
	con	1,002000,3,101
	con	2,010000,5,046,146,151,154,145
	con	3,010000,5,046,154,151,156,145
	con	4,002000,1,3
	con	5,010000,13,143,165,162,160,157,163,050,046,160,157,163,051,072
	con	6,010000,1,012
	con	7,010000,8,143,165,162,143,160,157,163,072
	con	8,010000,2,151,072
	con	9,010000,3,163,172,072
	con	10,002000,1,0
	con	11,010000,7,143,165,162,160,157,163,072
	con	12,010000,9,040,143,165,162,143,160,157,163,072
	con	13,010000,7,156,145,167,160,157,163,072
	con	14,010000,9,040,156,145,167,143,160,157,163,072
	con	15,010000,5,046,160,157,163,072
	declend
	line	4363
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	0
	line	4371
	colm	21
	synt	any
	field	__Coerce
	line	4371
	colm	31
	synt	any
	keywd	subject
	line	4371
	colm	30
	synt	any
	invoke	1
	line	4371
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	7
	pnull
	var	2
	line	4372
	colm	19
	synt	any
	field	Size
	line	4372
	colm	24
	synt	any
	invoke	0
	line	4372
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	5
	line	4373
	colm	19
	synt	any
	keywd	pos
	line	4373
	colm	16
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	6
	pnull
	var	0
	line	4374
	colm	24
	synt	any
	field	AmpPos
	line	4374
	colm	31
	synt	any
	invoke	0
	line	4374
	colm	17
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	1
	line	4375
	colm	9
	synt	any
	null
	int	0
	line	4375
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	var	1
	var	8
	var	1
	line	4377
	colm	24
	synt	any
	invoke	1
	line	4377
	colm	12
	synt	any
	asgn
	line	4377
	colm	29
	synt	any
	esusp
	goto	L8
lab L7
	pnull
	var	0
	line	4377
	colm	35
	synt	any
	field	AbortMessage
	int	1
	var	9
	str	2
	pnull
	int	0
	line	4377
	colm	60
	synt	any
	invoke	3
	var	9
	str	3
	pnull
	int	0
	line	4377
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	4378
	colm	48
	synt	any
	field	__AuxMessage
	int	1
	int	4
	line	4378
	colm	61
	synt	any
	invoke	2
	var	10
	var	1
	line	4378
	colm	74
	synt	any
	invoke	1
	line	4377
	colm	48
	synt	any
	invoke	5
lab L8
	unmark
lab L6
	mark	L9
	pnull
	var	0
	line	4380
	colm	13
	synt	any
	field	DebugPrint
	str	5
	var	5
	str	6
	str	7
	var	6
	str	8
	var	1
	str	9
	var	7
	line	4380
	colm	24
	synt	any
	invoke	9
	unmark
lab L9
	mark	L10
	pnull
	var	4
	pnull
	var	6
	var	1
	line	4382
	colm	28
	synt	any
	plus
	line	4382
	colm	17
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	4
	int	10
	line	4383
	colm	18
	synt	any
	numlt
	pop
	line	4383
	colm	25
	synt	any
	pfail
	unmark
lab L11
	mark	L12
	pnull
	var	4
	pnull
	var	7
	int	0
	line	4384
	colm	23
	synt	any
	plus
	line	4384
	colm	18
	synt	any
	numgt
	pop
	line	4384
	colm	30
	synt	any
	pfail
	unmark
lab L12
	mark	L13
	pnull
	var	3
	pnull
	var	0
	line	4385
	colm	23
	synt	any
	field	__ActualPos
	var	2
	var	4
	line	4385
	colm	35
	synt	any
	invoke	2
	line	4385
	colm	16
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	var	0
	line	4387
	colm	13
	synt	any
	field	DebugPrint
	str	11
	var	5
	str	12
	var	6
	line	4387
	colm	24
	synt	any
	invoke	4
	unmark
lab L14
	mark	L15
	pnull
	var	0
	line	4388
	colm	13
	synt	any
	field	DebugPrint
	str	13
	var	3
	str	14
	var	4
	line	4388
	colm	24
	synt	any
	invoke	4
	unmark
lab L15
	mark	L16
	pnull
	var	0
	line	4389
	colm	13
	synt	any
	field	DebugPrint
	str	15
	line	4389
	colm	33
	synt	any
	keywd	pos
	str	6
	str	13
	var	3
	line	4389
	colm	24
	synt	any
	invoke	5
	unmark
lab L16
	mark	L17
	line	4391
	colm	9
	synt	suspend
	mark0
	pnull
	var	11
	line	4391
	colm	27
	synt	any
	field	New
	pnull
	line	4391
	colm	32
	synt	any
	keywd	subject
	pnull
	line	4391
	colm	42
	synt	any
	keywd	pos
	line	4391
	colm	41
	synt	any
	value
	pnull
	line	4391
	colm	47
	synt	any
	keywd	pos
	var	3
	line	4391
	colm	52
	synt	any
	rasgn
	line	4391
	colm	46
	synt	any
	synt	any
	sect
	line	4391
	colm	31
	synt	any
	invoke	1
	line	4391
	colm	9
	synt	any
	psusp
	pop
lab L18
	efail
lab L19
	line	4391
	colm	9
	synt	endsuspend
	unmark
lab L17
	pnull
	line	4392
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Ord
	local	0,001000,self
	local	1,001000,ustr
	local	2,000020,i
	local	3,000020,str
	local	4,000020,local_ustr
	local	5,000020,n
	local	6,000020,m
	local	7,000000,keyword
	local	8,000000,tab
	local	9,000000,hex
	con	0,002000,1,0
	con	1,002000,3,103
	con	2,010000,5,046,146,151,154,145
	con	3,002000,1,1
	con	4,010000,5,046,154,151,156,145
	con	5,002000,3,205
	con	6,010000,27,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,040,146,157,162,040,123,151,172,145,072,040
	con	7,010000,20,040,163,150,157,165,154,144,040,142,145,040,157,146,040,163,151,172,145,040,061
	con	8,010000,2,125,053
	declend
	line	4394
	colm	11
	synt	any
	mark	L1
	pnull
	var	5
	int	0
	line	4409
	colm	19
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	line	4413
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	4413
	colm	21
	synt	any
	field	AbortMessage
	int	1
	var	7
	str	2
	pnull
	int	3
	line	4413
	colm	46
	synt	any
	invoke	3
	var	7
	str	4
	pnull
	int	3
	line	4413
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	4414
	colm	34
	synt	any
	field	__AuxMessage
	int	1
	line	4414
	colm	47
	synt	any
	invoke	1
	line	4413
	colm	34
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	4
	pnull
	var	0
	line	4416
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	4416
	colm	36
	synt	any
	invoke	1
	line	4416
	colm	20
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	pnull
	var	4
	line	4417
	colm	20
	synt	any
	field	Size
	line	4417
	colm	25
	synt	any
	invoke	0
	int	3
	line	4417
	colm	28
	synt	any
	numeq
	line	4417
	colm	33
	synt	any
	esusp
	goto	L6
lab L5
	pnull
	var	0
	line	4418
	colm	17
	synt	any
	field	AbortMessage
	int	5
	var	7
	str	2
	pnull
	int	3
	line	4418
	colm	42
	synt	any
	invoke	3
	var	7
	str	4
	pnull
	int	3
	line	4418
	colm	62
	synt	any
	invoke	3
	str	6
	pnull
	var	4
	line	4419
	colm	36
	synt	any
	field	Size
	line	4419
	colm	41
	synt	any
	invoke	0
	str	7
	line	4418
	colm	30
	synt	any
	invoke	6
lab L6
	unmark
lab L4
	mark	L7
	pnull
	var	3
	pnull
	var	0
	line	4421
	colm	20
	synt	any
	field	ToUnicode32
	pnull
	var	4
	line	4421
	colm	43
	synt	any
	field	String
	line	4421
	colm	50
	synt	any
	invoke	0
	line	4421
	colm	32
	synt	any
	invoke	1
	line	4421
	colm	13
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	var	3
	line	4422
	colm	13
	synt	any
	bscan
	mark	L9
	pnull
	str	8
	line	4423
	colm	13
	synt	any
	tabmat
	pop
	pnull
	var	6
	var	8
	int	0
	line	4424
	colm	23
	synt	any
	invoke	1
	line	4424
	colm	15
	synt	any
	asgn
	unmark
lab L9
	pnull
	var	5
	var	9
	var	6
	line	4425
	colm	23
	synt	any
	invoke	1
	line	4425
	colm	15
	synt	any
	asgn
	line	4422
	colm	13
	synt	any
	escan
	unmark
lab L8
	mark	L10
	mark	L11
	var	5
	line	4427
	colm	9
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	4428
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Pos
	local	0,001000,self
	local	1,001000,i
	local	2,000000,keyword
	local	3,000000,integer
	local	4,000000,image
	local	5,000000,pos
	con	0,002000,3,101
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,1,3
	declend
	line	4430
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	4431
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	4431
	colm	18
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	4431
	colm	43
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	4431
	colm	63
	synt	any
	invoke	3
	pnull
	var	0
	line	4432
	colm	31
	synt	any
	field	__AuxMessage
	int	0
	line	4432
	colm	44
	synt	any
	invoke	1
	line	4431
	colm	31
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	var	3
	var	1
	line	4434
	colm	16
	synt	any
	invoke	1
	line	4434
	colm	20
	synt	any
	esusp
	goto	L4
lab L3
	pnull
	var	0
	line	4434
	colm	26
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	4434
	colm	51
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	4434
	colm	71
	synt	any
	invoke	3
	pnull
	var	0
	line	4435
	colm	39
	synt	any
	field	__AuxMessage
	int	0
	int	4
	line	4435
	colm	52
	synt	any
	invoke	2
	var	4
	var	1
	line	4435
	colm	65
	synt	any
	invoke	1
	line	4434
	colm	39
	synt	any
	invoke	5
lab L4
	unmark
lab L2
	mark	L5
	mark	L6
	var	5
	pnull
	var	0
	line	4437
	colm	24
	synt	any
	field	__ActualPos
	pnull
	var	0
	line	4437
	colm	41
	synt	any
	field	__Coerce
	line	4437
	colm	51
	synt	any
	keywd	subject
	line	4437
	colm	50
	synt	any
	invoke	1
	var	1
	line	4437
	colm	36
	synt	any
	invoke	2
	line	4437
	colm	19
	synt	any
	invoke	1
	line	4437
	colm	9
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	4438
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Repl
	local	0,001000,self
	local	1,001000,ustr
	local	2,001000,i
	local	3,000020,data
	local	4,000020,local_ustr
	local	5,000020,str
	local	6,000000,keyword
	local	7,000000,integer
	local	8,000000,image
	local	9,000000,ximage
	local	10,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,101
	con	5,002000,1,3
	con	6,002000,1,0
	con	7,002000,3,205
	con	8,010000,24,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,040,146,157,162,040,151,072,040
	con	9,010000,5,144,141,164,141,072
	con	10,010000,1,012
	con	11,010000,2,151,072
	con	12,002000,1,2
	con	13,010000,4,163,164,162,072
	declend
	line	4440
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	4455
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	4455
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	6
	str	1
	pnull
	int	2
	line	4455
	colm	46
	synt	any
	invoke	3
	var	6
	str	3
	pnull
	int	2
	line	4455
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	4456
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	4456
	colm	47
	synt	any
	invoke	1
	line	4455
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	2
	var	7
	var	2
	line	4458
	colm	24
	synt	any
	invoke	1
	line	4458
	colm	12
	synt	any
	asgn
	line	4458
	colm	29
	synt	any
	esusp
	goto	L4
lab L3
	pnull
	var	0
	line	4458
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	6
	str	1
	pnull
	int	2
	line	4458
	colm	60
	synt	any
	invoke	3
	var	6
	str	3
	pnull
	int	2
	line	4458
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	4459
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	5
	line	4459
	colm	61
	synt	any
	invoke	2
	var	8
	var	2
	line	4459
	colm	74
	synt	any
	invoke	1
	line	4458
	colm	48
	synt	any
	invoke	5
lab L4
	unmark
lab L2
	mark	L5
	mark	L6
	pnull
	var	2
	int	6
	line	4461
	colm	12
	synt	any
	numge
	line	4461
	colm	18
	synt	any
	esusp
	goto	L7
lab L6
	pnull
	var	0
	line	4461
	colm	24
	synt	any
	field	AbortMessage
	int	7
	var	6
	str	1
	pnull
	int	2
	line	4461
	colm	49
	synt	any
	invoke	3
	var	6
	str	3
	pnull
	int	2
	line	4461
	colm	69
	synt	any
	invoke	3
	str	8
	var	2
	line	4461
	colm	37
	synt	any
	invoke	5
lab L7
	unmark
lab L5
	mark	L8
	pnull
	var	4
	pnull
	var	0
	line	4463
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	4463
	colm	36
	synt	any
	invoke	1
	line	4463
	colm	20
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	3
	pnull
	var	4
	line	4464
	colm	27
	synt	any
	field	String
	line	4464
	colm	34
	synt	any
	invoke	0
	line	4464
	colm	14
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	0
	line	4466
	colm	13
	synt	any
	field	DebugPrint
	str	9
	var	9
	var	3
	line	4466
	colm	39
	synt	any
	invoke	1
	str	10
	str	11
	var	2
	line	4466
	colm	24
	synt	any
	invoke	5
	unmark
lab L10
	mark	L11
	pnull
	var	5
	var	3
	line	4468
	colm	13
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	line	4469
	colm	9
	synt	every
	mark0
	pnull
	int	12
	var	2
	push1
	line	4469
	colm	17
	synt	any
	toby
	pop
	mark0
	pnull
	var	5
	dup
	var	3
	line	4470
	colm	17
	synt	any
	cat
	asgn
	unmark
lab L13
	efail
lab L14
	line	4469
	colm	9
	synt	endevery
	unmark
lab L12
	mark	L15
	pnull
	var	0
	line	4473
	colm	13
	synt	any
	field	DebugPrint
	str	13
	var	9
	var	5
	line	4473
	colm	38
	synt	any
	invoke	1
	line	4473
	colm	24
	synt	any
	invoke	2
	unmark
lab L15
	mark	L16
	mark	L17
	pnull
	var	10
	line	4475
	colm	26
	synt	any
	field	New
	var	5
	line	4475
	colm	30
	synt	any
	invoke	1
	line	4475
	colm	9
	synt	any
	pret
lab L17
	synt	any
	pfail
	unmark
lab L16
	pnull
	line	4476
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Reverse
	local	0,001000,self
	local	1,001000,ustr
	local	2,000020,nstr
	local	3,000020,local_ustr
	local	4,000000,keyword
	local	5,000000,UTF8__UTF8
	con	0,010000,0
	con	1,002000,3,103
	con	2,010000,5,046,146,151,154,145
	con	3,002000,1,1
	con	4,010000,5,046,154,151,156,145
	declend
	line	4481
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	str	0
	line	4482
	colm	22
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	line	4494
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	4494
	colm	21
	synt	any
	field	AbortMessage
	int	1
	var	4
	str	2
	pnull
	int	3
	line	4494
	colm	46
	synt	any
	invoke	3
	var	4
	str	4
	pnull
	int	3
	line	4494
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	4495
	colm	34
	synt	any
	field	__AuxMessage
	int	1
	line	4495
	colm	47
	synt	any
	invoke	1
	line	4494
	colm	34
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	4497
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	4497
	colm	36
	synt	any
	invoke	1
	line	4497
	colm	20
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	4498
	colm	9
	synt	every
	mark0
	pnull
	var	2
	pnull
	pnull
	pnull
	var	0
	line	4498
	colm	27
	synt	any
	field	ForEach
	var	3
	line	4498
	colm	35
	synt	any
	invoke	1
	line	4498
	colm	47
	synt	any
	field	String
	line	4498
	colm	54
	synt	any
	invoke	0
	var	2
	line	4498
	colm	56
	synt	any
	cat
	line	4498
	colm	20
	synt	any
	asgn
	pop
lab L5
	efail
lab L6
	line	4498
	colm	9
	synt	endevery
	unmark
lab L4
	mark	L7
	mark	L8
	pnull
	var	5
	line	4499
	colm	26
	synt	any
	field	New
	var	2
	line	4499
	colm	30
	synt	any
	invoke	1
	line	4499
	colm	9
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	4500
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Right
	local	0,001000,self
	local	1,001000,ustr
	local	2,001000,i
	local	3,001000,pstr
	local	4,000020,j
	local	5,000020,local_ustr
	local	6,000020,local_pstr
	local	7,000020,lstr
	local	8,000000,keyword
	local	9,000000,integer
	local	10,000000,image
	local	11,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,101
	con	5,002000,1,3
	con	6,002000,1,0
	con	7,002000,3,205
	con	8,010000,24,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,040,146,157,162,040,151,072,040
	con	9,010000,1,040
	declend
	line	4502
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	4527
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	4527
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	8
	str	1
	pnull
	int	2
	line	4527
	colm	46
	synt	any
	invoke	3
	var	8
	str	3
	pnull
	int	2
	line	4527
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	4528
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	4528
	colm	47
	synt	any
	invoke	1
	line	4527
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	4530
	colm	9
	synt	any
	null
	int	2
	line	4530
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	2
	var	9
	var	2
	line	4532
	colm	24
	synt	any
	invoke	1
	line	4532
	colm	12
	synt	any
	asgn
	line	4532
	colm	29
	synt	any
	esusp
	goto	L5
lab L4
	pnull
	var	0
	line	4532
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	8
	str	1
	pnull
	int	2
	line	4532
	colm	60
	synt	any
	invoke	3
	var	8
	str	3
	pnull
	int	2
	line	4532
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	4533
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	5
	line	4533
	colm	61
	synt	any
	invoke	2
	var	10
	var	2
	line	4533
	colm	74
	synt	any
	invoke	1
	line	4532
	colm	48
	synt	any
	invoke	5
lab L5
	unmark
lab L3
	mark	L6
	mark	L7
	pnull
	var	2
	int	6
	line	4535
	colm	12
	synt	any
	numge
	line	4535
	colm	18
	synt	any
	esusp
	goto	L8
lab L7
	pnull
	var	0
	line	4535
	colm	24
	synt	any
	field	AbortMessage
	int	7
	var	8
	str	1
	pnull
	int	2
	line	4535
	colm	49
	synt	any
	invoke	3
	var	8
	str	3
	pnull
	int	2
	line	4535
	colm	69
	synt	any
	invoke	3
	str	8
	var	2
	line	4535
	colm	37
	synt	any
	invoke	5
lab L8
	unmark
lab L6
	mark	L9
	pnull
	pnull
	var	3
	line	4537
	colm	9
	synt	any
	null
	str	9
	line	4537
	colm	15
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	5
	pnull
	var	0
	line	4538
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	4538
	colm	36
	synt	any
	invoke	1
	line	4538
	colm	20
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	6
	pnull
	var	0
	line	4539
	colm	27
	synt	any
	field	__Coerce
	var	3
	line	4539
	colm	36
	synt	any
	invoke	1
	line	4539
	colm	20
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	4
	pnull
	var	5
	line	4540
	colm	24
	synt	any
	field	Size
	line	4540
	colm	29
	synt	any
	invoke	0
	line	4540
	colm	11
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	line	4541
	colm	9
	synt	ifelse
	mark	L14
	pnull
	var	2
	var	4
	line	4541
	colm	14
	synt	any
	numgt
	unmark
	mark	L16
	pnull
	var	4
	pnull
	var	2
	var	4
	line	4542
	colm	21
	synt	any
	minus
	line	4542
	colm	15
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	var	7
	pnull
	var	0
	line	4543
	colm	25
	synt	any
	field	__GetAt
	pnull
	var	0
	line	4543
	colm	38
	synt	any
	field	Repl
	var	6
	var	4
	line	4543
	colm	43
	synt	any
	invoke	2
	int	2
	var	4
	line	4543
	colm	33
	synt	any
	invoke	3
	line	4543
	colm	18
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	var	11
	line	4544
	colm	30
	synt	any
	field	New
	pnull
	pnull
	var	7
	line	4544
	colm	39
	synt	any
	field	String
	line	4544
	colm	46
	synt	any
	invoke	0
	pnull
	var	5
	line	4544
	colm	62
	synt	any
	field	String
	line	4544
	colm	69
	synt	any
	invoke	0
	line	4544
	colm	49
	synt	any
	cat
	line	4544
	colm	34
	synt	any
	invoke	1
	line	4544
	colm	13
	synt	any
	pret
lab L18
	synt	any
	pfail
	goto	L15
lab L14
	mark	L19
	pnull
	var	4
	pnull
	pnull
	var	4
	int	2
	line	4546
	colm	21
	synt	any
	plus
	var	2
	line	4546
	colm	25
	synt	any
	minus
	line	4546
	colm	15
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	var	0
	line	4547
	colm	24
	synt	any
	field	__GetAt
	var	5
	var	4
	pnull
	var	4
	var	2
	line	4547
	colm	47
	synt	any
	plus
	line	4547
	colm	32
	synt	any
	invoke	3
	line	4547
	colm	13
	synt	any
	pret
lab L20
	synt	any
	pfail
lab L15
	line	4541
	colm	9
	synt	endifelse
	unmark
lab L13
	pnull
	line	4549
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_String
	local	0,001000,self
	local	1,001000,val
	con	0,010000,0
	declend
	line	4551
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	4552
	colm	9
	synt	any
	null
	pop
	mark	L2
	str	0
	line	4552
	colm	16
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	mark	L3
	mark	L4
	pnull
	pnull
	var	0
	line	4553
	colm	20
	synt	any
	field	__Coerce
	var	1
	line	4553
	colm	29
	synt	any
	invoke	1
	line	4553
	colm	34
	synt	any
	field	String
	line	4553
	colm	41
	synt	any
	invoke	0
	line	4553
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	4554
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Tab
	local	0,001000,self
	local	1,001000,i
	local	2,000020,ustr
	local	3,000020,newpos
	local	4,000020,newcpos
	local	5,000020,curpos
	local	6,000020,curcpos
	local	7,000020,sz
	local	8,000000,integer
	local	9,000000,keyword
	local	10,000000,image
	local	11,000000,UTF8__UTF8
	con	0,002000,1,0
	con	1,002000,3,101
	con	2,010000,5,046,146,151,154,145
	con	3,002000,1,1
	con	4,010000,5,046,154,151,156,145
	con	5,002000,1,3
	con	6,010000,13,143,165,162,160,157,163,050,046,160,157,163,051,072
	con	7,010000,1,012
	con	8,010000,8,143,165,162,143,160,157,163,072
	con	9,010000,2,151,072
	con	10,010000,3,163,172,072
	con	11,010000,7,143,165,162,160,157,163,072
	con	12,010000,9,040,143,165,162,143,160,157,163,072
	con	13,010000,7,156,145,167,160,157,163,072
	con	14,010000,9,040,156,145,167,143,160,157,163,072
	con	15,010000,5,046,160,157,163,072
	declend
	line	4556
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	pnull
	var	0
	line	4564
	colm	21
	synt	any
	field	__Coerce
	line	4564
	colm	31
	synt	any
	keywd	subject
	line	4564
	colm	30
	synt	any
	invoke	1
	line	4564
	colm	14
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	7
	pnull
	var	2
	line	4565
	colm	19
	synt	any
	field	Size
	line	4565
	colm	24
	synt	any
	invoke	0
	line	4565
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	5
	line	4566
	colm	19
	synt	any
	keywd	pos
	line	4566
	colm	16
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	6
	pnull
	var	0
	line	4567
	colm	24
	synt	any
	field	AmpPos
	line	4567
	colm	31
	synt	any
	invoke	0
	line	4567
	colm	17
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	1
	line	4568
	colm	9
	synt	any
	null
	int	0
	line	4568
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	var	1
	var	8
	var	1
	line	4569
	colm	24
	synt	any
	invoke	1
	line	4569
	colm	12
	synt	any
	asgn
	line	4569
	colm	29
	synt	any
	esusp
	goto	L8
lab L7
	pnull
	var	0
	line	4569
	colm	35
	synt	any
	field	AbortMessage
	int	1
	var	9
	str	2
	pnull
	int	3
	line	4569
	colm	60
	synt	any
	invoke	3
	var	9
	str	4
	pnull
	int	3
	line	4569
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	4570
	colm	48
	synt	any
	field	__AuxMessage
	int	1
	int	5
	line	4570
	colm	61
	synt	any
	invoke	2
	var	10
	var	1
	line	4570
	colm	74
	synt	any
	invoke	1
	line	4569
	colm	48
	synt	any
	invoke	5
lab L8
	unmark
lab L6
	mark	L9
	pnull
	var	0
	line	4572
	colm	13
	synt	any
	field	DebugPrint
	str	6
	var	5
	str	7
	str	8
	var	6
	str	9
	var	1
	str	10
	var	7
	line	4572
	colm	24
	synt	any
	invoke	9
	unmark
lab L9
	mark	L10
	pnull
	var	4
	var	1
	line	4574
	colm	17
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	var	3
	pnull
	var	0
	line	4575
	colm	23
	synt	any
	field	__ActualPos
	var	2
	var	4
	line	4575
	colm	35
	synt	any
	invoke	2
	line	4575
	colm	16
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	4
	pnull
	var	7
	int	3
	line	4576
	colm	23
	synt	any
	plus
	line	4576
	colm	18
	synt	any
	numgt
	pop
	line	4576
	colm	30
	synt	any
	pfail
	unmark
lab L12
	mark	L13
	pnull
	var	0
	line	4578
	colm	13
	synt	any
	field	DebugPrint
	str	11
	var	5
	str	12
	var	6
	str	13
	var	3
	str	14
	var	4
	str	15
	line	4580
	colm	29
	synt	any
	keywd	pos
	str	7
	str	13
	var	3
	line	4578
	colm	24
	synt	any
	invoke	13
	unmark
lab L13
	mark	L14
	line	4582
	colm	9
	synt	suspend
	mark0
	pnull
	var	11
	line	4582
	colm	27
	synt	any
	field	New
	pnull
	line	4582
	colm	32
	synt	any
	keywd	subject
	pnull
	line	4582
	colm	42
	synt	any
	keywd	pos
	line	4582
	colm	41
	synt	any
	value
	pnull
	line	4582
	colm	47
	synt	any
	keywd	pos
	var	3
	line	4582
	colm	52
	synt	any
	rasgn
	line	4582
	colm	46
	synt	any
	synt	any
	sect
	line	4582
	colm	31
	synt	any
	invoke	1
	line	4582
	colm	9
	synt	any
	psusp
	pop
lab L15
	efail
lab L16
	line	4582
	colm	9
	synt	endsuspend
	unmark
lab L14
	pnull
	line	4583
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Trim
	local	0,001000,self
	local	1,001000,ustr
	local	2,001000,uset
	local	3,001000,i
	local	4,001000,allutf8blanks
	local	5,000020,j
	local	6,000020,local_ustr
	local	7,000020,local_uset
	local	8,000020,k
	local	9,000000,keyword
	local	10,000000,UTF8__UTF8Set
	local	11,000000,type
	local	12,000000,image
	local	13,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,32,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,164,162,056,123,164,162,151,156,147,050,051,072
	con	5,010000,7,151,156,164,145,147,145,162
	con	6,002000,3,101
	con	7,002000,1,3
	con	8,010000,2,151,072
	con	9,010000,1,012
	con	10,010000,2,152,072
	con	11,010000,2,153,072
	con	12,002000,1,0
	con	13,010000,4,040,040,152,072
	con	14,010000,4,040,040,153,072
	declend
	line	4607
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	4636
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	4636
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	9
	str	1
	pnull
	int	2
	line	4636
	colm	46
	synt	any
	invoke	3
	var	9
	str	3
	pnull
	int	2
	line	4636
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	4637
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	4637
	colm	47
	synt	any
	invoke	1
	line	4636
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	2
	line	4644
	colm	9
	synt	any
	null
	mark	L3
	pnull
	var	4
	line	4644
	colm	20
	synt	any
	null
	pop
	pnull
	var	10
	line	4644
	colm	50
	synt	any
	field	Space
	line	4644
	colm	56
	synt	any
	invoke	0
	line	4644
	colm	59
	synt	any
	esusp
	goto	L4
lab L3
	pnull
	var	10
	line	4644
	colm	73
	synt	any
	field	UTF8Space
	line	4644
	colm	83
	synt	any
	invoke	0
lab L4
	line	4644
	colm	15
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	pnull
	var	7
	pnull
	var	10
	line	4650
	colm	36
	synt	any
	field	__Coerce
	var	2
	line	4650
	colm	45
	synt	any
	invoke	1
	line	4650
	colm	20
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	6
	pnull
	var	0
	line	4656
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	4656
	colm	36
	synt	any
	invoke	1
	line	4656
	colm	20
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	0
	line	4658
	colm	13
	synt	any
	field	DebugPrint
	str	4
	pnull
	var	6
	line	4658
	colm	70
	synt	any
	field	String
	line	4658
	colm	77
	synt	any
	invoke	0
	line	4658
	colm	24
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	3
	line	4664
	colm	9
	synt	any
	null
	pnull
	int	2
	line	4664
	colm	15
	synt	any
	neg
	line	4664
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	pnull
	var	11
	var	3
	line	4670
	colm	16
	synt	any
	invoke	1
	str	5
	line	4670
	colm	20
	synt	any
	lexeq
	line	4670
	colm	34
	synt	any
	esusp
	goto	L11
lab L10
	pnull
	var	0
	line	4670
	colm	40
	synt	any
	field	AbortMessage
	int	6
	var	9
	str	1
	pnull
	int	2
	line	4670
	colm	65
	synt	any
	invoke	3
	var	9
	str	3
	pnull
	int	2
	line	4670
	colm	85
	synt	any
	invoke	3
	pnull
	var	0
	line	4671
	colm	53
	synt	any
	field	__AuxMessage
	int	6
	int	7
	line	4671
	colm	66
	synt	any
	invoke	2
	var	12
	var	3
	line	4671
	colm	79
	synt	any
	invoke	1
	line	4670
	colm	53
	synt	any
	invoke	5
lab L11
	unmark
lab L9
	mark	L12
	pnull
	var	5
	pnull
	pnull
	var	6
	line	4677
	colm	24
	synt	any
	field	Size
	line	4677
	colm	29
	synt	any
	invoke	0
	int	2
	line	4677
	colm	32
	synt	any
	plus
	line	4677
	colm	11
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	8
	int	2
	line	4678
	colm	11
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	var	0
	line	4680
	colm	13
	synt	any
	field	DebugPrint
	str	8
	var	3
	str	9
	str	10
	var	5
	str	9
	str	11
	var	8
	line	4680
	colm	24
	synt	any
	invoke	8
	unmark
lab L14
	mark	L15
lab L16
	line	4693
	colm	9
	synt	while
	mark0
	pnull
	var	3
	int	12
	line	4693
	colm	18
	synt	any
	numle
	pop
	pnull
	var	7
	line	4693
	colm	36
	synt	any
	field	Member
	pnull
	var	0
	line	4693
	colm	48
	synt	any
	field	__GetAt
	var	6
	pnull
	var	5
	int	2
	line	4693
	colm	69
	synt	any
	minus
	line	4693
	colm	56
	synt	any
	invoke	2
	line	4693
	colm	43
	synt	any
	invoke	1
	unmark
	mark	L16
	mark	L19
	pnull
	var	5
	dup
	int	2
	line	4694
	colm	15
	synt	any
	minus
	asgn
	unmark
lab L19
	pnull
	var	0
	line	4696
	colm	17
	synt	any
	field	DebugPrint
	str	13
	var	5
	line	4696
	colm	28
	synt	any
	invoke	2
lab L17
	unmark
	goto	L16
lab L18
	line	4693
	colm	9
	synt	endwhile
	unmark
lab L15
	mark	L20
lab L21
	line	4711
	colm	9
	synt	while
	mark0
	pnull
	var	3
	int	12
	line	4711
	colm	18
	synt	any
	numge
	pop
	pnull
	var	7
	line	4711
	colm	36
	synt	any
	field	Member
	pnull
	var	0
	line	4711
	colm	48
	synt	any
	field	__GetAt
	var	6
	var	8
	line	4711
	colm	56
	synt	any
	invoke	2
	line	4711
	colm	43
	synt	any
	invoke	1
	unmark
	mark	L21
	mark	L24
	pnull
	var	8
	dup
	int	2
	line	4712
	colm	15
	synt	any
	plus
	asgn
	unmark
lab L24
	pnull
	var	0
	line	4714
	colm	17
	synt	any
	field	DebugPrint
	str	14
	var	8
	line	4714
	colm	28
	synt	any
	invoke	2
lab L22
	unmark
	goto	L21
lab L23
	line	4711
	colm	9
	synt	endwhile
	unmark
lab L20
	mark	L25
	pnull
	var	0
	line	4717
	colm	13
	synt	any
	field	DebugPrint
	str	10
	var	5
	str	9
	str	11
	var	8
	line	4717
	colm	24
	synt	any
	invoke	5
	unmark
lab L25
	mark	L26
	mark	L27
	pnull
	var	13
	line	4723
	colm	26
	synt	any
	field	New
	pnull
	var	0
	line	4723
	colm	35
	synt	any
	field	__GetAt
	var	6
	var	8
	var	5
	line	4723
	colm	43
	synt	any
	invoke	3
	line	4723
	colm	30
	synt	any
	invoke	1
	line	4723
	colm	9
	synt	any
	pret
lab L27
	synt	any
	pfail
	unmark
lab L26
	pnull
	line	4724
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_Upto
	local	0,001000,self
	local	1,001000,uset
	local	2,001000,ustr
	local	3,001000,i
	local	4,001000,j
	local	5,000020,sz
	local	6,000020,local_ustr
	local	7,000020,local_uset
	local	8,000000,keyword
	local	9,000000,integer
	local	10,000000,image
	con	0,002000,3,104
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,101
	con	5,002000,1,3
	con	6,002000,1,4
	con	7,002000,1,0
	declend
	line	4749
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	4772
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	4772
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	8
	str	1
	pnull
	int	2
	line	4772
	colm	46
	synt	any
	invoke	3
	var	8
	str	3
	pnull
	int	2
	line	4772
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	4773
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	4773
	colm	47
	synt	any
	invoke	1
	line	4772
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	3
	line	4782
	colm	9
	synt	any
	null
	mark	L3
	pnull
	var	2
	line	4782
	colm	17
	synt	any
	null
	pop
	line	4782
	colm	25
	synt	any
	keywd	pos
	line	4782
	colm	31
	synt	any
	esusp
	goto	L4
lab L3
	int	2
lab L4
	line	4782
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	pnull
	pnull
	var	2
	line	4788
	colm	9
	synt	any
	null
	line	4788
	colm	18
	synt	any
	keywd	subject
	line	4788
	colm	15
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	6
	pnull
	var	0
	line	4793
	colm	27
	synt	any
	field	__Coerce
	var	2
	line	4793
	colm	36
	synt	any
	invoke	1
	line	4793
	colm	20
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	5
	pnull
	var	6
	line	4798
	colm	25
	synt	any
	field	Size
	line	4798
	colm	30
	synt	any
	invoke	0
	line	4798
	colm	12
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	4
	line	4803
	colm	9
	synt	any
	null
	pnull
	var	5
	int	2
	line	4803
	colm	18
	synt	any
	plus
	line	4803
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	mark	L10
	pnull
	var	3
	var	9
	var	3
	line	4810
	colm	24
	synt	any
	invoke	1
	line	4810
	colm	12
	synt	any
	asgn
	line	4810
	colm	29
	synt	any
	esusp
	goto	L11
lab L10
	pnull
	var	0
	line	4810
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	8
	str	1
	pnull
	int	2
	line	4810
	colm	60
	synt	any
	invoke	3
	var	8
	str	3
	pnull
	int	2
	line	4810
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	4811
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	5
	line	4811
	colm	61
	synt	any
	invoke	2
	var	10
	var	3
	line	4811
	colm	74
	synt	any
	invoke	1
	line	4810
	colm	48
	synt	any
	invoke	5
lab L11
	unmark
lab L9
	mark	L12
	mark	L13
	pnull
	var	4
	var	9
	var	4
	line	4813
	colm	24
	synt	any
	invoke	1
	line	4813
	colm	12
	synt	any
	asgn
	line	4813
	colm	29
	synt	any
	esusp
	goto	L14
lab L13
	pnull
	var	0
	line	4813
	colm	35
	synt	any
	field	AbortMessage
	int	4
	var	8
	str	1
	pnull
	int	2
	line	4813
	colm	60
	synt	any
	invoke	3
	var	8
	str	3
	pnull
	int	2
	line	4813
	colm	80
	synt	any
	invoke	3
	pnull
	var	0
	line	4814
	colm	48
	synt	any
	field	__AuxMessage
	int	4
	int	6
	line	4814
	colm	61
	synt	any
	invoke	2
	var	10
	var	4
	line	4814
	colm	74
	synt	any
	invoke	1
	line	4813
	colm	48
	synt	any
	invoke	5
lab L14
	unmark
lab L12
	mark	L15
	pnull
	var	3
	int	7
	line	4821
	colm	12
	synt	any
	numle
	pop
	pnull
	var	3
	pnull
	pnull
	var	5
	var	3
	line	4821
	colm	28
	synt	any
	plus
	int	2
	line	4821
	colm	32
	synt	any
	plus
	line	4821
	colm	22
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	var	4
	int	7
	line	4822
	colm	12
	synt	any
	numle
	pop
	pnull
	var	4
	pnull
	pnull
	var	5
	var	4
	line	4822
	colm	28
	synt	any
	plus
	int	2
	line	4822
	colm	32
	synt	any
	plus
	line	4822
	colm	22
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	mark	L18
	pnull
	var	3
	var	4
	line	4828
	colm	12
	synt	any
	numne
	line	4828
	colm	18
	synt	any
	esusp
	goto	L19
lab L18
	line	4828
	colm	20
	synt	any
	pfail
lab L19
	unmark
lab L17
	mark	L20
	pnull
	var	3
	var	4
	line	4834
	colm	12
	synt	any
	numgt
	pop
	pnull
	var	3
	var	4
	line	4834
	colm	21
	synt	any
	swap
	unmark
lab L20
	mark	L21
	mark	L22
	pnull
	var	4
	pnull
	var	5
	int	2
	line	4841
	colm	18
	synt	any
	plus
	line	4841
	colm	12
	synt	any
	numle
	line	4841
	colm	23
	synt	any
	esusp
	goto	L23
lab L22
	line	4841
	colm	25
	synt	any
	pfail
lab L23
	unmark
lab L21
	mark	L24
	mark	L25
	pnull
	var	1
	line	4849
	colm	9
	synt	any
	nonnull
	line	4849
	colm	15
	synt	any
	esusp
	goto	L26
lab L25
	pnull
	var	0
	line	4849
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	8
	str	1
	pnull
	int	2
	line	4849
	colm	46
	synt	any
	invoke	3
	var	8
	str	3
	pnull
	int	2
	line	4849
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	4850
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	4850
	colm	47
	synt	any
	invoke	1
	line	4849
	colm	34
	synt	any
	invoke	4
lab L26
	unmark
lab L24
	mark	L27
	pnull
	var	7
	pnull
	var	0
	line	4855
	colm	27
	synt	any
	field	Cset
	var	1
	line	4855
	colm	32
	synt	any
	invoke	1
	line	4855
	colm	20
	synt	any
	asgn
	unmark
lab L27
	mark	L28
lab L29
	line	4862
	colm	9
	synt	while
	mark0
	pnull
	var	3
	var	4
	line	4862
	colm	18
	synt	any
	numlt
	unmark
	mark	L29
	mark	L32
	line	4863
	colm	13
	synt	if
	mark0
	pnull
	var	7
	line	4863
	colm	26
	synt	any
	field	Member
	pnull
	var	0
	line	4863
	colm	38
	synt	any
	field	__GetAt
	var	6
	var	3
	line	4863
	colm	46
	synt	any
	invoke	2
	line	4863
	colm	33
	synt	any
	invoke	1
	unmark
	line	4864
	colm	17
	synt	suspend
	mark0
	var	3
	line	4864
	colm	17
	synt	any
	psusp
	pop
lab L33
	efail
lab L34
	line	4864
	colm	17
	synt	endsuspend
	line	4863
	colm	13
	synt	endif
	unmark
lab L32
	pnull
	var	3
	dup
	int	2
	line	4866
	colm	15
	synt	any
	plus
	asgn
lab L30
	unmark
	goto	L29
lab L31
	line	4862
	colm	9
	synt	endwhile
	unmark
lab L28
	pnull
	line	4868
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8_initially
	local	0,001000,self
	local	1,000000,ClassObject__Execute
	local	2,000000,ClassObject__ClassClass
	local	3,000000,UTF8____UTF8Object
	local	4,000000,UTF8__UTF8
	local	5,000000,runtime_error_message
	con	0,002000,4,2000
	con	1,010000,34,143,141,156,156,157,164,040,143,157,145,162,143,145,040,164,157,040,125,124,106,070,040,157,142,152,145,143,164,057,166,141,154,165,145
	con	2,010000,41,110,141,166,145,040,106,151,156,151,163,150,145,144,040,111,156,151,164,151,141,154,151,163,151,156,147,040,164,150,145,040,103,154,141,163,163,040,125,124,106,070
	declend
	line	4877
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	var	1
	var	2
	line	4888
	colm	29
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	0
	line	4893
	colm	13
	synt	any
	field	IsOn
	line	4893
	colm	18
	synt	any
	invoke	0
	unmark
lab L5
	mark	L6
	pnull
	var	0
	line	4901
	colm	13
	synt	any
	field	SetClass
	var	3
	line	4901
	colm	22
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	pnull
	var	4
	var	0
	line	4907
	colm	20
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	0
	line	4913
	colm	13
	synt	any
	field	__Initialise
	line	4913
	colm	26
	synt	any
	invoke	0
	unmark
lab L8
	mark	L9
	var	5
	int	0
	str	1
	line	4915
	colm	32
	synt	any
	invoke	2
	unmark
lab L9
	pnull
	var	0
	line	4917
	colm	13
	synt	any
	field	DebugPrint
	str	2
	line	4917
	colm	24
	synt	any
	invoke	1
	unmark
lab L2
	einit	L1
lab L3
	mark	L10
	mark	L11
	pnull
	line	4919
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	4920
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8
	local	0,000020,self
	local	1,000020,clone
	local	2,000000,UTF8__UTF8__oprec
	local	3,000000,UTF8__UTF8initialize
	local	4,000000,ClassObject__ClassClass__oprec
	local	5,000000,ClassObject__ClassClassinitialize
	local	6,000000,ErrorSystem__ErrorSystem__oprec
	local	7,000000,ErrorSystem__ErrorSysteminitialize
	local	8,000000,UTF8__UTF8__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	2
	line	8
	colm	6
	synt	any
	null
	unmark
	var	3
	line	8
	colm	50
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	4
	line	9
	colm	6
	synt	any
	null
	unmark
	var	5
	line	9
	colm	76
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	2
	line	10
	colm	20
	synt	any
	field	ClassObject__ClassClass
	var	4
	line	10
	colm	45
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	6
	line	11
	colm	6
	synt	any
	null
	unmark
	var	7
	line	11
	colm	78
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	2
	line	12
	colm	20
	synt	any
	field	ErrorSystem__ErrorSystem
	var	6
	line	12
	colm	46
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	0
	var	8
	line	14
	colm	29
	synt	any
	keywd	null
	var	2
	line	14
	colm	28
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	0
	line	15
	colm	7
	synt	any
	field	__s
	var	0
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	0
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	0
	pnull
	line	16
	colm	21
	synt	any
	invoke	2
	line	16
	colm	29
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	31
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	0
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8initialize
	local	0,000000,UTF8__UTF8__oprec
	local	1,000000,UTF8__UTF8__methods
	local	2,000000,UTF8__UTF8___Initialise
	local	3,000000,UTF8__UTF8___ActualPos
	local	4,000000,UTF8__UTF8___Coerce
	local	5,000000,UTF8__UTF8___GetAt
	local	6,000000,UTF8__UTF8___AuxMessage
	local	7,000000,UTF8__UTF8_BOMFound
	local	8,000000,UTF8__UTF8_SkipBOM
	local	9,000000,UTF8__UTF8_Valid
	local	10,000000,UTF8__UTF8_ByteTranslate
	local	11,000000,UTF8__UTF8_Multibyte
	local	12,000000,UTF8__UTF8_SpecialString
	local	13,000000,UTF8__UTF8_ToUnicode32
	local	14,000000,UTF8__UTF8_Unicode32To
	local	15,000000,UTF8__UTF8_HexTo
	local	16,000000,UTF8__UTF8_DecimalTo
	local	17,000000,UTF8__UTF8_AmpPos
	local	18,000000,UTF8__UTF8_Equiv
	local	19,000000,UTF8__UTF8_Nequiv
	local	20,000000,UTF8__UTF8_LexEquals
	local	21,000000,UTF8__UTF8_LexGTorEq
	local	22,000000,UTF8__UTF8_LexGT
	local	23,000000,UTF8__UTF8_LexLTorEq
	local	24,000000,UTF8__UTF8_LexLT
	local	25,000000,UTF8__UTF8_LexNE
	local	26,000000,UTF8__UTF8_Concatenate
	local	27,000000,UTF8__UTF8_Complement
	local	28,000000,UTF8__UTF8_Difference
	local	29,000000,UTF8__UTF8_Intersect
	local	30,000000,UTF8__UTF8_Union
	local	31,000000,UTF8__UTF8_ForEach
	local	32,000000,UTF8__UTF8_Size
	local	33,000000,UTF8__UTF8_Random
	local	34,000000,UTF8__UTF8_Subsection
	local	35,000000,UTF8__UTF8_Subscript
	local	36,000000,UTF8__UTF8_TabMatch
	local	37,000000,UTF8__UTF8_Any
	local	38,000000,UTF8__UTF8_Bal
	local	39,000000,UTF8__UTF8_Center
	local	40,000000,UTF8__UTF8_Char
	local	41,000000,UTF8__UTF8_Cset
	local	42,000000,UTF8__UTF8_Detab
	local	43,000000,UTF8__UTF8_Entab
	local	44,000000,UTF8__UTF8_Find
	local	45,000000,UTF8__UTF8_Left
	local	46,000000,UTF8__UTF8_Many
	local	47,000000,UTF8__UTF8_Map
	local	48,000000,UTF8__UTF8_Match
	local	49,000000,UTF8__UTF8_Move
	local	50,000000,UTF8__UTF8_Ord
	local	51,000000,UTF8__UTF8_Pos
	local	52,000000,UTF8__UTF8_Repl
	local	53,000000,UTF8__UTF8_Reverse
	local	54,000000,UTF8__UTF8_Right
	local	55,000000,UTF8__UTF8_String
	local	56,000000,UTF8__UTF8_Tab
	local	57,000000,UTF8__UTF8_Trim
	local	58,000000,UTF8__UTF8_Upto
	local	59,000000,UTF8__UTF8_initially
	local	60,000000,ClassObject__ClassClass___InitClass
	local	61,000000,ClassObject__ClassClass_SetClass
	local	62,000000,ClassObject__ClassClass_ClassName
	local	63,000000,ClassObject__ClassClass_Addition
	local	64,000000,ClassObject__ClassClass_Divide
	local	65,000000,ClassObject__ClassClass_Minus
	local	66,000000,ClassObject__ClassClass_Modulus
	local	67,000000,ClassObject__ClassClass_Multiply
	local	68,000000,ClassObject__ClassClass_Negate
	local	69,000000,ClassObject__ClassClass_UnaryPlus
	local	70,000000,ClassObject__ClassClass_Power
	local	71,000000,ClassObject__ClassClass_Equals
	local	72,000000,ClassObject__ClassClass_GTorEqual
	local	73,000000,ClassObject__ClassClass_Greater
	local	74,000000,ClassObject__ClassClass_LTorEqual
	local	75,000000,ClassObject__ClassClass_Less
	local	76,000000,ClassObject__ClassClass_Nequal
	local	77,000000,ClassObject__ClassClass_Integer
	local	78,000000,ClassObject__ClassClass_Numeric
	local	79,000000,ClassObject__ClassClass_Real
	local	80,000000,ErrorSystem__ErrorSystem___proc_components
	local	81,000000,ErrorSystem__ErrorSystem_AbortIfDebug
	local	82,000000,ErrorSystem__ErrorSystem_AbortMessage
	local	83,000000,ErrorSystem__ErrorSystem_Caller
	local	84,000000,ErrorSystem__ErrorSystem_CallingComponents
	local	85,000000,ErrorSystem__ErrorSystem_ClassCalling
	local	86,000000,ErrorSystem__ErrorSystem_Debug
	local	87,000000,ErrorSystem__ErrorSystem_DebugMode
	local	88,000000,ErrorSystem__ErrorSystem_ErrorOut
	local	89,000000,ErrorSystem__ErrorSystem_IsOn
	local	90,000000,ErrorSystem__ErrorSystem_MethodCalling
	local	91,000000,ErrorSystem__ErrorSystem_NotInDebugMode
	local	92,000000,ErrorSystem__ErrorSystem_Off
	local	93,000000,ErrorSystem__ErrorSystem_On
	local	94,000000,ErrorSystem__ErrorSystem_PackageCalling
	local	95,000000,ErrorSystem__ErrorSystem_ParamCalling
	local	96,000000,ErrorSystem__ErrorSystem_PrintMessage
	local	97,000000,ErrorSystem__ErrorSystem_ProcedureCalling
	local	98,000000,ErrorSystem__ErrorSystem_StopMessage
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	var	25
	var	26
	var	27
	var	28
	var	29
	var	30
	var	31
	var	32
	var	33
	var	34
	var	35
	var	36
	var	37
	var	38
	var	39
	var	40
	var	41
	var	42
	var	43
	var	44
	var	45
	var	46
	var	47
	var	48
	var	49
	var	50
	var	51
	var	52
	var	53
	var	54
	var	55
	var	56
	var	57
	var	58
	var	59
	var	60
	var	61
	var	62
	var	63
	var	64
	var	65
	var	66
	var	67
	var	68
	var	69
	var	70
	var	71
	var	72
	var	73
	var	74
	var	75
	var	76
	var	77
	var	78
	var	79
	var	80
	var	81
	var	82
	var	83
	var	84
	var	85
	var	86
	var	87
	var	88
	var	89
	var	90
	var	91
	var	92
	var	93
	var	94
	var	95
	var	96
	var	97
	var	98
	line	21
	colm	51
	synt	any
	invoke	97
	line	21
	colm	29
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Data
	local	0,001000,self
	declend
	filen	utf8.icn
	line	4966
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	4967
	colm	21
	synt	any
	field	__data
	line	4967
	colm	16
	synt	any
	value
	line	4967
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	4968
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Complement
	local	0,001000,self
	local	1,000000,UTF8__UTF8Set
	declend
	line	5000
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	1
	line	5001
	colm	29
	synt	any
	field	Complement
	var	0
	line	5001
	colm	40
	synt	any
	invoke	1
	line	5001
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5002
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Difference
	local	0,001000,self
	local	1,001000,val
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8
	local	4,000000,UTF8__UTF8Set
	con	0,002000,3,120
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5007
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5008
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5008
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5008
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5008
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5009
	colm	39
	synt	any
	field	__AuxMessage
	int	0
	line	5009
	colm	52
	synt	any
	invoke	1
	line	5008
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	4
	line	5011
	colm	29
	synt	any
	field	Difference
	var	0
	var	1
	line	5011
	colm	40
	synt	any
	invoke	2
	line	5011
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5012
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Intersect
	local	0,001000,self
	local	1,001000,val
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8
	local	4,000000,UTF8__UTF8Set
	con	0,002000,3,120
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5017
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5018
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5018
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5018
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5018
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5019
	colm	39
	synt	any
	field	__AuxMessage
	int	0
	line	5019
	colm	52
	synt	any
	invoke	1
	line	5018
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	4
	line	5021
	colm	29
	synt	any
	field	Intersect
	var	0
	var	1
	line	5021
	colm	39
	synt	any
	invoke	2
	line	5021
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5022
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Union
	local	0,001000,self
	local	1,001000,val
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8
	local	4,000000,UTF8__UTF8Set
	con	0,002000,3,120
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5027
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5028
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5028
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5028
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5028
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5029
	colm	39
	synt	any
	field	__AuxMessage
	int	0
	line	5029
	colm	52
	synt	any
	invoke	1
	line	5028
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	4
	line	5031
	colm	29
	synt	any
	field	Union
	var	0
	var	1
	line	5031
	colm	35
	synt	any
	invoke	2
	line	5031
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5032
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Equiv
	local	0,001000,self
	local	1,001000,val
	local	2,000000,UTF8__UTF8
	declend
	line	5037
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5038
	colm	9
	synt	any
	null
	pop
	line	5038
	colm	16
	synt	any
	pfail
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	2
	line	5039
	colm	26
	synt	any
	field	Equiv
	var	0
	var	1
	line	5039
	colm	32
	synt	any
	invoke	2
	line	5039
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5040
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Nequiv
	local	0,001000,self
	local	1,001000,val
	local	2,000000,UTF8__UTF8
	declend
	line	5045
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5046
	colm	9
	synt	any
	null
	pop
	line	5046
	colm	16
	synt	any
	pfail
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	2
	line	5047
	colm	26
	synt	any
	field	Nequiv
	var	0
	var	1
	line	5047
	colm	33
	synt	any
	invoke	2
	line	5047
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5048
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_LexEquals
	local	0,001000,self
	local	1,001000,str
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5053
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5054
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5054
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5054
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5054
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5055
	colm	39
	synt	any
	field	__AuxMessage
	int	0
	line	5055
	colm	52
	synt	any
	invoke	1
	line	5054
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	3
	line	5057
	colm	26
	synt	any
	field	LexEquals
	var	0
	var	1
	line	5057
	colm	36
	synt	any
	invoke	2
	line	5057
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5058
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_LexGTorEq
	local	0,001000,self
	local	1,001000,str
	local	2,000000,keyword
	local	3,000000,__AuxMessage
	local	4,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5063
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5064
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5064
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5064
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5064
	colm	65
	synt	any
	invoke	3
	var	3
	int	0
	line	5065
	colm	41
	synt	any
	invoke	1
	line	5064
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	4
	line	5067
	colm	26
	synt	any
	field	LexGTorEq
	var	0
	var	1
	line	5067
	colm	36
	synt	any
	invoke	2
	line	5067
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5068
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_LexGT
	local	0,001000,self
	local	1,001000,str
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5073
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5074
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5074
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5074
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5074
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5075
	colm	39
	synt	any
	field	__AuxMessage
	int	0
	line	5075
	colm	52
	synt	any
	invoke	1
	line	5074
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	3
	line	5077
	colm	26
	synt	any
	field	LexGT
	var	0
	var	1
	line	5077
	colm	32
	synt	any
	invoke	2
	line	5077
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5078
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_LexLTorEq
	local	0,001000,self
	local	1,001000,str
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5083
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5084
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5084
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5084
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5084
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5085
	colm	39
	synt	any
	field	__AuxMessage
	int	0
	line	5085
	colm	52
	synt	any
	invoke	1
	line	5084
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	3
	line	5087
	colm	26
	synt	any
	field	LexLTorEq
	var	0
	var	1
	line	5087
	colm	36
	synt	any
	invoke	2
	line	5087
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5088
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_LexLT
	local	0,001000,self
	local	1,001000,str
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5093
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5094
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5094
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5094
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5094
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5095
	colm	39
	synt	any
	field	__AuxMessage
	int	0
	line	5095
	colm	52
	synt	any
	invoke	1
	line	5094
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	3
	line	5097
	colm	26
	synt	any
	field	LexLT
	var	0
	var	1
	line	5097
	colm	32
	synt	any
	invoke	2
	line	5097
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5098
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_LexNE
	local	0,001000,self
	local	1,001000,str
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5103
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5104
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5104
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5104
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5104
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5105
	colm	39
	synt	any
	field	__AuxMessage
	int	0
	line	5105
	colm	52
	synt	any
	invoke	1
	line	5104
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	3
	line	5107
	colm	26
	synt	any
	field	LexNE
	var	0
	var	1
	line	5107
	colm	32
	synt	any
	invoke	2
	line	5107
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5108
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_ForEach
	local	0,001000,self
	local	1,000020,temp
	local	2,000020,temp2
	local	3,000000,image
	local	4,000000,UTF8__UTF8
	con	0,010000,12,137,137,141,163,143,151,151,157,156,154,171,072
	con	1,010000,8,012,137,137,144,141,164,141,072
	con	2,010000,31,145,141,143,150,040,141,163,143,151,151,040,145,154,145,155,145,156,164,040,146,162,157,155,040,137,137,144,141,164,141,072
	con	3,010000,6,164,145,155,160,062,072
	con	4,010000,10,040,123,164,162,151,156,147,050,051,072
	declend
	line	5120
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	5129
	colm	13
	synt	any
	field	DebugPrint
	str	0
	var	3
	pnull
	var	0
	line	5129
	colm	50
	synt	any
	field	__asciionly
	line	5129
	colm	45
	synt	any
	invoke	1
	str	1
	var	3
	pnull
	var	0
	line	5129
	colm	86
	synt	any
	field	__data
	line	5129
	colm	81
	synt	any
	invoke	1
	line	5129
	colm	24
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	line	5131
	colm	9
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	0
	line	5131
	colm	17
	synt	any
	field	__asciionly
	line	5131
	colm	12
	synt	any
	nonnull
	unmark
	line	5132
	colm	13
	synt	suspend
	mark0
	pnull
	var	2
	pnull
	var	4
	line	5132
	colm	40
	synt	any
	field	SpecialString
	pnull
	var	1
	pnull
	pnull
	var	0
	line	5132
	colm	68
	synt	any
	field	__data
	line	5132
	colm	63
	synt	any
	bang
	line	5132
	colm	60
	synt	any
	asgn
	line	5132
	colm	54
	synt	any
	invoke	1
	line	5132
	colm	27
	synt	any
	asgn
	line	5132
	colm	13
	synt	any
	psusp
	pop
	mark0
	mark	L7
	pnull
	var	0
	line	5133
	colm	21
	synt	any
	field	DebugPrint
	str	2
	var	3
	var	1
	line	5133
	colm	72
	synt	any
	invoke	1
	line	5133
	colm	32
	synt	any
	invoke	2
	unmark
lab L7
	pnull
	var	0
	line	5134
	colm	21
	synt	any
	field	DebugPrint
	str	3
	var	3
	var	2
	line	5134
	colm	47
	synt	any
	invoke	1
	str	4
	pnull
	var	2
	line	5134
	colm	73
	synt	any
	field	String
	line	5134
	colm	80
	synt	any
	invoke	0
	line	5134
	colm	32
	synt	any
	invoke	4
	unmark
lab L5
	efail
lab L6
	line	5132
	colm	13
	synt	endsuspend
	goto	L4
lab L3
	line	5140
	colm	13
	synt	suspend
	mark0
	pnull
	var	4
	line	5140
	colm	31
	synt	any
	field	ForEach
	var	0
	line	5140
	colm	39
	synt	any
	invoke	1
	line	5140
	colm	13
	synt	any
	psusp
	pop
lab L8
	efail
lab L9
	line	5140
	colm	13
	synt	endsuspend
lab L4
	line	5131
	colm	9
	synt	endifelse
	unmark
lab L2
	pnull
	line	5142
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Random
	local	0,001000,self
	local	1,000000,UTF8__UTF8
	declend
	line	5147
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	1
	line	5148
	colm	26
	synt	any
	field	Random
	var	0
	line	5148
	colm	33
	synt	any
	invoke	1
	line	5148
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5149
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_TabMatch
	local	0,001000,self
	local	1,000000,UTF8__UTF8
	declend
	line	5154
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	1
	line	5155
	colm	26
	synt	any
	field	TabMatch
	var	0
	line	5155
	colm	35
	synt	any
	invoke	1
	line	5155
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5156
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Size
	local	0,001000,self
	declend
	line	5165
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	5173
	colm	21
	synt	any
	field	__size
	line	5173
	colm	16
	synt	any
	value
	line	5173
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5174
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Concatenate
	local	0,001000,self
	local	1,001000,ustr
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8
	local	4,000000,image
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,5,163,145,154,146,072
	con	5,010000,5,165,163,164,162,072
	declend
	line	5189
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5190
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5190
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5190
	colm	46
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5190
	colm	66
	synt	any
	invoke	3
	pnull
	var	3
	line	5191
	colm	40
	synt	any
	field	__AuxMessage
	int	0
	line	5191
	colm	53
	synt	any
	invoke	1
	line	5190
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	5193
	colm	13
	synt	any
	field	DebugPrint
	str	4
	var	4
	var	0
	line	5193
	colm	38
	synt	any
	invoke	1
	str	5
	var	4
	var	1
	line	5193
	colm	60
	synt	any
	invoke	1
	line	5193
	colm	24
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	3
	line	5195
	colm	26
	synt	any
	field	Concatenate
	var	0
	var	1
	line	5195
	colm	38
	synt	any
	invoke	2
	line	5195
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	5196
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Subsection
	local	0,001000,self
	local	1,001000,i
	local	2,001000,j
	local	3,000000,image
	local	4,000000,keyword
	local	5,000000,UTF8__UTF8
	con	0,010000,5,163,145,154,146,072
	con	1,010000,3,040,151,072
	con	2,010000,3,040,152,072
	con	3,002000,3,101
	con	4,010000,5,046,146,151,154,145
	con	5,002000,1,1
	con	6,010000,5,046,154,151,156,145
	declend
	line	5216
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	5218
	colm	13
	synt	any
	field	DebugPrint
	str	0
	var	3
	var	0
	line	5218
	colm	38
	synt	any
	invoke	1
	str	1
	var	1
	str	2
	var	2
	line	5218
	colm	24
	synt	any
	invoke	6
	unmark
lab L1
	mark	L2
	pnull
	var	1
	line	5220
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5220
	colm	18
	synt	any
	field	AbortMessage
	int	3
	var	4
	str	4
	pnull
	int	5
	line	5220
	colm	43
	synt	any
	invoke	3
	var	4
	str	6
	pnull
	int	5
	line	5220
	colm	63
	synt	any
	invoke	3
	pnull
	var	5
	line	5221
	colm	37
	synt	any
	field	__AuxMessage
	int	3
	line	5221
	colm	50
	synt	any
	invoke	1
	line	5220
	colm	31
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	2
	line	5223
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5223
	colm	18
	synt	any
	field	AbortMessage
	int	3
	var	4
	str	4
	pnull
	int	5
	line	5223
	colm	43
	synt	any
	invoke	3
	var	4
	str	6
	pnull
	int	5
	line	5223
	colm	63
	synt	any
	invoke	3
	pnull
	var	5
	line	5224
	colm	37
	synt	any
	field	__AuxMessage
	int	3
	line	5224
	colm	50
	synt	any
	invoke	1
	line	5223
	colm	31
	synt	any
	invoke	4
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	var	5
	line	5226
	colm	26
	synt	any
	field	Subsection
	var	0
	var	1
	var	2
	line	5226
	colm	37
	synt	any
	invoke	3
	line	5226
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	5227
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Subscript
	local	0,001000,self
	local	1,001000,i
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8
	con	0,002000,3,101
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5232
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5233
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5233
	colm	18
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5233
	colm	43
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5233
	colm	63
	synt	any
	invoke	3
	pnull
	var	3
	line	5234
	colm	37
	synt	any
	field	__AuxMessage
	int	0
	line	5234
	colm	50
	synt	any
	invoke	1
	line	5233
	colm	31
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	3
	line	5236
	colm	26
	synt	any
	field	Subscript
	var	0
	var	1
	line	5236
	colm	36
	synt	any
	invoke	2
	line	5236
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5237
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_String
	local	0,001000,self
	declend
	line	5242
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	5243
	colm	21
	synt	any
	field	__data
	line	5243
	colm	16
	synt	any
	value
	line	5243
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5244
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_Invalid
	local	0,001000,self
	declend
	line	5257
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	5258
	colm	22
	synt	any
	field	__source_data
	line	5258
	colm	17
	synt	any
	nonnull
	line	5258
	colm	16
	synt	any
	value
	line	5258
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5259
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object_initially
	local	0,001000,self
	local	1,001000,val
	local	2,001000,convert
	local	3,000020,byte
	local	4,000020,tempstr
	local	5,000000,type
	local	6,000000,ximage
	local	7,000000,string
	local	8,000000,UTF8__UTF8
	local	9,000000,image
	local	10,000000,ClassObject__IsObjectOf
	local	11,000000,variable
	local	12,000000,keyword
	con	0,010000,6,163,164,162,151,156,147
	con	1,010000,4,143,163,145,164
	con	2,010000,1,050
	con	3,010000,15,051,040,164,171,160,145,040,157,146,040,166,141,154,072,040
	con	4,010000,15,040,166,141,154,165,145,040,157,146,040,166,141,154,072,040
	con	5,010000,0
	con	6,010000,15,051,040,123,151,172,145,040,157,146,040,166,141,154,072,040
	con	7,010000,10,111,163,040,126,141,154,151,144,072,040
	con	8,010000,4,146,141,151,154
	con	9,010000,27,051,040,160,162,145,164,145,163,164,040,055,040,111,163,040,101,123,103,111,111,040,157,156,154,171,072,040
	con	10,010000,4,156,165,154,154
	con	11,010000,8,040,137,137,144,141,164,141,072
	con	12,002000,1,1
	con	13,010000,28,051,040,160,157,163,164,164,145,163,164,040,055,040,111,163,040,101,123,103,111,111,040,157,156,154,171,072,040
	con	14,010000,9,051,040,137,137,144,141,164,141,072
	con	15,010000,14,137,137,163,157,165,162,143,145,137,144,141,164,141,072
	con	16,010000,7,137,137,144,141,164,141,072
	con	17,010000,7,151,156,164,145,147,145,162
	con	18,010000,4,162,145,141,154
	con	19,010000,4,125,124,106,070
	con	20,010000,4,163,145,154,146
	con	21,010000,7,125,124,106,070,123,145,164
	con	22,002000,3,103
	con	23,010000,5,046,146,151,154,145
	con	24,010000,5,046,154,151,156,145
	con	25,010000,17,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072
	con	26,010000,15,124,150,151,163,040,157,142,152,145,143,164,040,151,163,040
	declend
	line	5280
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	5290
	colm	9
	synt	any
	field	IsOn
	line	5290
	colm	14
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	line	5296
	colm	5
	synt	ifelse
	mark	L3
	pnull
	var	5
	var	1
	line	5296
	colm	14
	synt	any
	invoke	1
	mark	L5
	str	0
	line	5296
	colm	33
	synt	any
	esusp
	goto	L6
lab L5
	str	1
lab L6
	line	5296
	colm	20
	synt	any
	lexeq
	unmark
	mark	L7
	pnull
	var	0
	line	5298
	colm	13
	synt	any
	field	DebugPrint
	str	2
	line	5298
	colm	29
	synt	any
	keywd	level
	str	3
	var	5
	var	1
	line	5298
	colm	58
	synt	any
	invoke	1
	str	4
	var	6
	var	1
	line	5298
	colm	92
	synt	any
	invoke	1
	line	5298
	colm	24
	synt	any
	invoke	6
	unmark
lab L7
	mark	L8
	line	5304
	colm	9
	synt	if
	mark0
	mark	L9
	pnull
	var	2
	line	5304
	colm	12
	synt	any
	nonnull
	line	5304
	colm	21
	synt	any
	esusp
	goto	L10
lab L9
	pnull
	var	5
	var	1
	line	5304
	colm	29
	synt	any
	invoke	1
	str	1
	line	5304
	colm	35
	synt	any
	lexeq
lab L10
	unmark
	mark	L11
	pnull
	var	4
	str	5
	line	5305
	colm	21
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	1
	var	7
	var	1
	line	5306
	colm	28
	synt	any
	invoke	1
	line	5306
	colm	17
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	line	5307
	colm	13
	synt	every
	mark0
	pnull
	var	3
	pnull
	var	1
	line	5307
	colm	27
	synt	any
	bang
	line	5307
	colm	24
	synt	any
	asgn
	pop
	mark0
	pnull
	var	4
	dup
	pnull
	var	8
	line	5308
	colm	40
	synt	any
	field	ByteTranslate
	var	3
	line	5308
	colm	54
	synt	any
	invoke	1
	line	5308
	colm	25
	synt	any
	cat
	asgn
	unmark
lab L14
	efail
lab L15
	line	5307
	colm	13
	synt	endevery
	unmark
lab L13
	pnull
	var	1
	var	4
	line	5310
	colm	17
	synt	any
	asgn
	line	5304
	colm	9
	synt	endif
	unmark
lab L8
	mark	L16
	pnull
	pnull
	var	0
	line	5316
	colm	13
	synt	any
	field	__size
	pnull
	var	8
	line	5316
	colm	32
	synt	any
	field	Size
	var	1
	line	5316
	colm	37
	synt	any
	invoke	1
	line	5316
	colm	20
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	var	0
	line	5318
	colm	13
	synt	any
	field	DebugPrint
	str	2
	line	5318
	colm	29
	synt	any
	keywd	level
	str	6
	pnull
	var	0
	line	5318
	colm	58
	synt	any
	field	__size
	line	5318
	colm	24
	synt	any
	invoke	4
	unmark
lab L17
	mark	L18
	pnull
	var	0
	line	5325
	colm	13
	synt	any
	field	DebugPrint
	str	7
	mark	L19
	var	9
	pnull
	var	8
	line	5325
	colm	54
	synt	any
	field	Valid
	var	1
	line	5325
	colm	60
	synt	any
	invoke	1
	line	5325
	colm	43
	synt	any
	invoke	1
	line	5325
	colm	66
	synt	any
	esusp
	goto	L20
lab L19
	str	8
lab L20
	line	5325
	colm	24
	synt	any
	invoke	2
	unmark
lab L18
	line	5327
	colm	9
	synt	ifelse
	mark	L21
	pnull
	pnull
	var	0
	line	5327
	colm	16
	synt	any
	field	__data
	pnull
	var	8
	line	5327
	colm	36
	synt	any
	field	Valid
	var	1
	line	5327
	colm	42
	synt	any
	invoke	1
	line	5327
	colm	23
	synt	any
	asgn
	unmark
	mark	L23
	pnull
	var	0
	line	5334
	colm	17
	synt	any
	field	DebugPrint
	str	2
	line	5334
	colm	33
	synt	any
	keywd	level
	str	9
	mark	L24
	pnull
	pnull
	var	0
	line	5334
	colm	75
	synt	any
	field	__asciionly
	line	5334
	colm	70
	synt	any
	nonnull
	line	5334
	colm	87
	synt	any
	esusp
	goto	L25
lab L24
	str	10
lab L25
	str	11
	var	9
	pnull
	var	0
	line	5334
	colm	116
	synt	any
	field	__data
	line	5334
	colm	111
	synt	any
	invoke	1
	line	5334
	colm	28
	synt	any
	invoke	6
	unmark
lab L23
	mark	L26
	pnull
	pnull
	var	0
	line	5336
	colm	17
	synt	any
	field	__asciionly
	pnull
	pnull
	var	1
	line	5336
	colm	33
	synt	any
	size
	pnull
	var	0
	line	5336
	colm	42
	synt	any
	field	__size
	line	5336
	colm	37
	synt	any
	numeq
	pop
	int	12
	line	5336
	colm	29
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	pnull
	var	0
	line	5338
	colm	17
	synt	any
	field	DebugPrint
	str	2
	line	5338
	colm	33
	synt	any
	keywd	level
	str	13
	mark	L28
	pnull
	pnull
	var	0
	line	5338
	colm	76
	synt	any
	field	__asciionly
	line	5338
	colm	71
	synt	any
	nonnull
	line	5338
	colm	88
	synt	any
	esusp
	goto	L29
lab L28
	str	10
lab L29
	str	11
	var	9
	pnull
	var	0
	line	5338
	colm	117
	synt	any
	field	__data
	line	5338
	colm	112
	synt	any
	invoke	1
	line	5338
	colm	28
	synt	any
	invoke	6
	unmark
lab L27
	pnull
	var	0
	line	5339
	colm	17
	synt	any
	field	DebugPrint
	str	2
	line	5339
	colm	33
	synt	any
	keywd	level
	str	14
	var	9
	pnull
	var	0
	line	5339
	colm	62
	synt	any
	field	__data
	line	5339
	colm	57
	synt	any
	invoke	1
	line	5339
	colm	28
	synt	any
	invoke	4
	goto	L22
lab L21
	mark	L30
	pnull
	pnull
	var	0
	line	5347
	colm	17
	synt	any
	field	__source_data
	var	1
	line	5347
	colm	31
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	pnull
	var	0
	line	5349
	colm	17
	synt	any
	field	DebugPrint
	str	15
	var	9
	pnull
	var	0
	line	5349
	colm	56
	synt	any
	field	__source_data
	line	5349
	colm	51
	synt	any
	invoke	1
	line	5349
	colm	28
	synt	any
	invoke	2
	unmark
lab L31
	mark	L32
	pnull
	pnull
	var	0
	line	5351
	colm	17
	synt	any
	field	__data
	str	5
	line	5351
	colm	24
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	line	5352
	colm	13
	synt	every
	mark0
	pnull
	pnull
	var	0
	line	5352
	colm	23
	synt	any
	field	__data
	dup
	pnull
	pnull
	var	8
	line	5352
	colm	44
	synt	any
	field	ForEach
	var	1
	line	5352
	colm	52
	synt	any
	invoke	1
	line	5352
	colm	57
	synt	any
	field	String
	line	5352
	colm	64
	synt	any
	invoke	0
	line	5352
	colm	30
	synt	any
	cat
	asgn
	pop
lab L34
	efail
lab L35
	line	5352
	colm	13
	synt	endevery
	unmark
lab L33
	pnull
	var	0
	line	5354
	colm	17
	synt	any
	field	DebugPrint
	str	16
	var	9
	pnull
	var	0
	line	5354
	colm	49
	synt	any
	field	__data
	line	5354
	colm	44
	synt	any
	invoke	1
	line	5354
	colm	28
	synt	any
	invoke	2
lab L22
	line	5327
	colm	9
	synt	endifelse
	goto	L4
lab L3
	line	5363
	colm	12
	synt	ifelse
	mark	L36
	pnull
	var	5
	var	1
	line	5363
	colm	21
	synt	any
	invoke	1
	mark	L38
	str	17
	line	5363
	colm	41
	synt	any
	esusp
	goto	L39
lab L38
	str	18
lab L39
	line	5363
	colm	27
	synt	any
	lexeq
	unmark
	mark	L40
	pnull
	pnull
	var	0
	line	5364
	colm	13
	synt	any
	field	__data
	var	7
	var	1
	line	5364
	colm	28
	synt	any
	invoke	1
	line	5364
	colm	20
	synt	any
	asgn
	unmark
lab L40
	mark	L41
	pnull
	pnull
	var	0
	line	5365
	colm	13
	synt	any
	field	__size
	pnull
	pnull
	var	0
	line	5365
	colm	27
	synt	any
	field	__data
	line	5365
	colm	22
	synt	any
	size
	line	5365
	colm	20
	synt	any
	asgn
	unmark
lab L41
	pnull
	pnull
	var	0
	line	5366
	colm	13
	synt	any
	field	__asciionly
	int	12
	line	5366
	colm	25
	synt	any
	asgn
	goto	L37
lab L36
	line	5380
	colm	12
	synt	ifelse
	mark	L42
	var	10
	var	1
	str	19
	line	5380
	colm	38
	synt	any
	invoke	2
	unmark
	pnull
	var	11
	str	20
	pnull
	int	12
	line	5381
	colm	17
	synt	any
	invoke	3
	var	1
	line	5381
	colm	31
	synt	any
	asgn
	goto	L43
lab L42
	line	5398
	colm	12
	synt	ifelse
	mark	L44
	var	10
	var	1
	str	21
	line	5398
	colm	38
	synt	any
	invoke	2
	unmark
	pnull
	var	11
	str	20
	pnull
	int	12
	line	5399
	colm	17
	synt	any
	invoke	3
	pnull
	var	1
	line	5399
	colm	37
	synt	any
	field	UTF8Value
	line	5399
	colm	47
	synt	any
	invoke	0
	line	5399
	colm	31
	synt	any
	asgn
	goto	L45
lab L44
	pnull
	var	0
	line	5407
	colm	13
	synt	any
	field	AbortMessage
	int	22
	var	12
	str	23
	pnull
	int	12
	line	5407
	colm	38
	synt	any
	invoke	3
	var	12
	str	24
	pnull
	int	12
	line	5407
	colm	58
	synt	any
	invoke	3
	str	25
	var	9
	var	1
	line	5408
	colm	51
	synt	any
	invoke	1
	line	5407
	colm	26
	synt	any
	invoke	5
lab L45
	line	5398
	colm	12
	synt	endifelse
lab L43
	line	5380
	colm	12
	synt	endifelse
lab L37
	line	5363
	colm	12
	synt	endifelse
lab L4
	line	5296
	colm	5
	synt	endifelse
	unmark
lab L2
	mark	L46
	pnull
	var	0
	line	5411
	colm	9
	synt	any
	field	DebugPrint
	str	26
	var	9
	var	0
	line	5411
	colm	44
	synt	any
	invoke	1
	line	5411
	colm	20
	synt	any
	invoke	2
	unmark
lab L46
	mark	L47
	mark	L48
	pnull
	line	5412
	colm	7
	synt	any
	pret
lab L48
	synt	any
	pfail
	unmark
lab L47
	pnull
	line	5413
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Object
	local	0,001000,val
	local	1,001000,convert
	local	2,000020,self
	local	3,000020,clone
	local	4,000000,UTF8____UTF8Object__oprec
	local	5,000000,UTF8____UTF8Objectinitialize
	local	6,000000,ClassObject__ClassObject__oprec
	local	7,000000,ClassObject__ClassObjectinitialize
	local	8,000000,ErrorSystem__ErrorSystem__oprec
	local	9,000000,ErrorSystem__ErrorSysteminitialize
	local	10,000000,UTF8____UTF8Object__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	4
	line	8
	colm	6
	synt	any
	null
	unmark
	var	5
	line	8
	colm	66
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	6
	line	9
	colm	6
	synt	any
	null
	unmark
	var	7
	line	9
	colm	78
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	4
	line	10
	colm	28
	synt	any
	field	ClassObject__ClassObject
	var	6
	line	10
	colm	54
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	8
	line	11
	colm	6
	synt	any
	null
	unmark
	var	9
	line	11
	colm	78
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	4
	line	12
	colm	28
	synt	any
	field	ErrorSystem__ErrorSystem
	var	8
	line	12
	colm	54
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	2
	var	10
	line	14
	colm	37
	synt	any
	keywd	null
	var	4
	line	14
	colm	36
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	2
	line	15
	colm	7
	synt	any
	field	__s
	var	2
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	2
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	2
	var	0
	var	1
	line	16
	colm	21
	synt	any
	invoke	3
	line	16
	colm	40
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	42
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	2
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8Objectinitialize
	local	0,000000,UTF8____UTF8Object__oprec
	local	1,000000,UTF8____UTF8Object__methods
	local	2,000000,UTF8____UTF8Object_Data
	local	3,000000,UTF8____UTF8Object_Complement
	local	4,000000,UTF8____UTF8Object_Difference
	local	5,000000,UTF8____UTF8Object_Intersect
	local	6,000000,UTF8____UTF8Object_Union
	local	7,000000,UTF8____UTF8Object_Equiv
	local	8,000000,UTF8____UTF8Object_Nequiv
	local	9,000000,UTF8____UTF8Object_LexEquals
	local	10,000000,UTF8____UTF8Object_LexGTorEq
	local	11,000000,UTF8____UTF8Object_LexGT
	local	12,000000,UTF8____UTF8Object_LexLTorEq
	local	13,000000,UTF8____UTF8Object_LexLT
	local	14,000000,UTF8____UTF8Object_LexNE
	local	15,000000,UTF8____UTF8Object_ForEach
	local	16,000000,UTF8____UTF8Object_Random
	local	17,000000,UTF8____UTF8Object_TabMatch
	local	18,000000,UTF8____UTF8Object_Size
	local	19,000000,UTF8____UTF8Object_Concatenate
	local	20,000000,UTF8____UTF8Object_Subsection
	local	21,000000,UTF8____UTF8Object_Subscript
	local	22,000000,UTF8____UTF8Object_String
	local	23,000000,UTF8____UTF8Object_Invalid
	local	24,000000,UTF8____UTF8Object_initially
	local	25,000000,ClassObject__ClassObject___call_by_method_name
	local	26,000000,ClassObject__ClassObject_ClassName
	local	27,000000,ClassObject__ClassObject_Clone
	local	28,000000,ClassObject__ClassObject_Copy
	local	29,000000,ClassObject__ClassObject_operator_overload_error_error
	local	30,000000,ClassObject__ClassObject_Serial
	local	31,000000,ClassObject__ClassObject_set_operator_overload_abort
	local	32,000000,ClassObject__ClassObject_Addition
	local	33,000000,ClassObject__ClassObject_Divide
	local	34,000000,ClassObject__ClassObject_Minus
	local	35,000000,ClassObject__ClassObject_Modulus
	local	36,000000,ClassObject__ClassObject_Multiply
	local	37,000000,ClassObject__ClassObject_Negate
	local	38,000000,ClassObject__ClassObject_UnaryPlus
	local	39,000000,ClassObject__ClassObject_Power
	local	40,000000,ClassObject__ClassObject_Equals
	local	41,000000,ClassObject__ClassObject_GTorEqual
	local	42,000000,ClassObject__ClassObject_Greater
	local	43,000000,ClassObject__ClassObject_LTorEqual
	local	44,000000,ClassObject__ClassObject_Less
	local	45,000000,ClassObject__ClassObject_Nequal
	local	46,000000,ClassObject__ClassObject_Integer
	local	47,000000,ClassObject__ClassObject_Numeric
	local	48,000000,ClassObject__ClassObject_Real
	local	49,000000,ClassObject__ClassObject___add__
	local	50,000000,ClassObject__ClassObject___div__
	local	51,000000,ClassObject__ClassObject___minus__
	local	52,000000,ClassObject__ClassObject___mod__
	local	53,000000,ClassObject__ClassObject___mult__
	local	54,000000,ClassObject__ClassObject___neg__
	local	55,000000,ClassObject__ClassObject___number__
	local	56,000000,ClassObject__ClassObject___powr__
	local	57,000000,ClassObject__ClassObject___eqv__
	local	58,000000,ClassObject__ClassObject___neqv__
	local	59,000000,ClassObject__ClassObject___lexeq__
	local	60,000000,ClassObject__ClassObject___lexge__
	local	61,000000,ClassObject__ClassObject___lexgt__
	local	62,000000,ClassObject__ClassObject___lexle__
	local	63,000000,ClassObject__ClassObject___lexlt__
	local	64,000000,ClassObject__ClassObject___lexne__
	local	65,000000,ClassObject__ClassObject___numeq__
	local	66,000000,ClassObject__ClassObject___numge__
	local	67,000000,ClassObject__ClassObject___numgt__
	local	68,000000,ClassObject__ClassObject___numle__
	local	69,000000,ClassObject__ClassObject___numlt__
	local	70,000000,ClassObject__ClassObject___numne__
	local	71,000000,ClassObject__ClassObject___cat__
	local	72,000000,ClassObject__ClassObject___lcat__
	local	73,000000,ClassObject__ClassObject___compl__
	local	74,000000,ClassObject__ClassObject___diff__
	local	75,000000,ClassObject__ClassObject___inter__
	local	76,000000,ClassObject__ClassObject___union__
	local	77,000000,ClassObject__ClassObject___bang__
	local	78,000000,ClassObject__ClassObject___random__
	local	79,000000,ClassObject__ClassObject___refresh__
	local	80,000000,ClassObject__ClassObject___sect__
	local	81,000000,ClassObject__ClassObject___size__
	local	82,000000,ClassObject__ClassObject___subsc__
	local	83,000000,ClassObject__ClassObject___tabmat__
	local	84,000000,ClassObject__ClassObject___toby__
	local	85,000000,ErrorSystem__ErrorSystem___proc_components
	local	86,000000,ErrorSystem__ErrorSystem_AbortIfDebug
	local	87,000000,ErrorSystem__ErrorSystem_AbortMessage
	local	88,000000,ErrorSystem__ErrorSystem_Caller
	local	89,000000,ErrorSystem__ErrorSystem_CallingComponents
	local	90,000000,ErrorSystem__ErrorSystem_ClassCalling
	local	91,000000,ErrorSystem__ErrorSystem_Debug
	local	92,000000,ErrorSystem__ErrorSystem_DebugMode
	local	93,000000,ErrorSystem__ErrorSystem_ErrorOut
	local	94,000000,ErrorSystem__ErrorSystem_IsOn
	local	95,000000,ErrorSystem__ErrorSystem_MethodCalling
	local	96,000000,ErrorSystem__ErrorSystem_NotInDebugMode
	local	97,000000,ErrorSystem__ErrorSystem_Off
	local	98,000000,ErrorSystem__ErrorSystem_On
	local	99,000000,ErrorSystem__ErrorSystem_PackageCalling
	local	100,000000,ErrorSystem__ErrorSystem_ParamCalling
	local	101,000000,ErrorSystem__ErrorSystem_PrintMessage
	local	102,000000,ErrorSystem__ErrorSystem_ProcedureCalling
	local	103,000000,ErrorSystem__ErrorSystem_StopMessage
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	var	25
	var	26
	var	27
	var	28
	var	29
	var	30
	var	31
	var	32
	var	33
	var	34
	var	35
	var	36
	var	37
	var	38
	var	39
	var	40
	var	41
	var	42
	var	43
	var	44
	var	45
	var	46
	var	47
	var	48
	var	49
	var	50
	var	51
	var	52
	var	53
	var	54
	var	55
	var	56
	var	57
	var	58
	var	59
	var	60
	var	61
	var	62
	var	63
	var	64
	var	65
	var	66
	var	67
	var	68
	var	69
	var	70
	var	71
	var	72
	var	73
	var	74
	var	75
	var	76
	var	77
	var	78
	var	79
	var	80
	var	81
	var	82
	var	83
	var	84
	var	85
	var	86
	var	87
	var	88
	var	89
	var	90
	var	91
	var	92
	var	93
	var	94
	var	95
	var	96
	var	97
	var	98
	var	99
	var	100
	var	101
	var	102
	var	103
	line	21
	colm	67
	synt	any
	invoke	102
	line	21
	colm	37
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set___Coerce
	local	0,001000,self
	local	1,001000,val
	local	2,000000,keyword
	local	3,000000,ClassObject__IsObjectOf
	local	4,000000,UTF8__UTF8Set
	con	0,002000,4,2001
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,118,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040,046,156,165,154,154,012,115,151,163,163,151,156,147,040,125,124,106,070,123,145,164,040,157,142,152,145,143,164,057,166,141,154,165,145,040,157,162,040,157,142,152,145,143,164,057,166,141,154,165,145,040,164,150,141,164,040,143,141,156,040,142,145,040,143,157,156,166,145,162,164,145,144,040,164,157,040,141,156,040,125,124,106,070,123,145,164,040,157,142,152,145,143,164,057,166,141,154,165,145,056
	con	5,010000,7,125,124,106,070,123,145,164
	declend
	filen	utf8.icn
	line	5463
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5464
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5464
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5464
	colm	46
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5464
	colm	66
	synt	any
	invoke	3
	str	4
	line	5464
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	line	5467
	colm	9
	synt	ifelse
	mark	L3
	var	3
	var	1
	str	5
	line	5467
	colm	35
	synt	any
	invoke	2
	unmark
	mark	L5
	var	1
	line	5468
	colm	13
	synt	any
	pret
lab L5
	synt	any
	pfail
	goto	L4
lab L3
	mark	L6
	pnull
	var	4
	line	5470
	colm	33
	synt	any
	field	New
	var	1
	line	5470
	colm	37
	synt	any
	invoke	1
	line	5470
	colm	13
	synt	any
	pret
lab L6
	synt	any
	pfail
lab L4
	line	5467
	colm	9
	synt	endifelse
	unmark
lab L2
	pnull
	line	5472
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set___AuxMessage
	local	0,001000,self
	local	1,001000,errorno
	local	2,001000,messageno
	local	3,000040,ErrorMessages
	local	4,000000,table
	con	0,002000,3,103
	con	1,010000,1,055
	con	2,002000,1,1
	con	3,010000,112,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040,046,156,165,154,154,012,115,151,163,163,151,156,147,040,125,124,106,070,040,157,142,152,145,143,164,057,166,141,154,165,145,040,157,162,040,157,142,152,145,143,164,057,166,141,154,165,145,040,164,150,141,164,040,143,141,156,040,142,145,040,143,157,156,166,145,162,164,145,144,040,164,157,040,141,156,040,125,124,106,070,040,157,142,152,145,143,164,057,166,141,154,165,145,056
	con	4,002000,1,2
	con	5,010000,18,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040
	con	6,002000,1,3
	con	7,010000,51,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040,046,156,165,154,154,012,115,151,163,163,151,156,147,040,125,156,151,143,157,156,040,163,164,162,151,156,147,040,166,141,154,165,145
	con	8,002000,1,4
	con	9,010000,75,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040,046,156,165,154,154,012,115,151,163,163,151,156,147,040,125,156,151,143,157,156,040,151,156,164,145,147,145,162,040,166,141,154,165,145,040,157,162,040,125,156,151,143,157,156,040,163,164,162,151,156,147,040,166,141,154,165,145
	con	10,002000,3,104
	con	11,010000,118,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040,046,156,165,154,154,012,115,151,163,163,151,156,147,040,125,124,106,070,123,145,164,040,157,142,152,145,143,164,057,166,141,154,165,145,040,157,162,040,157,142,152,145,143,164,057,166,141,154,165,145,040,164,150,141,164,040,143,141,156,040,142,145,040,143,157,156,166,145,162,164,145,144,040,164,157,040,141,156,040,125,124,106,070,123,145,164,040,157,142,152,145,143,164,057,166,141,154,165,145,056
	con	12,010000,23,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040,046,156,165,154,154
	con	13,002000,3,110
	con	14,002000,3,112
	con	15,002000,3,113
	con	16,002000,3,114
	con	17,002000,3,116
	con	18,002000,3,120
	con	19,002000,3,122
	con	20,002000,4,2001
	declend
	line	5478
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	3
	var	4
	line	5483
	colm	37
	synt	any
	invoke	0
	line	5483
	colm	27
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	3
	pnull
	pnull
	int	0
	str	1
	line	5485
	colm	31
	synt	any
	cat
	int	2
	line	5485
	colm	38
	synt	any
	cat
	line	5485
	colm	26
	synt	any
	subsc
	str	3
	line	5485
	colm	44
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	3
	pnull
	pnull
	int	0
	str	1
	line	5487
	colm	31
	synt	any
	cat
	int	4
	line	5487
	colm	38
	synt	any
	cat
	line	5487
	colm	26
	synt	any
	subsc
	str	5
	line	5487
	colm	44
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	pnull
	var	3
	pnull
	pnull
	int	0
	str	1
	line	5488
	colm	31
	synt	any
	cat
	int	6
	line	5488
	colm	38
	synt	any
	cat
	line	5488
	colm	26
	synt	any
	subsc
	str	7
	line	5488
	colm	44
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	3
	pnull
	pnull
	int	0
	str	1
	line	5490
	colm	31
	synt	any
	cat
	int	8
	line	5490
	colm	38
	synt	any
	cat
	line	5490
	colm	26
	synt	any
	subsc
	str	9
	line	5490
	colm	44
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	3
	pnull
	pnull
	int	10
	str	1
	line	5492
	colm	31
	synt	any
	cat
	int	2
	line	5492
	colm	38
	synt	any
	cat
	line	5492
	colm	26
	synt	any
	subsc
	str	11
	line	5492
	colm	44
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	3
	pnull
	pnull
	int	10
	str	1
	line	5494
	colm	31
	synt	any
	cat
	int	4
	line	5494
	colm	38
	synt	any
	cat
	line	5494
	colm	26
	synt	any
	subsc
	str	12
	line	5494
	colm	44
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	var	3
	pnull
	pnull
	int	13
	str	1
	line	5495
	colm	31
	synt	any
	cat
	int	2
	line	5495
	colm	38
	synt	any
	cat
	line	5495
	colm	26
	synt	any
	subsc
	str	3
	line	5495
	colm	44
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	3
	pnull
	pnull
	int	14
	str	1
	line	5497
	colm	31
	synt	any
	cat
	int	2
	line	5497
	colm	38
	synt	any
	cat
	line	5497
	colm	26
	synt	any
	subsc
	str	11
	line	5497
	colm	44
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	3
	pnull
	pnull
	int	15
	str	1
	line	5499
	colm	31
	synt	any
	cat
	int	2
	line	5499
	colm	38
	synt	any
	cat
	line	5499
	colm	26
	synt	any
	subsc
	str	3
	line	5499
	colm	44
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	3
	pnull
	pnull
	int	16
	str	1
	line	5501
	colm	31
	synt	any
	cat
	int	2
	line	5501
	colm	38
	synt	any
	cat
	line	5501
	colm	26
	synt	any
	subsc
	str	11
	line	5501
	colm	44
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	3
	pnull
	pnull
	int	17
	str	1
	line	5503
	colm	31
	synt	any
	cat
	int	2
	line	5503
	colm	38
	synt	any
	cat
	line	5503
	colm	26
	synt	any
	subsc
	str	11
	line	5503
	colm	44
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	pnull
	var	3
	pnull
	pnull
	int	18
	str	1
	line	5505
	colm	31
	synt	any
	cat
	int	2
	line	5505
	colm	38
	synt	any
	cat
	line	5505
	colm	26
	synt	any
	subsc
	str	11
	line	5505
	colm	44
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	pnull
	var	3
	pnull
	pnull
	int	19
	str	1
	line	5507
	colm	31
	synt	any
	cat
	int	2
	line	5507
	colm	38
	synt	any
	cat
	line	5507
	colm	26
	synt	any
	subsc
	str	11
	line	5507
	colm	44
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	pnull
	var	3
	pnull
	pnull
	int	19
	str	1
	line	5509
	colm	31
	synt	any
	cat
	int	4
	line	5509
	colm	38
	synt	any
	cat
	line	5509
	colm	26
	synt	any
	subsc
	str	5
	line	5509
	colm	44
	synt	any
	asgn
	unmark
lab L18
	pnull
	pnull
	var	3
	pnull
	pnull
	int	20
	str	1
	line	5510
	colm	32
	synt	any
	cat
	int	2
	line	5510
	colm	39
	synt	any
	cat
	line	5510
	colm	26
	synt	any
	subsc
	str	11
	line	5510
	colm	45
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L19
	pnull
	pnull
	var	2
	line	5513
	colm	9
	synt	any
	null
	int	2
	line	5513
	colm	20
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	mark	L21
	mark	L22
	pnull
	pnull
	var	3
	pnull
	pnull
	var	1
	str	1
	line	5514
	colm	39
	synt	any
	cat
	var	2
	line	5514
	colm	46
	synt	any
	cat
	line	5514
	colm	30
	synt	any
	subsc
	line	5514
	colm	16
	synt	any
	nonnull
	line	5514
	colm	60
	synt	any
	esusp
	goto	L23
lab L22
	pnull
	pnull
	pnull
	pnull
	var	0
	line	5514
	colm	69
	synt	any
	field	__m
	line	5514
	colm	73
	synt	any
	field	ClassObject__ClassClass
	line	5514
	colm	97
	synt	any
	field	__AuxMessage
	var	0
	var	1
	var	2
	line	5514
	colm	110
	synt	any
	invoke	3
	line	5514
	colm	62
	synt	any
	nonnull
lab L23
	line	5514
	colm	9
	synt	any
	pret
lab L21
	synt	any
	pfail
	unmark
lab L20
	pnull
	line	5515
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_Complement
	local	0,001000,self
	local	1,001000,uset
	local	2,000020,local_uset
	local	3,000000,keyword
	con	0,002000,3,120
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5517
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5528
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5528
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	5528
	colm	46
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	5528
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	5529
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	5529
	colm	47
	synt	any
	invoke	1
	line	5528
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	5531
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	5531
	colm	36
	synt	any
	invoke	1
	line	5531
	colm	20
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	2
	line	5532
	colm	26
	synt	any
	field	Complement
	line	5532
	colm	37
	synt	any
	invoke	0
	line	5532
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	5533
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_Difference
	local	0,001000,self
	local	1,001000,uset1
	local	2,001000,uset2
	local	3,000020,local_uset1
	local	4,000000,keyword
	con	0,002000,3,120
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5535
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5546
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5546
	colm	22
	synt	any
	field	AbortMessage
	int	0
	var	4
	str	1
	pnull
	int	2
	line	5546
	colm	47
	synt	any
	invoke	3
	var	4
	str	3
	pnull
	int	2
	line	5546
	colm	67
	synt	any
	invoke	3
	pnull
	var	0
	line	5547
	colm	35
	synt	any
	field	__AuxMessage
	int	0
	line	5547
	colm	48
	synt	any
	invoke	1
	line	5546
	colm	35
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	5549
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5549
	colm	22
	synt	any
	field	AbortMessage
	int	0
	var	4
	str	1
	pnull
	int	2
	line	5549
	colm	47
	synt	any
	invoke	3
	var	4
	str	3
	pnull
	int	2
	line	5549
	colm	67
	synt	any
	invoke	3
	pnull
	var	0
	line	5550
	colm	35
	synt	any
	field	__AuxMessage
	int	0
	line	5550
	colm	48
	synt	any
	invoke	1
	line	5549
	colm	35
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	5552
	colm	28
	synt	any
	field	__Coerce
	var	1
	line	5552
	colm	37
	synt	any
	invoke	1
	line	5552
	colm	21
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	var	3
	line	5553
	colm	27
	synt	any
	field	Difference
	var	2
	line	5553
	colm	38
	synt	any
	invoke	1
	line	5553
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	5554
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_Intersect
	local	0,001000,self
	local	1,001000,uset1
	local	2,001000,uset2
	local	3,000020,local_uset1
	local	4,000000,keyword
	con	0,002000,3,120
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5556
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5566
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5566
	colm	22
	synt	any
	field	AbortMessage
	int	0
	var	4
	str	1
	pnull
	int	2
	line	5566
	colm	47
	synt	any
	invoke	3
	var	4
	str	3
	pnull
	int	2
	line	5566
	colm	67
	synt	any
	invoke	3
	pnull
	var	0
	line	5567
	colm	35
	synt	any
	field	__AuxMessage
	int	0
	line	5567
	colm	48
	synt	any
	invoke	1
	line	5566
	colm	35
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	5569
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5569
	colm	22
	synt	any
	field	AbortMessage
	int	0
	var	4
	str	1
	pnull
	int	2
	line	5569
	colm	47
	synt	any
	invoke	3
	var	4
	str	3
	pnull
	int	2
	line	5569
	colm	67
	synt	any
	invoke	3
	pnull
	var	0
	line	5570
	colm	35
	synt	any
	field	__AuxMessage
	int	0
	line	5570
	colm	48
	synt	any
	invoke	1
	line	5569
	colm	35
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	5572
	colm	28
	synt	any
	field	__Coerce
	var	1
	line	5572
	colm	37
	synt	any
	invoke	1
	line	5572
	colm	21
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	var	3
	line	5573
	colm	27
	synt	any
	field	Intersect
	var	2
	line	5573
	colm	37
	synt	any
	invoke	1
	line	5573
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	5574
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_Union
	local	0,001000,self
	local	1,001000,uset1
	local	2,001000,uset2
	local	3,000020,local_uset1
	local	4,000000,keyword
	local	5,000000,image
	con	0,002000,3,120
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,13,151,155,141,147,145,050,165,163,145,164,061,051,072
	con	5,010000,14,012,151,155,141,147,145,050,165,163,145,164,062,051,072
	con	6,010000,19,151,155,141,147,145,050,154,157,143,141,154,137,165,163,145,164,061,051,072
	declend
	line	5576
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5587
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5587
	colm	22
	synt	any
	field	AbortMessage
	int	0
	var	4
	str	1
	pnull
	int	2
	line	5587
	colm	47
	synt	any
	invoke	3
	var	4
	str	3
	pnull
	int	2
	line	5587
	colm	67
	synt	any
	invoke	3
	pnull
	var	0
	line	5588
	colm	35
	synt	any
	field	__AuxMessage
	int	0
	line	5588
	colm	48
	synt	any
	invoke	1
	line	5587
	colm	35
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	5590
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5590
	colm	22
	synt	any
	field	AbortMessage
	int	0
	var	4
	str	1
	pnull
	int	2
	line	5590
	colm	47
	synt	any
	invoke	3
	var	4
	str	3
	pnull
	int	2
	line	5590
	colm	67
	synt	any
	invoke	3
	pnull
	var	0
	line	5591
	colm	35
	synt	any
	field	__AuxMessage
	int	0
	line	5591
	colm	48
	synt	any
	invoke	1
	line	5590
	colm	35
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	0
	line	5593
	colm	13
	synt	any
	field	DebugPrint
	str	4
	var	5
	var	1
	line	5593
	colm	46
	synt	any
	invoke	1
	str	5
	var	5
	var	2
	line	5593
	colm	77
	synt	any
	invoke	1
	line	5593
	colm	24
	synt	any
	invoke	4
	unmark
lab L3
	mark	L4
	pnull
	var	3
	pnull
	var	0
	line	5595
	colm	28
	synt	any
	field	__Coerce
	var	1
	line	5595
	colm	37
	synt	any
	invoke	1
	line	5595
	colm	21
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	0
	line	5597
	colm	13
	synt	any
	field	DebugPrint
	str	6
	var	5
	var	3
	line	5597
	colm	52
	synt	any
	invoke	1
	line	5597
	colm	24
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	var	3
	line	5599
	colm	27
	synt	any
	field	Union
	var	2
	line	5599
	colm	33
	synt	any
	invoke	1
	line	5599
	colm	9
	synt	any
	pret
lab L7
	synt	any
	pfail
	unmark
lab L6
	pnull
	line	5600
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_ForEach
	local	0,001000,self
	local	1,001000,val
	local	2,000020,local_val
	local	3,000000,keyword
	con	0,002000,3,116
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5602
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5613
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5613
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	5613
	colm	45
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	5613
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	5614
	colm	33
	synt	any
	field	__AuxMessage
	int	0
	line	5614
	colm	46
	synt	any
	invoke	1
	line	5613
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	5616
	colm	26
	synt	any
	field	__Coerce
	var	1
	line	5616
	colm	35
	synt	any
	invoke	1
	line	5616
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	line	5617
	colm	9
	synt	suspend
	mark0
	pnull
	var	2
	line	5617
	colm	26
	synt	any
	field	ForEach
	line	5617
	colm	34
	synt	any
	invoke	0
	line	5617
	colm	9
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	5617
	colm	9
	synt	endsuspend
	unmark
lab L3
	pnull
	line	5618
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_Size
	local	0,001000,self
	local	1,001000,val
	local	2,000020,local_val
	local	3,000000,keyword
	con	0,002000,3,112
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5620
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5631
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5631
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	5631
	colm	45
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	5631
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	5632
	colm	33
	synt	any
	field	__AuxMessage
	int	0
	line	5632
	colm	46
	synt	any
	invoke	1
	line	5631
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	0
	line	5634
	colm	26
	synt	any
	field	__Coerce
	var	1
	line	5634
	colm	35
	synt	any
	invoke	1
	line	5634
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	2
	line	5635
	colm	25
	synt	any
	field	Size
	line	5635
	colm	30
	synt	any
	invoke	0
	line	5635
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	5636
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_String
	local	0,001000,self
	local	1,001000,val
	con	0,010000,0
	declend
	line	5642
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5643
	colm	9
	synt	any
	null
	pop
	mark	L2
	str	0
	line	5643
	colm	16
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	mark	L3
	mark	L4
	pnull
	pnull
	var	0
	line	5644
	colm	20
	synt	any
	field	__Coerce
	var	1
	line	5644
	colm	29
	synt	any
	invoke	1
	line	5644
	colm	34
	synt	any
	field	String
	line	5644
	colm	41
	synt	any
	invoke	0
	line	5644
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	5645
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_Subscript
	local	0,001000,self
	local	1,001000,val
	local	2,001000,i
	local	3,000020,local_val
	local	4,000000,keyword
	con	0,002000,3,114
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,101
	declend
	line	5650
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5653
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5653
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	4
	str	1
	pnull
	int	2
	line	5653
	colm	45
	synt	any
	invoke	3
	var	4
	str	3
	pnull
	int	2
	line	5653
	colm	65
	synt	any
	invoke	3
	pnull
	var	0
	line	5654
	colm	33
	synt	any
	field	__AuxMessage
	int	0
	line	5654
	colm	46
	synt	any
	invoke	1
	line	5653
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	line	5656
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5656
	colm	18
	synt	any
	field	AbortMessage
	int	4
	var	4
	str	1
	pnull
	int	2
	line	5656
	colm	43
	synt	any
	invoke	3
	var	4
	str	3
	pnull
	int	2
	line	5656
	colm	63
	synt	any
	invoke	3
	pnull
	var	0
	line	5657
	colm	31
	synt	any
	field	__AuxMessage
	int	4
	line	5657
	colm	44
	synt	any
	invoke	1
	line	5656
	colm	31
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	0
	line	5659
	colm	26
	synt	any
	field	__Coerce
	var	1
	line	5659
	colm	35
	synt	any
	invoke	1
	line	5659
	colm	19
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	var	3
	line	5660
	colm	25
	synt	any
	field	Subscript
	var	2
	line	5660
	colm	35
	synt	any
	invoke	1
	line	5660
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	5661
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_Member
	local	0,001000,self
	local	1,001000,uset
	local	2,001000,val
	local	3,000020,local_uset
	local	4,000000,keyword
	local	5,000000,type
	local	6,000000,ClassObject__IsObjectOf
	local	7,000000,image
	con	0,002000,3,122
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,4,143,163,145,164
	con	5,010000,7,125,124,106,070,123,145,164
	con	6,002000,1,2
	con	7,010000,12,123,151,172,145,040,157,146,040,166,141,154,072
	con	8,010000,1,012
	con	9,010000,11,151,155,141,147,145,050,166,141,154,051,072
	con	10,010000,23,143,157,145,162,143,145,144,040,160,141,162,141,155,145,164,145,162,040,165,163,145,164,072
	con	11,002000,1,0
	declend
	line	5663
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5674
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5674
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	4
	str	1
	pnull
	int	2
	line	5674
	colm	46
	synt	any
	invoke	3
	var	4
	str	3
	pnull
	int	2
	line	5674
	colm	66
	synt	any
	invoke	3
	pnull
	var	0
	line	5675
	colm	34
	synt	any
	field	__AuxMessage
	int	0
	line	5675
	colm	47
	synt	any
	invoke	1
	line	5674
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	mark	L4
	pnull
	var	5
	var	1
	line	5677
	colm	20
	synt	any
	invoke	1
	str	4
	line	5677
	colm	27
	synt	any
	lexeq
	line	5677
	colm	37
	synt	any
	esusp
	goto	L5
lab L4
	var	6
	var	1
	str	5
	line	5677
	colm	62
	synt	any
	invoke	2
lab L5
	unmark
	efail
lab L3
	pnull
	pop
	pnull
	var	0
	line	5678
	colm	17
	synt	any
	field	AbortMessage
	int	0
	var	4
	str	1
	pnull
	int	2
	line	5678
	colm	42
	synt	any
	invoke	3
	var	4
	str	3
	pnull
	int	2
	line	5678
	colm	62
	synt	any
	invoke	3
	pnull
	var	0
	line	5679
	colm	30
	synt	any
	field	__AuxMessage
	int	0
	int	6
	line	5679
	colm	43
	synt	any
	invoke	2
	var	7
	var	1
	line	5679
	colm	56
	synt	any
	invoke	1
	line	5678
	colm	30
	synt	any
	invoke	5
	unmark
lab L2
	mark	L6
	pnull
	var	3
	pnull
	var	0
	line	5681
	colm	27
	synt	any
	field	__Coerce
	var	1
	line	5681
	colm	36
	synt	any
	invoke	1
	line	5681
	colm	20
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	0
	line	5683
	colm	13
	synt	any
	field	DebugPrint
	str	7
	pnull
	var	2
	line	5683
	colm	40
	synt	any
	size
	str	8
	str	9
	var	7
	var	2
	line	5683
	colm	70
	synt	any
	invoke	1
	str	8
	str	10
	var	7
	var	1
	line	5684
	colm	54
	synt	any
	invoke	1
	line	5683
	colm	24
	synt	any
	invoke	8
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	line	5686
	colm	10
	synt	any
	size
	int	11
	line	5686
	colm	15
	synt	any
	numeq
	pop
	mark	L9
	var	1
	line	5686
	colm	22
	synt	any
	pret
lab L9
	synt	any
	pfail
	unmark
lab L8
	mark	L10
	mark	L11
	pnull
	var	3
	line	5687
	colm	27
	synt	any
	field	Member
	var	2
	invoke	-1
	pop
	var	1
	line	5687
	colm	9
	synt	any
	pret
lab L11
	synt	any
	pfail
	unmark
lab L10
	pnull
	line	5688
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_Space
	local	0,001000,self
	declend
	line	5696
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	5697
	colm	21
	synt	any
	field	__ascii_blank
	line	5697
	colm	16
	synt	any
	value
	line	5697
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5698
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_UTF8Spaces
	local	0,001000,self
	declend
	line	5706
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	5707
	colm	21
	synt	any
	field	__uft8_blanks
	line	5707
	colm	16
	synt	any
	value
	line	5707
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5708
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_Ascii
	local	0,001000,self
	declend
	line	5714
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	5715
	colm	21
	synt	any
	field	__ascii_128
	line	5715
	colm	16
	synt	any
	value
	line	5715
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5716
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_Rparens
	local	0,001000,self
	declend
	line	5722
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	5723
	colm	21
	synt	any
	field	__ascii_rparens
	line	5723
	colm	16
	synt	any
	value
	line	5723
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5724
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_Lparens
	local	0,001000,self
	declend
	line	5730
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	5731
	colm	21
	synt	any
	field	__ascii_lparens
	line	5731
	colm	16
	synt	any
	value
	line	5731
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5732
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_All
	local	0,001000,self
	declend
	line	5738
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	5739
	colm	21
	synt	any
	field	__all_codepoints
	line	5739
	colm	16
	synt	any
	value
	line	5739
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5740
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_MaxSize
	local	0,001000,self
	declend
	line	5746
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	5747
	colm	21
	synt	any
	field	__max_size_of_set
	line	5747
	colm	16
	synt	any
	value
	line	5747
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	5748
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_Defined
	local	0,001000,self
	local	1,001000,str
	local	2,000020,temp
	local	3,000000,ClassObject__IsObjectOf
	local	4,000000,type
	local	5,000000,string
	local	6,000000,cset
	local	7,000000,UTF8__UTF8Set
	con	0,010000,7,125,124,106,070,123,145,164
	con	1,010000,4,125,124,106,070
	con	2,010000,6,163,164,162,151,156,147
	con	3,010000,4,143,163,145,164
	con	4,010000,7,151,156,164,145,147,145,162
	con	5,010000,4,162,145,141,154
	declend
	line	5755
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5758
	colm	9
	synt	any
	null
	pop
	line	5758
	colm	16
	synt	any
	pfail
	unmark
lab L1
	mark	L2
	line	5759
	colm	9
	synt	ifelse
	mark	L3
	var	3
	var	1
	str	0
	line	5759
	colm	35
	synt	any
	invoke	2
	unmark
	mark	L5
	var	1
	line	5760
	colm	13
	synt	any
	pret
lab L5
	synt	any
	pfail
	goto	L4
lab L3
	line	5761
	colm	16
	synt	ifelse
	mark	L6
	var	3
	var	1
	str	1
	line	5761
	colm	42
	synt	any
	invoke	2
	unmark
	line	5762
	colm	13
	synt	ifelse
	mark	L8
	pnull
	var	2
	pnull
	pnull
	pnull
	var	0
	line	5762
	colm	29
	synt	any
	field	__defined_sets
	pnull
	var	1
	line	5762
	colm	48
	synt	any
	field	String
	line	5762
	colm	55
	synt	any
	invoke	0
	line	5762
	colm	44
	synt	any
	subsc
	line	5762
	colm	24
	synt	any
	nonnull
	line	5762
	colm	21
	synt	any
	asgn
	unmark
	mark	L10
	var	2
	line	5763
	colm	17
	synt	any
	pret
lab L10
	synt	any
	pfail
	goto	L9
lab L8
	mark	L11
	pnull
	pnull
	pnull
	var	0
	line	5765
	colm	28
	synt	any
	field	__defined_sets
	pnull
	var	1
	line	5765
	colm	47
	synt	any
	field	String
	line	5765
	colm	54
	synt	any
	invoke	0
	line	5765
	colm	43
	synt	any
	subsc
	var	1
	line	5765
	colm	57
	synt	any
	asgn
	line	5765
	colm	17
	synt	any
	pret
lab L11
	synt	any
	pfail
lab L9
	line	5762
	colm	13
	synt	endifelse
	goto	L7
lab L6
	line	5767
	colm	16
	synt	if
	mark0
	pnull
	var	4
	var	1
	line	5767
	colm	25
	synt	any
	invoke	1
	mark	L12
	str	2
	line	5767
	colm	44
	synt	any
	esusp
	goto	L13
lab L12
	mark	L14
	str	3
	line	5767
	colm	53
	synt	any
	esusp
	goto	L15
lab L14
	mark	L16
	str	4
	line	5767
	colm	65
	synt	any
	esusp
	goto	L17
lab L16
	str	5
lab L17
lab L15
lab L13
	line	5767
	colm	31
	synt	any
	lexeq
	unmark
	line	5768
	colm	17
	synt	ifelse
	mark	L18
	pnull
	var	2
	pnull
	pnull
	pnull
	var	0
	line	5768
	colm	33
	synt	any
	field	__defined_sets
	var	5
	var	6
	var	1
	line	5768
	colm	60
	synt	any
	invoke	1
	line	5768
	colm	55
	synt	any
	invoke	1
	line	5768
	colm	48
	synt	any
	subsc
	line	5768
	colm	28
	synt	any
	nonnull
	line	5768
	colm	25
	synt	any
	asgn
	unmark
	mark	L20
	var	2
	line	5769
	colm	21
	synt	any
	pret
lab L20
	synt	any
	pfail
	goto	L19
lab L18
	mark	L21
	pnull
	pnull
	pnull
	var	0
	line	5771
	colm	32
	synt	any
	field	__defined_sets
	var	5
	var	6
	var	1
	line	5771
	colm	59
	synt	any
	invoke	1
	line	5771
	colm	54
	synt	any
	invoke	1
	line	5771
	colm	47
	synt	any
	subsc
	pnull
	var	7
	line	5771
	colm	82
	synt	any
	field	New
	var	5
	var	6
	var	1
	line	5771
	colm	98
	synt	any
	invoke	1
	line	5771
	colm	93
	synt	any
	invoke	1
	line	5771
	colm	86
	synt	any
	invoke	1
	line	5771
	colm	66
	synt	any
	asgn
	line	5771
	colm	21
	synt	any
	pret
lab L21
	synt	any
	pfail
lab L19
	line	5768
	colm	17
	synt	endifelse
	line	5767
	colm	16
	synt	endif
lab L7
	line	5761
	colm	16
	synt	endifelse
lab L4
	line	5759
	colm	9
	synt	endifelse
	unmark
lab L2
	pnull
	line	5774
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set_initially
	local	0,001000,self
	local	1,000000,ClassObject__Execute
	local	2,000000,ClassObject__ClassClass
	local	3,000000,UTF8____UTF8SetObject
	local	4,000000,UTF8__UTF8Set
	local	5,000000,table
	local	6,000000,string
	local	7,000000,image
	local	8,000000,runtime_error_message
	con	0,010000,15,137,137,141,163,143,151,151,137,061,062,070,040,151,163,040
	con	1,010000,1,040
	con	2,010000,17,137,137,141,163,143,151,151,137,142,154,141,156,153,040,151,163,040
	con	3,010000,47,040,040,341,232,200,342,200,200,342,200,201,342,200,202,342,200,203,342,200,204,342,200,205,342,200,206,342,200,207,342,200,210,342,200,211,342,200,212,342,200,257,342,201,237,343,200,200
	con	4,010000,17,137,137,165,146,164,070,137,142,154,141,156,153,163,040,151,163,040
	con	5,010000,1,050
	con	6,010000,19,137,137,141,163,143,151,151,137,154,160,141,162,145,156,163,040,151,163,040
	con	7,010000,1,051
	con	8,010000,19,137,137,141,163,143,151,151,137,162,160,141,162,145,156,163,040,151,163,040
	con	9,010000,20,137,137,141,154,154,137,143,157,144,145,160,157,151,156,164,163,040,151,163,040
	con	10,002000,7,1112064
	con	11,002000,4,2001
	con	12,010000,37,143,141,156,156,157,164,040,143,157,145,162,143,145,040,164,157,040,125,124,106,070,123,145,164,040,157,142,152,145,143,164,057,166,141,154,165,145
	con	13,010000,44,110,141,166,145,040,106,151,156,151,163,150,145,144,040,111,156,151,164,151,141,154,151,163,151,156,147,040,164,150,145,040,103,154,141,163,163,040,125,124,106,070,123,145,164
	declend
	line	5776
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	var	1
	var	2
	line	5778
	colm	29
	synt	any
	invoke	1
	unmark
lab L4
	mark	L5
	pnull
	var	0
	line	5782
	colm	13
	synt	any
	field	IsOn
	line	5782
	colm	18
	synt	any
	invoke	0
	unmark
lab L5
	mark	L6
	pnull
	var	0
	line	5783
	colm	13
	synt	any
	field	SetClass
	var	3
	line	5783
	colm	22
	synt	any
	invoke	1
	unmark
lab L6
	mark	L7
	pnull
	var	4
	var	0
	line	5784
	colm	23
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	0
	line	5785
	colm	13
	synt	any
	field	__defined_sets
	var	5
	line	5785
	colm	35
	synt	any
	invoke	0
	line	5785
	colm	28
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	pnull
	var	0
	line	5786
	colm	13
	synt	any
	field	__defined_sets
	var	6
	line	5786
	colm	36
	synt	any
	keywd	ascii
	line	5786
	colm	35
	synt	any
	invoke	1
	line	5786
	colm	28
	synt	any
	subsc
	pnull
	pnull
	var	0
	line	5786
	colm	50
	synt	any
	field	__ascii_blank
	pnull
	var	0
	line	5786
	colm	70
	synt	any
	field	New
	var	6
	line	5786
	colm	82
	synt	any
	keywd	ascii
	line	5786
	colm	81
	synt	any
	invoke	1
	line	5786
	colm	74
	synt	any
	invoke	1
	line	5786
	colm	64
	synt	any
	asgn
	line	5786
	colm	44
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	0
	line	5788
	colm	13
	synt	any
	field	DebugPrint
	str	0
	var	7
	pnull
	var	0
	line	5788
	colm	53
	synt	any
	field	__ascii_blank
	line	5788
	colm	48
	synt	any
	invoke	1
	line	5788
	colm	24
	synt	any
	invoke	2
	unmark
lab L10
	mark	L11
	pnull
	pnull
	pnull
	var	0
	line	5790
	colm	13
	synt	any
	field	__defined_sets
	str	1
	line	5790
	colm	28
	synt	any
	subsc
	pnull
	pnull
	var	0
	line	5790
	colm	39
	synt	any
	field	__ascii_blank
	pnull
	var	0
	line	5790
	colm	59
	synt	any
	field	New
	str	1
	line	5790
	colm	63
	synt	any
	invoke	1
	line	5790
	colm	53
	synt	any
	asgn
	line	5790
	colm	33
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	0
	line	5792
	colm	13
	synt	any
	field	DebugPrint
	str	2
	var	7
	pnull
	var	0
	line	5792
	colm	55
	synt	any
	field	__ascii_blank
	line	5792
	colm	50
	synt	any
	invoke	1
	line	5792
	colm	24
	synt	any
	invoke	2
	unmark
lab L12
	mark	L13
	pnull
	pnull
	pnull
	var	0
	line	5794
	colm	13
	synt	any
	field	__defined_sets
	str	3
	line	5794
	colm	28
	synt	any
	subsc
	pnull
	pnull
	var	0
	line	5794
	colm	85
	synt	any
	field	__uft8_blanks
	pnull
	var	0
	line	5794
	colm	105
	synt	any
	field	New
	str	3
	line	5794
	colm	109
	synt	any
	invoke	1
	line	5794
	colm	99
	synt	any
	asgn
	line	5794
	colm	79
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	var	0
	line	5796
	colm	13
	synt	any
	field	DebugPrint
	str	4
	var	7
	pnull
	var	0
	line	5796
	colm	55
	synt	any
	field	__uft8_blanks
	line	5796
	colm	50
	synt	any
	invoke	1
	line	5796
	colm	24
	synt	any
	invoke	2
	unmark
lab L14
	mark	L15
	pnull
	pnull
	pnull
	var	0
	line	5798
	colm	13
	synt	any
	field	__defined_sets
	str	5
	line	5798
	colm	28
	synt	any
	subsc
	pnull
	pnull
	var	0
	line	5798
	colm	39
	synt	any
	field	__ascii_lparens
	pnull
	var	0
	line	5798
	colm	61
	synt	any
	field	New
	str	5
	line	5798
	colm	65
	synt	any
	invoke	1
	line	5798
	colm	55
	synt	any
	asgn
	line	5798
	colm	33
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	var	0
	line	5800
	colm	13
	synt	any
	field	DebugPrint
	str	6
	var	7
	pnull
	var	0
	line	5800
	colm	57
	synt	any
	field	__ascii_lparens
	line	5800
	colm	52
	synt	any
	invoke	1
	line	5800
	colm	24
	synt	any
	invoke	2
	unmark
lab L16
	mark	L17
	pnull
	pnull
	pnull
	var	0
	line	5802
	colm	13
	synt	any
	field	__defined_sets
	str	7
	line	5802
	colm	28
	synt	any
	subsc
	pnull
	pnull
	var	0
	line	5802
	colm	39
	synt	any
	field	__ascii_rparens
	pnull
	var	0
	line	5802
	colm	61
	synt	any
	field	New
	str	7
	line	5802
	colm	65
	synt	any
	invoke	1
	line	5802
	colm	55
	synt	any
	asgn
	line	5802
	colm	33
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	var	0
	line	5804
	colm	13
	synt	any
	field	DebugPrint
	str	8
	var	7
	pnull
	var	0
	line	5804
	colm	57
	synt	any
	field	__ascii_rparens
	line	5804
	colm	52
	synt	any
	invoke	1
	line	5804
	colm	24
	synt	any
	invoke	2
	unmark
lab L18
	mark	L19
	pnull
	pnull
	var	0
	line	5806
	colm	13
	synt	any
	field	__all_codepoints
	pnull
	var	0
	line	5806
	colm	36
	synt	any
	field	New
	line	5806
	colm	40
	synt	any
	invoke	0
	line	5806
	colm	30
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	var	0
	line	5808
	colm	13
	synt	any
	field	DebugPrint
	str	9
	var	7
	pnull
	var	0
	line	5808
	colm	58
	synt	any
	field	__all_codepoints
	line	5808
	colm	53
	synt	any
	invoke	1
	line	5808
	colm	24
	synt	any
	invoke	2
	unmark
lab L20
	mark	L21
	pnull
	pnull
	var	0
	line	5810
	colm	13
	synt	any
	field	__max_size_of_set
	int	10
	line	5810
	colm	31
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	var	8
	int	11
	str	12
	line	5811
	colm	32
	synt	any
	invoke	2
	unmark
lab L22
	pnull
	var	0
	line	5813
	colm	13
	synt	any
	field	DebugPrint
	str	13
	line	5813
	colm	24
	synt	any
	invoke	1
	unmark
lab L2
	einit	L1
lab L3
	mark	L23
	mark	L24
	pnull
	line	5815
	colm	7
	synt	any
	pret
lab L24
	synt	any
	pfail
	unmark
lab L23
	pnull
	line	5816
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Set
	local	0,000020,self
	local	1,000020,clone
	local	2,000000,UTF8__UTF8Set__oprec
	local	3,000000,UTF8__UTF8Setinitialize
	local	4,000000,ClassObject__ClassClass__oprec
	local	5,000000,ClassObject__ClassClassinitialize
	local	6,000000,ErrorSystem__ErrorSystem__oprec
	local	7,000000,ErrorSystem__ErrorSysteminitialize
	local	8,000000,UTF8__UTF8Set__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	2
	line	8
	colm	6
	synt	any
	null
	unmark
	var	3
	line	8
	colm	56
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	4
	line	9
	colm	6
	synt	any
	null
	unmark
	var	5
	line	9
	colm	76
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	2
	line	10
	colm	23
	synt	any
	field	ClassObject__ClassClass
	var	4
	line	10
	colm	48
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	6
	line	11
	colm	6
	synt	any
	null
	unmark
	var	7
	line	11
	colm	78
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	2
	line	12
	colm	23
	synt	any
	field	ErrorSystem__ErrorSystem
	var	6
	line	12
	colm	49
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	0
	var	8
	line	14
	colm	32
	synt	any
	keywd	null
	var	2
	line	14
	colm	31
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	0
	line	15
	colm	7
	synt	any
	field	__s
	var	0
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	0
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	0
	pnull
	line	16
	colm	21
	synt	any
	invoke	2
	line	16
	colm	29
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	31
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	0
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc UTF8__UTF8Setinitialize
	local	0,000000,UTF8__UTF8Set__oprec
	local	1,000000,UTF8__UTF8Set__methods
	local	2,000000,UTF8__UTF8Set___Coerce
	local	3,000000,UTF8__UTF8Set___AuxMessage
	local	4,000000,UTF8__UTF8Set_Complement
	local	5,000000,UTF8__UTF8Set_Difference
	local	6,000000,UTF8__UTF8Set_Intersect
	local	7,000000,UTF8__UTF8Set_Union
	local	8,000000,UTF8__UTF8Set_ForEach
	local	9,000000,UTF8__UTF8Set_Size
	local	10,000000,UTF8__UTF8Set_String
	local	11,000000,UTF8__UTF8Set_Subscript
	local	12,000000,UTF8__UTF8Set_Member
	local	13,000000,UTF8__UTF8Set_Space
	local	14,000000,UTF8__UTF8Set_UTF8Spaces
	local	15,000000,UTF8__UTF8Set_Ascii
	local	16,000000,UTF8__UTF8Set_Rparens
	local	17,000000,UTF8__UTF8Set_Lparens
	local	18,000000,UTF8__UTF8Set_All
	local	19,000000,UTF8__UTF8Set_MaxSize
	local	20,000000,UTF8__UTF8Set_Defined
	local	21,000000,UTF8__UTF8Set_initially
	local	22,000000,ClassObject__ClassClass___InitClass
	local	23,000000,ClassObject__ClassClass_SetClass
	local	24,000000,ClassObject__ClassClass_ClassName
	local	25,000000,ClassObject__ClassClass_Addition
	local	26,000000,ClassObject__ClassClass_Divide
	local	27,000000,ClassObject__ClassClass_Minus
	local	28,000000,ClassObject__ClassClass_Modulus
	local	29,000000,ClassObject__ClassClass_Multiply
	local	30,000000,ClassObject__ClassClass_Negate
	local	31,000000,ClassObject__ClassClass_UnaryPlus
	local	32,000000,ClassObject__ClassClass_Power
	local	33,000000,ClassObject__ClassClass_Equals
	local	34,000000,ClassObject__ClassClass_GTorEqual
	local	35,000000,ClassObject__ClassClass_Greater
	local	36,000000,ClassObject__ClassClass_LTorEqual
	local	37,000000,ClassObject__ClassClass_Less
	local	38,000000,ClassObject__ClassClass_Nequal
	local	39,000000,ClassObject__ClassClass_Integer
	local	40,000000,ClassObject__ClassClass_Numeric
	local	41,000000,ClassObject__ClassClass_Real
	local	42,000000,ErrorSystem__ErrorSystem___proc_components
	local	43,000000,ErrorSystem__ErrorSystem_AbortIfDebug
	local	44,000000,ErrorSystem__ErrorSystem_AbortMessage
	local	45,000000,ErrorSystem__ErrorSystem_Caller
	local	46,000000,ErrorSystem__ErrorSystem_CallingComponents
	local	47,000000,ErrorSystem__ErrorSystem_ClassCalling
	local	48,000000,ErrorSystem__ErrorSystem_Debug
	local	49,000000,ErrorSystem__ErrorSystem_DebugMode
	local	50,000000,ErrorSystem__ErrorSystem_ErrorOut
	local	51,000000,ErrorSystem__ErrorSystem_IsOn
	local	52,000000,ErrorSystem__ErrorSystem_MethodCalling
	local	53,000000,ErrorSystem__ErrorSystem_NotInDebugMode
	local	54,000000,ErrorSystem__ErrorSystem_Off
	local	55,000000,ErrorSystem__ErrorSystem_On
	local	56,000000,ErrorSystem__ErrorSystem_PackageCalling
	local	57,000000,ErrorSystem__ErrorSystem_ParamCalling
	local	58,000000,ErrorSystem__ErrorSystem_PrintMessage
	local	59,000000,ErrorSystem__ErrorSystem_ProcedureCalling
	local	60,000000,ErrorSystem__ErrorSystem_StopMessage
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	var	25
	var	26
	var	27
	var	28
	var	29
	var	30
	var	31
	var	32
	var	33
	var	34
	var	35
	var	36
	var	37
	var	38
	var	39
	var	40
	var	41
	var	42
	var	43
	var	44
	var	45
	var	46
	var	47
	var	48
	var	49
	var	50
	var	51
	var	52
	var	53
	var	54
	var	55
	var	56
	var	57
	var	58
	var	59
	var	60
	line	21
	colm	57
	synt	any
	invoke	59
	line	21
	colm	32
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject___DebugPrint
	local	0,001000,self
	local	1,001000,modifier
	local	2,001000,val
	local	3,001000,uset
	local	4,000000,ximage
	con	0,010000,1,040
	con	1,010000,0
	con	2,010000,13,163,145,154,146,056,137,137,141,154,154,143,160,072
	con	3,010000,1,012
	con	4,010000,12,163,145,154,146,056,137,137,143,163,145,164,072
	con	5,010000,17,163,145,154,146,056,137,137,062,142,171,164,145,144,141,164,141,072
	con	6,010000,17,163,145,154,146,056,137,137,063,142,171,164,145,144,141,164,141,072
	con	7,010000,17,163,145,154,146,056,137,137,064,142,171,164,145,144,141,164,141,072
	con	8,010000,15,163,145,154,146,056,137,137,156,145,147,141,164,145,144,072
	con	9,010000,38,163,145,154,146,056,137,137,163,164,162,151,156,147,137,162,145,160,162,145,163,145,156,164,141,164,151,157,156,056,123,164,162,151,156,147,050,051,072
	con	10,010000,12,166,141,154,056,137,137,141,154,154,143,160,072
	con	11,010000,11,166,141,154,056,137,137,143,163,145,164,072
	con	12,010000,16,166,141,154,056,137,137,062,142,171,164,145,144,141,164,141,072
	con	13,010000,16,166,141,154,056,137,137,063,142,171,164,145,144,141,164,141,072
	con	14,010000,16,166,141,154,056,137,137,064,142,171,164,145,144,141,164,141,072
	con	15,010000,14,166,141,154,056,137,137,156,145,147,141,164,145,144,072
	con	16,010000,37,166,141,154,056,137,137,163,164,162,151,156,147,137,162,145,160,162,145,163,145,156,164,141,164,151,157,156,056,123,164,162,151,156,147,050,051,072
	con	17,010000,13,165,163,145,164,056,137,137,141,154,154,143,160,072
	con	18,010000,12,165,163,145,164,056,137,137,143,163,145,164,072
	con	19,010000,17,165,163,145,164,056,137,137,062,142,171,164,145,144,141,164,141,072
	con	20,010000,17,165,163,145,164,056,137,137,063,142,171,164,145,144,141,164,141,072
	con	21,010000,17,165,163,145,164,056,137,137,064,142,171,164,145,144,141,164,141,072
	con	22,010000,15,165,163,145,164,056,137,137,156,145,147,141,164,145,144,072
	con	23,010000,38,165,163,145,164,056,137,137,163,164,162,151,156,147,137,162,145,160,162,145,163,145,156,164,141,164,151,157,156,056,123,164,162,151,156,147,050,051,072
	declend
	filen	utf8.icn
	line	5867
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	5873
	colm	9
	synt	any
	nonnull
	pnull
	var	1
	str	0
	line	5873
	colm	31
	synt	any
	cat
	line	5873
	colm	19
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	5882
	colm	9
	synt	any
	null
	str	1
	line	5882
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	0
	line	5884
	colm	13
	synt	any
	field	DebugPrint
	var	1
	str	2
	var	4
	pnull
	var	0
	line	5884
	colm	61
	synt	any
	field	__allcp
	line	5884
	colm	56
	synt	any
	invoke	1
	str	3
	var	1
	str	4
	var	4
	pnull
	var	0
	line	5885
	colm	59
	synt	any
	field	__cset
	line	5885
	colm	54
	synt	any
	invoke	1
	str	3
	var	1
	str	5
	var	4
	pnull
	var	0
	line	5886
	colm	64
	synt	any
	field	__2bytedata
	line	5886
	colm	59
	synt	any
	invoke	1
	str	3
	var	1
	str	6
	var	4
	pnull
	var	0
	line	5887
	colm	64
	synt	any
	field	__3bytedata
	line	5887
	colm	59
	synt	any
	invoke	1
	str	3
	var	1
	str	7
	var	4
	pnull
	var	0
	line	5888
	colm	64
	synt	any
	field	__4bytedata
	line	5888
	colm	59
	synt	any
	invoke	1
	str	3
	var	1
	str	8
	var	4
	pnull
	var	0
	line	5889
	colm	62
	synt	any
	field	__negated
	line	5889
	colm	57
	synt	any
	invoke	1
	str	3
	var	1
	str	9
	pnull
	pnull
	var	0
	line	5890
	colm	76
	synt	any
	field	__string_representation
	line	5890
	colm	100
	synt	any
	field	String
	line	5890
	colm	107
	synt	any
	invoke	0
	str	3
	var	1
	str	10
	var	4
	pnull
	var	2
	line	5891
	colm	58
	synt	any
	field	__allcp
	line	5891
	colm	54
	synt	any
	invoke	1
	str	3
	var	1
	str	11
	var	4
	pnull
	var	2
	line	5892
	colm	57
	synt	any
	field	__cset
	line	5892
	colm	53
	synt	any
	invoke	1
	str	3
	var	1
	str	12
	var	4
	pnull
	var	2
	line	5893
	colm	62
	synt	any
	field	__2bytedata
	line	5893
	colm	58
	synt	any
	invoke	1
	str	3
	var	1
	str	13
	var	4
	pnull
	var	2
	line	5894
	colm	62
	synt	any
	field	__3bytedata
	line	5894
	colm	58
	synt	any
	invoke	1
	str	3
	var	1
	str	14
	var	4
	pnull
	var	2
	line	5895
	colm	62
	synt	any
	field	__4bytedata
	line	5895
	colm	58
	synt	any
	invoke	1
	str	3
	var	1
	str	15
	var	4
	pnull
	var	2
	line	5896
	colm	60
	synt	any
	field	__negated
	line	5896
	colm	56
	synt	any
	invoke	1
	str	3
	var	1
	str	16
	pnull
	pnull
	var	2
	line	5897
	colm	74
	synt	any
	field	__string_representation
	line	5897
	colm	98
	synt	any
	field	String
	line	5897
	colm	105
	synt	any
	invoke	0
	str	3
	var	1
	str	17
	var	4
	pnull
	var	3
	line	5898
	colm	60
	synt	any
	field	__allcp
	line	5898
	colm	55
	synt	any
	invoke	1
	str	3
	var	1
	str	18
	var	4
	pnull
	var	3
	line	5899
	colm	59
	synt	any
	field	__cset
	line	5899
	colm	54
	synt	any
	invoke	1
	str	3
	var	1
	str	19
	var	4
	pnull
	var	3
	line	5900
	colm	64
	synt	any
	field	__2bytedata
	line	5900
	colm	59
	synt	any
	invoke	1
	str	3
	var	1
	str	20
	var	4
	pnull
	var	3
	line	5901
	colm	64
	synt	any
	field	__3bytedata
	line	5901
	colm	59
	synt	any
	invoke	1
	str	3
	var	1
	str	21
	var	4
	pnull
	var	3
	line	5902
	colm	64
	synt	any
	field	__4bytedata
	line	5902
	colm	59
	synt	any
	invoke	1
	str	3
	var	1
	str	22
	var	4
	pnull
	var	3
	line	5903
	colm	62
	synt	any
	field	__negated
	line	5903
	colm	57
	synt	any
	invoke	1
	str	3
	var	1
	str	23
	pnull
	pnull
	var	3
	line	5904
	colm	76
	synt	any
	field	__string_representation
	line	5904
	colm	100
	synt	any
	field	String
	line	5904
	colm	107
	synt	any
	invoke	0
	line	5884
	colm	24
	synt	any
	invoke	83
	unmark
lab L3
	pnull
	line	5905
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_Equiv
	local	0,001000,self
	local	1,001000,uset
	local	2,000000,image
	local	3,000000,ClassObject__IsObjectOf
	local	4,000000,equiv
	con	0,010000,7,125,164,146,070,123,145,164
	declend
	line	5910
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5911
	colm	9
	synt	any
	null
	pop
	line	5911
	colm	17
	synt	any
	pfail
	unmark
lab L1
	mark	L2
	mark	L3
	line	5912
	colm	16
	synt	ifelse
	mark	L4
	pnull
	var	2
	var	0
	line	5912
	colm	26
	synt	any
	invoke	1
	var	2
	var	1
	line	5912
	colm	43
	synt	any
	invoke	1
	line	5912
	colm	33
	synt	any
	lexeq
	unmark
	mark	L6
	var	1
	line	5913
	colm	13
	synt	any
	pret
lab L6
	synt	any
	pfail
	goto	L5
lab L4
	line	5914
	colm	16
	synt	ifelse
	mark	L7
	var	3
	var	1
	str	0
	line	5914
	colm	42
	synt	any
	invoke	2
	unmark
	mark	L9
	mark	L10
	pnull
	pnull
	var	0
	line	5915
	colm	17
	synt	any
	field	__allcp
	pnull
	var	1
	line	5915
	colm	34
	synt	any
	field	__allcp
	line	5915
	colm	26
	synt	any
	eqv
	line	5915
	colm	43
	synt	any
	esusp
	goto	L11
lab L10
	line	5915
	colm	45
	synt	any
	pfail
lab L11
	unmark
lab L9
	mark	L12
	mark	L13
	pnull
	pnull
	var	0
	line	5916
	colm	17
	synt	any
	field	__negated
	pnull
	var	1
	line	5916
	colm	36
	synt	any
	field	__negated
	line	5916
	colm	28
	synt	any
	eqv
	line	5916
	colm	47
	synt	any
	esusp
	goto	L14
lab L13
	line	5916
	colm	49
	synt	any
	pfail
lab L14
	unmark
lab L12
	mark	L15
	mark	L16
	var	4
	pnull
	var	0
	line	5917
	colm	23
	synt	any
	field	__cset
	pnull
	var	1
	line	5917
	colm	36
	synt	any
	field	__cset
	line	5917
	colm	18
	synt	any
	invoke	2
	line	5917
	colm	45
	synt	any
	esusp
	goto	L17
lab L16
	line	5917
	colm	47
	synt	any
	pfail
lab L17
	unmark
lab L15
	mark	L18
	mark	L19
	var	4
	pnull
	var	0
	line	5918
	colm	23
	synt	any
	field	__2bytedata
	pnull
	var	1
	line	5918
	colm	41
	synt	any
	field	__2bytedata
	line	5918
	colm	18
	synt	any
	invoke	2
	line	5918
	colm	55
	synt	any
	esusp
	goto	L20
lab L19
	line	5918
	colm	57
	synt	any
	pfail
lab L20
	unmark
lab L18
	mark	L21
	mark	L22
	var	4
	pnull
	var	0
	line	5919
	colm	23
	synt	any
	field	__3bytedata
	pnull
	var	1
	line	5919
	colm	41
	synt	any
	field	__3bytedata
	line	5919
	colm	18
	synt	any
	invoke	2
	line	5919
	colm	55
	synt	any
	esusp
	goto	L23
lab L22
	line	5919
	colm	57
	synt	any
	pfail
lab L23
	unmark
lab L21
	mark	L24
	mark	L25
	var	4
	pnull
	var	0
	line	5920
	colm	23
	synt	any
	field	__4bytedata
	pnull
	var	1
	line	5920
	colm	41
	synt	any
	field	__4bytedata
	line	5920
	colm	18
	synt	any
	invoke	2
	line	5920
	colm	55
	synt	any
	esusp
	goto	L26
lab L25
	line	5920
	colm	57
	synt	any
	pfail
lab L26
	unmark
lab L24
	mark	L27
	var	1
	line	5921
	colm	13
	synt	any
	pret
lab L27
	synt	any
	pfail
	goto	L8
lab L7
	line	5923
	colm	13
	synt	any
	pfail
lab L8
	line	5914
	colm	16
	synt	endifelse
lab L5
	line	5912
	colm	16
	synt	endifelse
	line	5912
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5925
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_Nequiv
	local	0,001000,self
	local	1,001000,uset
	declend
	line	5927
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5928
	colm	9
	synt	any
	null
	pop
	line	5928
	colm	17
	synt	any
	pfail
	unmark
lab L1
	mark	L2
	mark	L3
	mark	L4
	pnull
	var	0
	line	5929
	colm	24
	synt	any
	field	Equiv
	var	1
	line	5929
	colm	30
	synt	any
	invoke	1
	unmark
	efail
lab L4
	pnull
	pop
	var	1
	line	5929
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5930
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_LexEquals
	local	0,001000,self
	local	1,001000,str
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8Set
	local	4,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5935
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5936
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5936
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5936
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5936
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5937
	colm	42
	synt	any
	field	__AuxMessage
	int	0
	line	5937
	colm	55
	synt	any
	invoke	1
	line	5936
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	4
	line	5939
	colm	26
	synt	any
	field	LexEquals
	pnull
	var	0
	line	5939
	colm	41
	synt	any
	field	UTF8Value
	line	5939
	colm	51
	synt	any
	invoke	0
	var	1
	line	5939
	colm	36
	synt	any
	invoke	2
	line	5939
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5940
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_LexGTorEq
	local	0,001000,self
	local	1,001000,str
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8Set
	local	4,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5945
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5946
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5946
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5946
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5946
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5947
	colm	42
	synt	any
	field	__AuxMessage
	int	0
	line	5947
	colm	55
	synt	any
	invoke	1
	line	5946
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	4
	line	5949
	colm	26
	synt	any
	field	LexGTorEq
	pnull
	var	0
	line	5949
	colm	41
	synt	any
	field	UTF8Value
	line	5949
	colm	51
	synt	any
	invoke	0
	var	1
	line	5949
	colm	36
	synt	any
	invoke	2
	line	5949
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5950
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_LexGT
	local	0,001000,self
	local	1,001000,str
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8Set
	local	4,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5955
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5956
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5956
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5956
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5956
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5957
	colm	42
	synt	any
	field	__AuxMessage
	int	0
	line	5957
	colm	55
	synt	any
	invoke	1
	line	5956
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	4
	line	5959
	colm	26
	synt	any
	field	LexGT
	pnull
	var	0
	line	5959
	colm	37
	synt	any
	field	UTF8Value
	line	5959
	colm	47
	synt	any
	invoke	0
	var	1
	line	5959
	colm	32
	synt	any
	invoke	2
	line	5959
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5960
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_LexLTorEq
	local	0,001000,self
	local	1,001000,str
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8Set
	local	4,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5965
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5966
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5966
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5966
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5966
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5967
	colm	42
	synt	any
	field	__AuxMessage
	int	0
	line	5967
	colm	55
	synt	any
	invoke	1
	line	5966
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	4
	line	5969
	colm	26
	synt	any
	field	LexLTorEq
	pnull
	var	0
	line	5969
	colm	41
	synt	any
	field	UTF8Value
	line	5969
	colm	51
	synt	any
	invoke	0
	var	1
	line	5969
	colm	36
	synt	any
	invoke	2
	line	5969
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5970
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_LexLT
	local	0,001000,self
	local	1,001000,str
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8Set
	local	4,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5975
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5976
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5976
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5976
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5976
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5977
	colm	42
	synt	any
	field	__AuxMessage
	int	0
	line	5977
	colm	55
	synt	any
	invoke	1
	line	5976
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	4
	line	5979
	colm	26
	synt	any
	field	LexLT
	pnull
	var	0
	line	5979
	colm	37
	synt	any
	field	UTF8Value
	line	5979
	colm	47
	synt	any
	invoke	0
	var	1
	line	5979
	colm	32
	synt	any
	invoke	2
	line	5979
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5980
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_LexNE
	local	0,001000,self
	local	1,001000,str
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8Set
	local	4,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	5985
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	5986
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	5986
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	5986
	colm	45
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	5986
	colm	65
	synt	any
	invoke	3
	pnull
	var	3
	line	5987
	colm	42
	synt	any
	field	__AuxMessage
	int	0
	line	5987
	colm	55
	synt	any
	invoke	1
	line	5986
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	4
	line	5989
	colm	26
	synt	any
	field	LexNE
	pnull
	var	0
	line	5989
	colm	37
	synt	any
	field	UTF8Value
	line	5989
	colm	47
	synt	any
	invoke	0
	var	1
	line	5989
	colm	32
	synt	any
	invoke	2
	line	5989
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	5990
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_Complement
	local	0,001000,self
	local	1,000020,cnt
	local	2,000020,temp
	local	3,000020,data
	local	4,000000,image
	local	5,000000,ximage
	local	6,000000,UTF8__UTF8Set
	local	7,000000,sort
	local	8,000000,UTF8__UTF8
	con	0,010000,5,163,145,154,146,072
	con	1,010000,9,012,137,137,141,154,154,143,160,072
	con	2,010000,11,012,137,137,156,145,147,141,164,145,144,072
	con	3,010000,8,012,137,137,143,163,145,164,072
	con	4,010000,13,012,137,137,062,142,171,164,145,144,141,164,141,072
	con	5,010000,13,012,137,137,063,142,171,164,145,144,141,164,141,072
	con	6,010000,13,012,137,137,064,142,171,164,145,144,141,164,141,072
	con	7,010000,25,012,137,137,163,164,162,151,156,147,137,162,145,160,162,145,163,145,156,164,141,164,151,157,156,072
	con	8,010000,0
	con	9,002000,1,0
	con	10,002000,1,1
	con	11,010000,53,055,055,040,106,165,154,154,040,125,124,106,055,070,040,143,157,144,145,160,157,151,156,164,040,163,145,164,040,050,061,054,061,061,062,054,060,066,064,040,143,157,144,145,160,157,151,156,164,163,051,040,055,055
	con	12,010000,32,055,055,040,101,154,154,040,125,124,106,055,070,040,143,157,144,145,160,157,151,156,164,163,040,145,170,143,145,160,164,040,050
	con	13,010000,4,051,040,055,055
	con	14,010000,5,164,145,155,160,072
	con	15,010000,14,012,164,145,155,160,056,137,137,141,154,154,143,160,072
	con	16,010000,16,012,164,145,155,160,056,137,137,156,145,147,141,164,145,144,072
	con	17,010000,13,012,164,145,155,160,056,137,137,143,163,145,164,072
	con	18,010000,18,012,164,145,155,160,056,137,137,063,142,171,164,145,144,141,164,141,072
	con	19,010000,18,012,164,145,155,160,056,137,137,064,142,171,164,145,144,141,164,141,072
	con	20,010000,30,012,164,145,155,160,056,137,137,163,164,162,151,156,147,137,162,145,160,162,145,163,145,156,164,141,164,151,157,156,072
	declend
	line	5992
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	5998
	colm	13
	synt	any
	field	DebugPrint
	str	0
	var	4
	var	0
	line	5998
	colm	38
	synt	any
	invoke	1
	str	1
	var	4
	pnull
	var	0
	line	5998
	colm	70
	synt	any
	field	__allcp
	line	5998
	colm	65
	synt	any
	invoke	1
	str	2
	var	4
	pnull
	var	0
	line	5998
	colm	105
	synt	any
	field	__negated
	line	5998
	colm	100
	synt	any
	invoke	1
	str	3
	var	5
	pnull
	var	0
	line	5999
	colm	46
	synt	any
	field	__cset
	line	5999
	colm	41
	synt	any
	invoke	1
	str	4
	var	5
	pnull
	var	0
	line	5999
	colm	83
	synt	any
	field	__2bytedata
	line	5999
	colm	78
	synt	any
	invoke	1
	str	5
	var	5
	pnull
	var	0
	line	6000
	colm	51
	synt	any
	field	__3bytedata
	line	6000
	colm	46
	synt	any
	invoke	1
	str	6
	var	5
	pnull
	var	0
	line	6000
	colm	93
	synt	any
	field	__4bytedata
	line	6000
	colm	88
	synt	any
	invoke	1
	str	7
	var	4
	pnull
	pnull
	var	0
	line	6001
	colm	62
	synt	any
	field	__string_representation
	line	6001
	colm	86
	synt	any
	field	String
	line	6001
	colm	93
	synt	any
	invoke	0
	line	6001
	colm	57
	synt	any
	invoke	1
	line	5998
	colm	24
	synt	any
	invoke	16
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	6
	line	6010
	colm	30
	synt	any
	field	New
	str	8
	line	6010
	colm	34
	synt	any
	invoke	1
	line	6010
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	1
	pnull
	pnull
	pnull
	pnull
	pnull
	var	0
	line	6011
	colm	21
	synt	any
	field	__cset
	line	6011
	colm	16
	synt	any
	size
	pnull
	pnull
	var	0
	line	6011
	colm	34
	synt	any
	field	__2bytedata
	line	6011
	colm	29
	synt	any
	size
	line	6011
	colm	28
	synt	any
	plus
	pnull
	pnull
	var	0
	line	6011
	colm	52
	synt	any
	field	__3bytedata
	line	6011
	colm	47
	synt	any
	size
	line	6011
	colm	46
	synt	any
	plus
	pnull
	pnull
	var	0
	line	6011
	colm	70
	synt	any
	field	__4bytedata
	line	6011
	colm	65
	synt	any
	size
	line	6011
	colm	64
	synt	any
	plus
	line	6011
	colm	13
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	6012
	colm	9
	synt	ifelse
	mark	L5
	pnull
	var	1
	int	9
	line	6012
	colm	16
	synt	any
	numeq
	unmark
	mark	L7
	pnull
	pnull
	var	2
	line	6013
	colm	17
	synt	any
	field	__negated
	line	6013
	colm	31
	synt	any
	keywd	null
	line	6013
	colm	28
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	line	6014
	colm	17
	synt	any
	field	__allcp
	mark	L9
	pnull
	pnull
	var	0
	line	6014
	colm	35
	synt	any
	field	__allcp
	line	6014
	colm	30
	synt	any
	nonnull
	pop
	line	6014
	colm	46
	synt	any
	keywd	null
	line	6014
	colm	53
	synt	any
	esusp
	goto	L10
lab L9
	int	10
lab L10
	line	6014
	colm	26
	synt	any
	asgn
	unmark
lab L8
	pnull
	pnull
	var	2
	line	6015
	colm	17
	synt	any
	field	__string_representation
	pnull
	var	6
	line	6015
	colm	58
	synt	any
	field	SpecialString
	mark	L11
	pnull
	pnull
	var	0
	line	6015
	colm	79
	synt	any
	field	__allcp
	line	6015
	colm	74
	synt	any
	nonnull
	pop
	str	11
	line	6015
	colm	144
	synt	any
	esusp
	goto	L12
lab L11
	str	8
lab L12
	line	6015
	colm	72
	synt	any
	invoke	1
	line	6015
	colm	42
	synt	any
	asgn
	goto	L6
lab L5
	mark	L13
	pnull
	pnull
	var	2
	line	6018
	colm	17
	synt	any
	field	__allcp
	line	6018
	colm	29
	synt	any
	keywd	null
	line	6018
	colm	26
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	2
	line	6019
	colm	17
	synt	any
	field	__negated
	mark	L15
	pnull
	pnull
	var	0
	line	6019
	colm	37
	synt	any
	field	__negated
	line	6019
	colm	32
	synt	any
	nonnull
	pop
	line	6019
	colm	50
	synt	any
	keywd	null
	line	6019
	colm	57
	synt	any
	esusp
	goto	L16
lab L15
	int	10
lab L16
	line	6019
	colm	28
	synt	any
	asgn
	unmark
lab L14
	mark	L17
	pnull
	pnull
	var	2
	line	6020
	colm	17
	synt	any
	field	__cset
	pnull
	var	0
	line	6020
	colm	32
	synt	any
	field	__cset
	line	6020
	colm	25
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	pnull
	var	2
	line	6021
	colm	17
	synt	any
	field	__2bytedata
	pnull
	var	0
	line	6021
	colm	37
	synt	any
	field	__2bytedata
	line	6021
	colm	30
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	pnull
	var	2
	line	6022
	colm	17
	synt	any
	field	__3bytedata
	pnull
	var	0
	line	6022
	colm	37
	synt	any
	field	__3bytedata
	line	6022
	colm	30
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	pnull
	var	2
	line	6023
	colm	17
	synt	any
	field	__4bytedata
	pnull
	var	0
	line	6023
	colm	37
	synt	any
	field	__4bytedata
	line	6023
	colm	30
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	var	3
	str	8
	line	6024
	colm	18
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	line	6025
	colm	13
	synt	every
	mark0
	pnull
	var	3
	dup
	pnull
	var	7
	pnull
	pnull
	pnull
	pnull
	var	2
	line	6025
	colm	41
	synt	any
	field	__cset
	pnull
	var	2
	line	6025
	colm	56
	synt	any
	field	__2bytedata
	line	6025
	colm	49
	synt	any
	unions
	pnull
	var	2
	line	6025
	colm	76
	synt	any
	field	__3bytedata
	line	6025
	colm	69
	synt	any
	unions
	pnull
	var	2
	line	6025
	colm	96
	synt	any
	field	__4bytedata
	line	6025
	colm	89
	synt	any
	unions
	line	6025
	colm	36
	synt	any
	invoke	1
	line	6025
	colm	29
	synt	any
	bang
	line	6025
	colm	24
	synt	any
	cat
	asgn
	pop
lab L23
	efail
lab L24
	line	6025
	colm	13
	synt	endevery
	unmark
lab L22
	pnull
	pnull
	var	2
	line	6026
	colm	17
	synt	any
	field	__string_representation
	pnull
	var	8
	line	6026
	colm	55
	synt	any
	field	New
	mark	L25
	pnull
	pnull
	var	2
	line	6026
	colm	66
	synt	any
	field	__negated
	line	6026
	colm	61
	synt	any
	nonnull
	pop
	pnull
	pnull
	str	12
	var	3
	line	6026
	colm	114
	synt	any
	cat
	str	13
	line	6026
	colm	122
	synt	any
	cat
	line	6026
	colm	133
	synt	any
	esusp
	goto	L26
lab L25
	var	3
lab L26
	line	6026
	colm	59
	synt	any
	invoke	1
	line	6026
	colm	42
	synt	any
	asgn
lab L6
	line	6012
	colm	9
	synt	endifelse
	unmark
lab L4
	mark	L27
	pnull
	var	0
	line	6029
	colm	13
	synt	any
	field	DebugPrint
	str	14
	var	4
	var	2
	line	6029
	colm	38
	synt	any
	invoke	1
	str	15
	var	4
	pnull
	var	2
	line	6029
	colm	75
	synt	any
	field	__allcp
	line	6029
	colm	70
	synt	any
	invoke	1
	str	16
	var	4
	pnull
	var	2
	line	6029
	colm	119
	synt	any
	field	__negated
	line	6029
	colm	114
	synt	any
	invoke	1
	str	17
	var	5
	pnull
	var	2
	line	6030
	colm	51
	synt	any
	field	__cset
	line	6030
	colm	46
	synt	any
	invoke	1
	str	4
	var	5
	pnull
	var	2
	line	6030
	colm	92
	synt	any
	field	__2bytedata
	line	6030
	colm	87
	synt	any
	invoke	1
	str	18
	var	5
	pnull
	var	2
	line	6031
	colm	56
	synt	any
	field	__3bytedata
	line	6031
	colm	51
	synt	any
	invoke	1
	str	19
	var	5
	pnull
	var	2
	line	6031
	colm	107
	synt	any
	field	__4bytedata
	line	6031
	colm	102
	synt	any
	invoke	1
	str	20
	var	4
	pnull
	pnull
	var	2
	line	6032
	colm	67
	synt	any
	field	__string_representation
	line	6032
	colm	91
	synt	any
	field	String
	line	6032
	colm	98
	synt	any
	invoke	0
	line	6032
	colm	62
	synt	any
	invoke	1
	line	6029
	colm	24
	synt	any
	invoke	16
	unmark
lab L27
	mark	L28
	mark	L29
	var	2
	line	6034
	colm	9
	synt	any
	pret
lab L29
	synt	any
	pfail
	unmark
lab L28
	pnull
	line	6035
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_Difference
	local	0,001000,self
	local	1,001000,val
	local	2,000020,local_val
	local	3,000020,uset
	local	4,000020,temp
	local	5,000000,keyword
	local	6,000000,UTF8__UTF8Set
	local	7,000000,image
	local	8,000000,sort
	local	9,000000,UTF8__UTF8
	con	0,002000,3,114
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,0
	con	5,010000,16,050,101,051,163,145,154,146,056,137,137,141,154,154,143,160,072
	con	6,010000,19,040,154,157,143,141,154,137,166,141,154,056,137,137,141,154,154,143,160,072
	con	7,010000,32,055,055,040,101,154,154,040,125,124,106,055,070,040,143,157,144,145,160,157,151,156,164,163,040,145,170,143,145,160,164,040,050
	con	8,010000,4,051,040,055,055
	con	9,010000,16,050,102,051,163,145,154,146,056,137,137,141,154,154,143,160,072
	con	10,010000,16,040,163,145,154,146,056,137,137,156,145,147,141,164,145,144,072
	con	11,010000,19,012,154,157,143,141,154,137,166,141,154,056,137,137,141,154,154,143,160,072
	con	12,010000,21,040,154,157,143,141,154,137,166,141,154,056,137,137,156,145,147,141,164,145,144,072
	con	13,010000,16,050,103,051,163,145,154,146,056,137,137,141,154,154,143,160,072
	declend
	line	6037
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	6051
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	6051
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	6051
	colm	45
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	6051
	colm	65
	synt	any
	invoke	3
	pnull
	var	6
	line	6052
	colm	42
	synt	any
	field	__AuxMessage
	int	0
	line	6052
	colm	55
	synt	any
	invoke	1
	line	6051
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	6
	line	6054
	colm	35
	synt	any
	field	__Coerce
	var	1
	line	6054
	colm	44
	synt	any
	invoke	1
	line	6054
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	6
	line	6055
	colm	30
	synt	any
	field	New
	str	4
	line	6055
	colm	34
	synt	any
	invoke	1
	line	6055
	colm	14
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	0
	line	6057
	colm	13
	synt	any
	field	__DebugPrint
	pnull
	var	2
	var	3
	line	6057
	colm	26
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	line	6081
	colm	9
	synt	ifelse
	mark	L6
	mark	L8
	pnull
	pnull
	var	0
	line	6081
	colm	18
	synt	any
	field	__allcp
	line	6081
	colm	13
	synt	any
	nonnull
	line	6081
	colm	27
	synt	any
	esusp
	goto	L9
lab L8
	pnull
	pnull
	var	2
	line	6081
	colm	39
	synt	any
	field	__allcp
	line	6081
	colm	29
	synt	any
	nonnull
lab L9
	unmark
	mark	L10
	pnull
	var	0
	line	6083
	colm	17
	synt	any
	field	DebugPrint
	str	5
	var	7
	pnull
	var	0
	line	6083
	colm	58
	synt	any
	field	__allcp
	line	6083
	colm	53
	synt	any
	invoke	1
	str	6
	var	7
	pnull
	var	2
	line	6083
	colm	105
	synt	any
	field	__allcp
	line	6083
	colm	95
	synt	any
	invoke	1
	line	6083
	colm	28
	synt	any
	invoke	4
	unmark
lab L10
	line	6085
	colm	13
	synt	ifelse
	mark	L11
	pnull
	pnull
	var	0
	line	6085
	colm	21
	synt	any
	field	__allcp
	line	6085
	colm	16
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	2
	line	6085
	colm	42
	synt	any
	field	__allcp
	line	6085
	colm	32
	synt	any
	null
	unmark
	mark	L13
	pnull
	pnull
	var	3
	line	6086
	colm	21
	synt	any
	field	__allcp
	line	6086
	colm	33
	synt	any
	keywd	null
	line	6086
	colm	30
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	3
	line	6087
	colm	21
	synt	any
	field	__negated
	int	2
	line	6087
	colm	32
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	3
	line	6088
	colm	21
	synt	any
	field	__cset
	pnull
	var	2
	line	6088
	colm	41
	synt	any
	field	__cset
	line	6088
	colm	29
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	pnull
	var	3
	line	6089
	colm	21
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6089
	colm	46
	synt	any
	field	__2bytedata
	line	6089
	colm	34
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	pnull
	var	3
	line	6090
	colm	21
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6090
	colm	46
	synt	any
	field	__3bytedata
	line	6090
	colm	34
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	pnull
	var	3
	line	6091
	colm	21
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6091
	colm	46
	synt	any
	field	__4bytedata
	line	6091
	colm	34
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	var	4
	str	4
	line	6092
	colm	22
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	line	6093
	colm	17
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	8
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6093
	colm	45
	synt	any
	field	__cset
	pnull
	var	3
	line	6093
	colm	60
	synt	any
	field	__2bytedata
	line	6093
	colm	53
	synt	any
	unions
	pnull
	var	3
	line	6093
	colm	80
	synt	any
	field	__3bytedata
	line	6093
	colm	73
	synt	any
	unions
	pnull
	var	3
	line	6093
	colm	100
	synt	any
	field	__4bytedata
	line	6093
	colm	93
	synt	any
	unions
	line	6093
	colm	40
	synt	any
	invoke	1
	line	6093
	colm	33
	synt	any
	bang
	line	6093
	colm	28
	synt	any
	cat
	asgn
	pop
lab L21
	efail
lab L22
	line	6093
	colm	17
	synt	endevery
	unmark
lab L20
	pnull
	pnull
	var	3
	line	6094
	colm	21
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6094
	colm	59
	synt	any
	field	New
	pnull
	pnull
	str	7
	var	4
	line	6094
	colm	99
	synt	any
	cat
	str	8
	line	6094
	colm	107
	synt	any
	cat
	line	6094
	colm	63
	synt	any
	invoke	1
	line	6094
	colm	46
	synt	any
	asgn
	goto	L12
lab L11
	mark	L23
	pnull
	pnull
	var	3
	line	6097
	colm	21
	synt	any
	field	__allcp
	line	6097
	colm	33
	synt	any
	keywd	null
	line	6097
	colm	30
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	pnull
	pnull
	var	3
	line	6098
	colm	21
	synt	any
	field	__negated
	line	6098
	colm	35
	synt	any
	keywd	null
	line	6098
	colm	32
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	pnull
	var	4
	str	4
	line	6099
	colm	22
	synt	any
	asgn
	unmark
lab L25
	pnull
	pnull
	var	3
	line	6100
	colm	21
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6100
	colm	59
	synt	any
	field	SpecialString
	var	4
	line	6100
	colm	73
	synt	any
	invoke	1
	line	6100
	colm	46
	synt	any
	asgn
lab L12
	line	6085
	colm	13
	synt	endifelse
	goto	L7
lab L6
	line	6103
	colm	16
	synt	ifelse
	mark	L26
	pnull
	pnull
	var	0
	line	6103
	colm	24
	synt	any
	field	__allcp
	line	6103
	colm	19
	synt	any
	null
	pop
	pnull
	pnull
	var	0
	line	6103
	colm	40
	synt	any
	field	__negated
	line	6103
	colm	35
	synt	any
	null
	pop
	pnull
	pnull
	var	2
	line	6103
	colm	63
	synt	any
	field	__allcp
	line	6103
	colm	53
	synt	any
	null
	pop
	pnull
	pnull
	var	2
	line	6103
	colm	84
	synt	any
	field	__negated
	line	6103
	colm	74
	synt	any
	null
	unmark
	mark	L28
	pnull
	var	0
	line	6105
	colm	17
	synt	any
	field	DebugPrint
	str	9
	var	7
	pnull
	var	0
	line	6105
	colm	58
	synt	any
	field	__allcp
	line	6105
	colm	53
	synt	any
	invoke	1
	str	10
	var	7
	pnull
	var	0
	line	6105
	colm	97
	synt	any
	field	__negated
	line	6105
	colm	92
	synt	any
	invoke	1
	str	11
	var	7
	pnull
	var	2
	line	6106
	colm	63
	synt	any
	field	__allcp
	line	6106
	colm	53
	synt	any
	invoke	1
	str	12
	var	7
	pnull
	var	2
	line	6106
	colm	114
	synt	any
	field	__negated
	line	6106
	colm	104
	synt	any
	invoke	1
	line	6105
	colm	28
	synt	any
	invoke	8
	unmark
lab L28
	mark	L29
	pnull
	pnull
	var	3
	line	6108
	colm	17
	synt	any
	field	__allcp
	line	6108
	colm	29
	synt	any
	keywd	null
	line	6108
	colm	26
	synt	any
	asgn
	unmark
lab L29
	mark	L30
	pnull
	pnull
	var	3
	line	6109
	colm	17
	synt	any
	field	__negated
	line	6109
	colm	31
	synt	any
	keywd	null
	line	6109
	colm	28
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	pnull
	pnull
	var	3
	line	6110
	colm	17
	synt	any
	field	__cset
	pnull
	pnull
	var	0
	line	6110
	colm	32
	synt	any
	field	__cset
	pnull
	var	2
	line	6110
	colm	52
	synt	any
	field	__cset
	line	6110
	colm	40
	synt	any
	diff
	line	6110
	colm	25
	synt	any
	asgn
	unmark
lab L31
	mark	L32
	pnull
	pnull
	var	3
	line	6111
	colm	17
	synt	any
	field	__2bytedata
	pnull
	pnull
	var	0
	line	6111
	colm	37
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6111
	colm	62
	synt	any
	field	__2bytedata
	line	6111
	colm	50
	synt	any
	diff
	line	6111
	colm	30
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	pnull
	pnull
	var	3
	line	6112
	colm	17
	synt	any
	field	__3bytedata
	pnull
	pnull
	var	0
	line	6112
	colm	37
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6112
	colm	62
	synt	any
	field	__3bytedata
	line	6112
	colm	50
	synt	any
	diff
	line	6112
	colm	30
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	pnull
	pnull
	var	3
	line	6113
	colm	17
	synt	any
	field	__4bytedata
	pnull
	pnull
	var	0
	line	6113
	colm	37
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6113
	colm	62
	synt	any
	field	__4bytedata
	line	6113
	colm	50
	synt	any
	diff
	line	6113
	colm	30
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	pnull
	var	4
	str	4
	line	6114
	colm	18
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	line	6115
	colm	13
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	8
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6115
	colm	41
	synt	any
	field	__cset
	pnull
	var	3
	line	6115
	colm	56
	synt	any
	field	__2bytedata
	line	6115
	colm	49
	synt	any
	unions
	pnull
	var	3
	line	6115
	colm	76
	synt	any
	field	__3bytedata
	line	6115
	colm	69
	synt	any
	unions
	pnull
	var	3
	line	6115
	colm	96
	synt	any
	field	__4bytedata
	line	6115
	colm	89
	synt	any
	unions
	line	6115
	colm	36
	synt	any
	invoke	1
	line	6115
	colm	29
	synt	any
	bang
	line	6115
	colm	24
	synt	any
	cat
	asgn
	pop
lab L37
	efail
lab L38
	line	6115
	colm	13
	synt	endevery
	unmark
lab L36
	pnull
	pnull
	var	3
	line	6116
	colm	17
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6116
	colm	55
	synt	any
	field	New
	var	4
	line	6116
	colm	59
	synt	any
	invoke	1
	line	6116
	colm	42
	synt	any
	asgn
	goto	L27
lab L26
	line	6118
	colm	16
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	6118
	colm	24
	synt	any
	field	__allcp
	line	6118
	colm	19
	synt	any
	null
	pop
	pnull
	pnull
	var	2
	line	6118
	colm	45
	synt	any
	field	__allcp
	line	6118
	colm	35
	synt	any
	null
	pop
	mark	L39
	pnull
	pnull
	var	0
	line	6118
	colm	62
	synt	any
	field	__negated
	line	6118
	colm	57
	synt	any
	nonnull
	line	6118
	colm	73
	synt	any
	esusp
	goto	L40
lab L39
	pnull
	pnull
	var	2
	line	6118
	colm	85
	synt	any
	field	__negated
	line	6118
	colm	75
	synt	any
	nonnull
lab L40
	unmark
	mark	L41
	pnull
	var	0
	line	6120
	colm	17
	synt	any
	field	DebugPrint
	str	13
	var	7
	pnull
	var	0
	line	6120
	colm	58
	synt	any
	field	__allcp
	line	6120
	colm	53
	synt	any
	invoke	1
	str	10
	var	7
	pnull
	var	0
	line	6120
	colm	97
	synt	any
	field	__negated
	line	6120
	colm	92
	synt	any
	invoke	1
	str	11
	var	7
	pnull
	var	2
	line	6121
	colm	63
	synt	any
	field	__allcp
	line	6121
	colm	53
	synt	any
	invoke	1
	str	12
	var	7
	pnull
	var	2
	line	6121
	colm	114
	synt	any
	field	__negated
	line	6121
	colm	104
	synt	any
	invoke	1
	line	6120
	colm	28
	synt	any
	invoke	8
	unmark
lab L41
	line	6123
	colm	13
	synt	ifelse
	mark	L42
	pnull
	pnull
	var	0
	line	6123
	colm	21
	synt	any
	field	__negated
	line	6123
	colm	16
	synt	any
	null
	pop
	pnull
	pnull
	var	2
	line	6123
	colm	44
	synt	any
	field	__negated
	line	6123
	colm	34
	synt	any
	nonnull
	unmark
	mark	L44
	pnull
	pnull
	var	3
	line	6124
	colm	21
	synt	any
	field	__allcp
	line	6124
	colm	33
	synt	any
	keywd	null
	line	6124
	colm	30
	synt	any
	asgn
	unmark
lab L44
	mark	L45
	pnull
	pnull
	var	3
	line	6125
	colm	21
	synt	any
	field	__negated
	line	6125
	colm	35
	synt	any
	keywd	null
	line	6125
	colm	32
	synt	any
	asgn
	unmark
lab L45
	mark	L46
	pnull
	pnull
	var	3
	line	6126
	colm	21
	synt	any
	field	__cset
	pnull
	pnull
	var	0
	line	6126
	colm	36
	synt	any
	field	__cset
	pnull
	var	2
	line	6126
	colm	56
	synt	any
	field	__cset
	line	6126
	colm	44
	synt	any
	inter
	line	6126
	colm	29
	synt	any
	asgn
	unmark
lab L46
	mark	L47
	pnull
	pnull
	var	3
	line	6127
	colm	21
	synt	any
	field	__2bytedata
	pnull
	pnull
	var	0
	line	6127
	colm	41
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6127
	colm	66
	synt	any
	field	__2bytedata
	line	6127
	colm	54
	synt	any
	inter
	line	6127
	colm	34
	synt	any
	asgn
	unmark
lab L47
	mark	L48
	pnull
	pnull
	var	3
	line	6128
	colm	21
	synt	any
	field	__3bytedata
	pnull
	pnull
	var	0
	line	6128
	colm	41
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6128
	colm	66
	synt	any
	field	__3bytedata
	line	6128
	colm	54
	synt	any
	inter
	line	6128
	colm	34
	synt	any
	asgn
	unmark
lab L48
	mark	L49
	pnull
	pnull
	var	3
	line	6129
	colm	21
	synt	any
	field	__4bytedata
	pnull
	pnull
	var	0
	line	6129
	colm	41
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6129
	colm	66
	synt	any
	field	__4bytedata
	line	6129
	colm	54
	synt	any
	inter
	line	6129
	colm	34
	synt	any
	asgn
	unmark
lab L49
	mark	L50
	pnull
	var	4
	str	4
	line	6130
	colm	22
	synt	any
	asgn
	unmark
lab L50
	mark	L51
	line	6131
	colm	17
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	8
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6131
	colm	45
	synt	any
	field	__cset
	pnull
	var	3
	line	6131
	colm	60
	synt	any
	field	__2bytedata
	line	6131
	colm	53
	synt	any
	unions
	pnull
	var	3
	line	6131
	colm	80
	synt	any
	field	__3bytedata
	line	6131
	colm	73
	synt	any
	unions
	pnull
	var	3
	line	6131
	colm	100
	synt	any
	field	__4bytedata
	line	6131
	colm	93
	synt	any
	unions
	line	6131
	colm	40
	synt	any
	invoke	1
	line	6131
	colm	33
	synt	any
	bang
	line	6131
	colm	28
	synt	any
	cat
	asgn
	pop
lab L52
	efail
lab L53
	line	6131
	colm	17
	synt	endevery
	unmark
lab L51
	pnull
	pnull
	var	3
	line	6132
	colm	21
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6132
	colm	59
	synt	any
	field	New
	var	4
	line	6132
	colm	63
	synt	any
	invoke	1
	line	6132
	colm	46
	synt	any
	asgn
	goto	L43
lab L42
	line	6134
	colm	20
	synt	ifelse
	mark	L54
	pnull
	pnull
	var	0
	line	6134
	colm	28
	synt	any
	field	__negated
	line	6134
	colm	23
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	2
	line	6134
	colm	51
	synt	any
	field	__negated
	line	6134
	colm	41
	synt	any
	null
	unmark
	mark	L56
	pnull
	pnull
	var	3
	line	6135
	colm	25
	synt	any
	field	__allcp
	line	6135
	colm	37
	synt	any
	keywd	null
	line	6135
	colm	34
	synt	any
	asgn
	unmark
lab L56
	mark	L57
	pnull
	pnull
	var	3
	line	6136
	colm	25
	synt	any
	field	__negated
	int	2
	line	6136
	colm	36
	synt	any
	asgn
	unmark
lab L57
	mark	L58
	pnull
	pnull
	var	3
	line	6137
	colm	25
	synt	any
	field	__cset
	pnull
	pnull
	var	0
	line	6137
	colm	40
	synt	any
	field	__cset
	pnull
	var	2
	line	6137
	colm	60
	synt	any
	field	__cset
	line	6137
	colm	48
	synt	any
	unions
	line	6137
	colm	33
	synt	any
	asgn
	unmark
lab L58
	mark	L59
	pnull
	pnull
	var	3
	line	6138
	colm	25
	synt	any
	field	__2bytedata
	pnull
	pnull
	var	0
	line	6138
	colm	45
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6138
	colm	70
	synt	any
	field	__2bytedata
	line	6138
	colm	58
	synt	any
	unions
	line	6138
	colm	38
	synt	any
	asgn
	unmark
lab L59
	mark	L60
	pnull
	pnull
	var	3
	line	6139
	colm	25
	synt	any
	field	__3bytedata
	pnull
	pnull
	var	0
	line	6139
	colm	45
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6139
	colm	70
	synt	any
	field	__3bytedata
	line	6139
	colm	58
	synt	any
	unions
	line	6139
	colm	38
	synt	any
	asgn
	unmark
lab L60
	mark	L61
	pnull
	pnull
	var	3
	line	6140
	colm	25
	synt	any
	field	__4bytedata
	pnull
	pnull
	var	0
	line	6140
	colm	45
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6140
	colm	70
	synt	any
	field	__4bytedata
	line	6140
	colm	58
	synt	any
	unions
	line	6140
	colm	38
	synt	any
	asgn
	unmark
lab L61
	mark	L62
	pnull
	var	4
	str	4
	line	6141
	colm	26
	synt	any
	asgn
	unmark
lab L62
	mark	L63
	line	6142
	colm	21
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	8
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6142
	colm	49
	synt	any
	field	__cset
	pnull
	var	3
	line	6142
	colm	64
	synt	any
	field	__2bytedata
	line	6142
	colm	57
	synt	any
	unions
	pnull
	var	3
	line	6142
	colm	84
	synt	any
	field	__3bytedata
	line	6142
	colm	77
	synt	any
	unions
	pnull
	var	3
	line	6142
	colm	104
	synt	any
	field	__4bytedata
	line	6142
	colm	97
	synt	any
	unions
	line	6142
	colm	44
	synt	any
	invoke	1
	line	6142
	colm	37
	synt	any
	bang
	line	6142
	colm	32
	synt	any
	cat
	asgn
	pop
lab L64
	efail
lab L65
	line	6142
	colm	21
	synt	endevery
	unmark
lab L63
	pnull
	pnull
	var	3
	line	6143
	colm	25
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6143
	colm	63
	synt	any
	field	New
	pnull
	pnull
	str	7
	var	4
	line	6143
	colm	103
	synt	any
	cat
	str	8
	line	6143
	colm	111
	synt	any
	cat
	line	6143
	colm	67
	synt	any
	invoke	1
	line	6143
	colm	50
	synt	any
	asgn
	goto	L55
lab L54
	line	6145
	colm	20
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	6145
	colm	28
	synt	any
	field	__negated
	line	6145
	colm	23
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	2
	line	6145
	colm	51
	synt	any
	field	__negated
	line	6145
	colm	41
	synt	any
	nonnull
	unmark
	mark	L66
	pnull
	pnull
	var	3
	line	6146
	colm	21
	synt	any
	field	__allcp
	line	6146
	colm	33
	synt	any
	keywd	null
	line	6146
	colm	30
	synt	any
	asgn
	unmark
lab L66
	mark	L67
	pnull
	pnull
	var	3
	line	6147
	colm	21
	synt	any
	field	__negated
	line	6147
	colm	35
	synt	any
	keywd	null
	line	6147
	colm	32
	synt	any
	asgn
	unmark
lab L67
	mark	L68
	pnull
	pnull
	var	3
	line	6148
	colm	21
	synt	any
	field	__cset
	pnull
	pnull
	var	2
	line	6148
	colm	41
	synt	any
	field	__cset
	pnull
	var	0
	line	6148
	colm	56
	synt	any
	field	__cset
	line	6148
	colm	49
	synt	any
	diff
	line	6148
	colm	29
	synt	any
	asgn
	unmark
lab L68
	mark	L69
	pnull
	pnull
	var	3
	line	6149
	colm	21
	synt	any
	field	__2bytedata
	pnull
	pnull
	var	2
	line	6149
	colm	46
	synt	any
	field	__2bytedata
	pnull
	var	0
	line	6149
	colm	66
	synt	any
	field	__2bytedata
	line	6149
	colm	59
	synt	any
	diff
	line	6149
	colm	34
	synt	any
	asgn
	unmark
lab L69
	mark	L70
	pnull
	pnull
	var	3
	line	6150
	colm	21
	synt	any
	field	__3bytedata
	pnull
	pnull
	var	2
	line	6150
	colm	46
	synt	any
	field	__3bytedata
	pnull
	var	0
	line	6150
	colm	66
	synt	any
	field	__3bytedata
	line	6150
	colm	59
	synt	any
	diff
	line	6150
	colm	34
	synt	any
	asgn
	unmark
lab L70
	mark	L71
	pnull
	pnull
	var	3
	line	6151
	colm	21
	synt	any
	field	__4bytedata
	pnull
	pnull
	var	2
	line	6151
	colm	46
	synt	any
	field	__4bytedata
	pnull
	var	0
	line	6151
	colm	66
	synt	any
	field	__4bytedata
	line	6151
	colm	59
	synt	any
	diff
	line	6151
	colm	34
	synt	any
	asgn
	unmark
lab L71
	mark	L72
	pnull
	var	4
	str	4
	line	6152
	colm	22
	synt	any
	asgn
	unmark
lab L72
	mark	L73
	line	6153
	colm	17
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	8
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6153
	colm	45
	synt	any
	field	__cset
	pnull
	var	3
	line	6153
	colm	60
	synt	any
	field	__2bytedata
	line	6153
	colm	53
	synt	any
	unions
	pnull
	var	3
	line	6153
	colm	80
	synt	any
	field	__3bytedata
	line	6153
	colm	73
	synt	any
	unions
	pnull
	var	3
	line	6153
	colm	100
	synt	any
	field	__4bytedata
	line	6153
	colm	93
	synt	any
	unions
	line	6153
	colm	40
	synt	any
	invoke	1
	line	6153
	colm	33
	synt	any
	bang
	line	6153
	colm	28
	synt	any
	cat
	asgn
	pop
lab L74
	efail
lab L75
	line	6153
	colm	17
	synt	endevery
	unmark
lab L73
	pnull
	pnull
	var	3
	line	6154
	colm	21
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6154
	colm	59
	synt	any
	field	New
	var	4
	line	6154
	colm	63
	synt	any
	invoke	1
	line	6154
	colm	46
	synt	any
	asgn
	line	6145
	colm	20
	synt	endif
lab L55
	line	6134
	colm	20
	synt	endifelse
lab L43
	line	6123
	colm	13
	synt	endifelse
	line	6118
	colm	16
	synt	endif
lab L27
	line	6103
	colm	16
	synt	endifelse
lab L7
	line	6081
	colm	9
	synt	endifelse
	unmark
lab L5
	mark	L76
	pnull
	var	0
	line	6158
	colm	13
	synt	any
	field	__DebugPrint
	pnull
	var	2
	var	3
	line	6158
	colm	26
	synt	any
	invoke	3
	unmark
lab L76
	mark	L77
	mark	L78
	var	3
	line	6160
	colm	9
	synt	any
	pret
lab L78
	synt	any
	pfail
	unmark
lab L77
	pnull
	line	6161
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_Intersect
	local	0,001000,self
	local	1,001000,val
	local	2,000020,local_val
	local	3,000020,uset
	local	4,000020,temp
	local	5,000000,keyword
	local	6,000000,UTF8__UTF8Set
	local	7,000000,image
	local	8,000000,UTF8__UTF8
	local	9,000000,sort
	con	0,002000,3,114
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,103
	con	5,010000,0
	con	6,010000,16,050,101,051,163,145,154,146,056,137,137,141,154,154,143,160,072
	con	7,010000,19,040,154,157,143,141,154,137,166,141,154,056,137,137,141,154,154,143,160,072
	con	8,010000,53,055,055,040,106,165,154,154,040,125,124,106,055,070,040,143,157,144,145,160,157,151,156,164,040,163,145,164,040,050,061,054,061,061,062,054,060,066,064,040,143,157,144,145,160,157,151,156,164,163,051,040,055,055
	con	9,010000,16,050,102,051,163,145,154,146,056,137,137,141,154,154,143,160,072
	con	10,010000,16,040,163,145,154,146,056,137,137,156,145,147,141,164,145,144,072
	con	11,010000,19,012,154,157,143,141,154,137,166,141,154,056,137,137,141,154,154,143,160,072
	con	12,010000,21,040,154,157,143,141,154,137,166,141,154,056,137,137,156,145,147,141,164,145,144,072
	con	13,010000,16,050,103,051,163,145,154,146,056,137,137,141,154,154,143,160,072
	con	14,010000,32,055,055,040,101,154,154,040,125,124,106,055,070,040,143,157,144,145,160,157,151,156,164,163,040,145,170,143,145,160,164,040,050
	con	15,010000,4,051,040,055,055
	declend
	line	6163
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	6177
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	6177
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	6177
	colm	45
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	6177
	colm	65
	synt	any
	invoke	3
	pnull
	var	6
	line	6178
	colm	42
	synt	any
	field	__AuxMessage
	int	4
	line	6178
	colm	55
	synt	any
	invoke	1
	line	6177
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	6
	line	6180
	colm	35
	synt	any
	field	__Coerce
	var	1
	line	6180
	colm	44
	synt	any
	invoke	1
	line	6180
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	6
	line	6181
	colm	30
	synt	any
	field	New
	str	5
	line	6181
	colm	34
	synt	any
	invoke	1
	line	6181
	colm	14
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	6205
	colm	9
	synt	ifelse
	mark	L5
	mark	L7
	pnull
	pnull
	var	0
	line	6205
	colm	18
	synt	any
	field	__allcp
	line	6205
	colm	13
	synt	any
	nonnull
	line	6205
	colm	27
	synt	any
	esusp
	goto	L8
lab L7
	pnull
	pnull
	var	2
	line	6205
	colm	39
	synt	any
	field	__allcp
	line	6205
	colm	29
	synt	any
	nonnull
lab L8
	unmark
	mark	L9
	pnull
	var	0
	line	6207
	colm	17
	synt	any
	field	DebugPrint
	str	6
	var	7
	pnull
	var	0
	line	6207
	colm	58
	synt	any
	field	__allcp
	line	6207
	colm	53
	synt	any
	invoke	1
	str	7
	var	7
	pnull
	var	2
	line	6207
	colm	105
	synt	any
	field	__allcp
	line	6207
	colm	95
	synt	any
	invoke	1
	line	6207
	colm	28
	synt	any
	invoke	4
	unmark
lab L9
	line	6209
	colm	13
	synt	ifelse
	mark	L10
	pnull
	pnull
	var	0
	line	6209
	colm	21
	synt	any
	field	__allcp
	line	6209
	colm	16
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	2
	line	6209
	colm	42
	synt	any
	field	__allcp
	line	6209
	colm	32
	synt	any
	nonnull
	unmark
	mark	L12
	pnull
	pnull
	var	3
	line	6210
	colm	21
	synt	any
	field	__allcp
	int	2
	line	6210
	colm	30
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	var	4
	str	8
	line	6211
	colm	22
	synt	any
	asgn
	unmark
lab L13
	pnull
	pnull
	var	3
	line	6212
	colm	21
	synt	any
	field	__string_representation
	pnull
	var	8
	line	6212
	colm	59
	synt	any
	field	SpecialString
	var	4
	line	6212
	colm	73
	synt	any
	invoke	1
	line	6212
	colm	46
	synt	any
	asgn
	goto	L11
lab L10
	line	6214
	colm	20
	synt	ifelse
	mark	L14
	pnull
	pnull
	var	0
	line	6214
	colm	28
	synt	any
	field	__allcp
	line	6214
	colm	23
	synt	any
	nonnull
	unmark
	mark	L16
	pnull
	pnull
	var	3
	line	6215
	colm	21
	synt	any
	field	__allcp
	pnull
	var	2
	line	6215
	colm	42
	synt	any
	field	__allcp
	line	6215
	colm	30
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	pnull
	var	3
	line	6216
	colm	21
	synt	any
	field	__negated
	pnull
	var	2
	line	6216
	colm	44
	synt	any
	field	__negated
	line	6216
	colm	32
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	pnull
	var	3
	line	6217
	colm	21
	synt	any
	field	__cset
	pnull
	var	2
	line	6217
	colm	41
	synt	any
	field	__cset
	line	6217
	colm	29
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	pnull
	var	3
	line	6218
	colm	21
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6218
	colm	46
	synt	any
	field	__2bytedata
	line	6218
	colm	34
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	pnull
	var	3
	line	6219
	colm	21
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6219
	colm	46
	synt	any
	field	__3bytedata
	line	6219
	colm	34
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	pnull
	var	3
	line	6220
	colm	21
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6220
	colm	46
	synt	any
	field	__4bytedata
	line	6220
	colm	34
	synt	any
	asgn
	unmark
lab L21
	pnull
	pnull
	var	3
	line	6221
	colm	21
	synt	any
	field	__string_representation
	pnull
	var	2
	line	6221
	colm	58
	synt	any
	field	__string_representation
	line	6221
	colm	46
	synt	any
	asgn
	goto	L15
lab L14
	mark	L22
	pnull
	pnull
	var	3
	line	6224
	colm	21
	synt	any
	field	__allcp
	pnull
	var	0
	line	6224
	colm	37
	synt	any
	field	__allcp
	line	6224
	colm	30
	synt	any
	asgn
	unmark
lab L22
	mark	L23
	pnull
	pnull
	var	3
	line	6225
	colm	21
	synt	any
	field	__negated
	pnull
	var	0
	line	6225
	colm	39
	synt	any
	field	__negated
	line	6225
	colm	32
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	pnull
	pnull
	var	3
	line	6226
	colm	21
	synt	any
	field	__cset
	pnull
	var	0
	line	6226
	colm	36
	synt	any
	field	__cset
	line	6226
	colm	29
	synt	any
	asgn
	unmark
lab L24
	mark	L25
	pnull
	pnull
	var	3
	line	6227
	colm	21
	synt	any
	field	__2bytedata
	pnull
	var	0
	line	6227
	colm	41
	synt	any
	field	__2bytedata
	line	6227
	colm	34
	synt	any
	asgn
	unmark
lab L25
	mark	L26
	pnull
	pnull
	var	3
	line	6228
	colm	21
	synt	any
	field	__3bytedata
	pnull
	var	0
	line	6228
	colm	41
	synt	any
	field	__3bytedata
	line	6228
	colm	34
	synt	any
	asgn
	unmark
lab L26
	mark	L27
	pnull
	pnull
	var	3
	line	6229
	colm	21
	synt	any
	field	__4bytedata
	pnull
	var	0
	line	6229
	colm	41
	synt	any
	field	__4bytedata
	line	6229
	colm	34
	synt	any
	asgn
	unmark
lab L27
	pnull
	pnull
	var	3
	line	6230
	colm	21
	synt	any
	field	__string_representation
	pnull
	var	0
	line	6230
	colm	53
	synt	any
	field	__string_representation
	line	6230
	colm	46
	synt	any
	asgn
lab L15
	line	6214
	colm	20
	synt	endifelse
lab L11
	line	6209
	colm	13
	synt	endifelse
	goto	L6
lab L5
	line	6233
	colm	16
	synt	ifelse
	mark	L28
	pnull
	pnull
	var	0
	line	6233
	colm	24
	synt	any
	field	__allcp
	line	6233
	colm	19
	synt	any
	null
	pop
	pnull
	pnull
	var	0
	line	6233
	colm	40
	synt	any
	field	__negated
	line	6233
	colm	35
	synt	any
	null
	pop
	pnull
	pnull
	var	2
	line	6233
	colm	63
	synt	any
	field	__allcp
	line	6233
	colm	53
	synt	any
	null
	pop
	pnull
	pnull
	var	2
	line	6233
	colm	84
	synt	any
	field	__negated
	line	6233
	colm	74
	synt	any
	null
	unmark
	mark	L30
	pnull
	var	0
	line	6235
	colm	17
	synt	any
	field	DebugPrint
	str	9
	var	7
	pnull
	var	0
	line	6235
	colm	58
	synt	any
	field	__allcp
	line	6235
	colm	53
	synt	any
	invoke	1
	str	10
	var	7
	pnull
	var	0
	line	6235
	colm	97
	synt	any
	field	__negated
	line	6235
	colm	92
	synt	any
	invoke	1
	str	11
	var	7
	pnull
	var	2
	line	6236
	colm	63
	synt	any
	field	__allcp
	line	6236
	colm	53
	synt	any
	invoke	1
	str	12
	var	7
	pnull
	var	2
	line	6236
	colm	114
	synt	any
	field	__negated
	line	6236
	colm	104
	synt	any
	invoke	1
	line	6235
	colm	28
	synt	any
	invoke	8
	unmark
lab L30
	mark	L31
	pnull
	pnull
	var	3
	line	6238
	colm	17
	synt	any
	field	__allcp
	line	6238
	colm	29
	synt	any
	keywd	null
	line	6238
	colm	26
	synt	any
	asgn
	unmark
lab L31
	mark	L32
	pnull
	pnull
	var	3
	line	6239
	colm	17
	synt	any
	field	__negated
	line	6239
	colm	31
	synt	any
	keywd	null
	line	6239
	colm	28
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	pnull
	pnull
	var	3
	line	6240
	colm	17
	synt	any
	field	__cset
	pnull
	pnull
	var	0
	line	6240
	colm	32
	synt	any
	field	__cset
	pnull
	var	2
	line	6240
	colm	52
	synt	any
	field	__cset
	line	6240
	colm	40
	synt	any
	inter
	line	6240
	colm	25
	synt	any
	asgn
	unmark
lab L33
	mark	L34
	pnull
	pnull
	var	3
	line	6241
	colm	17
	synt	any
	field	__2bytedata
	pnull
	pnull
	var	0
	line	6241
	colm	37
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6241
	colm	62
	synt	any
	field	__2bytedata
	line	6241
	colm	50
	synt	any
	inter
	line	6241
	colm	30
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	pnull
	pnull
	var	3
	line	6242
	colm	17
	synt	any
	field	__3bytedata
	pnull
	pnull
	var	0
	line	6242
	colm	37
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6242
	colm	62
	synt	any
	field	__3bytedata
	line	6242
	colm	50
	synt	any
	inter
	line	6242
	colm	30
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	pnull
	pnull
	var	3
	line	6243
	colm	17
	synt	any
	field	__4bytedata
	pnull
	pnull
	var	0
	line	6243
	colm	37
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6243
	colm	62
	synt	any
	field	__4bytedata
	line	6243
	colm	50
	synt	any
	inter
	line	6243
	colm	30
	synt	any
	asgn
	unmark
lab L36
	mark	L37
	pnull
	var	4
	str	5
	line	6244
	colm	18
	synt	any
	asgn
	unmark
lab L37
	mark	L38
	line	6245
	colm	13
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	9
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6245
	colm	41
	synt	any
	field	__cset
	pnull
	var	3
	line	6245
	colm	56
	synt	any
	field	__2bytedata
	line	6245
	colm	49
	synt	any
	unions
	pnull
	var	3
	line	6245
	colm	76
	synt	any
	field	__3bytedata
	line	6245
	colm	69
	synt	any
	unions
	pnull
	var	3
	line	6245
	colm	96
	synt	any
	field	__4bytedata
	line	6245
	colm	89
	synt	any
	unions
	line	6245
	colm	36
	synt	any
	invoke	1
	line	6245
	colm	29
	synt	any
	bang
	line	6245
	colm	24
	synt	any
	cat
	asgn
	pop
lab L39
	efail
lab L40
	line	6245
	colm	13
	synt	endevery
	unmark
lab L38
	pnull
	pnull
	var	3
	line	6246
	colm	17
	synt	any
	field	__string_representation
	pnull
	var	8
	line	6246
	colm	55
	synt	any
	field	New
	var	4
	line	6246
	colm	59
	synt	any
	invoke	1
	line	6246
	colm	42
	synt	any
	asgn
	goto	L29
lab L28
	line	6248
	colm	16
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	6248
	colm	24
	synt	any
	field	__allcp
	line	6248
	colm	19
	synt	any
	null
	pop
	pnull
	pnull
	var	2
	line	6248
	colm	45
	synt	any
	field	__allcp
	line	6248
	colm	35
	synt	any
	null
	pop
	mark	L41
	pnull
	pnull
	var	0
	line	6248
	colm	62
	synt	any
	field	__negated
	line	6248
	colm	57
	synt	any
	nonnull
	line	6248
	colm	73
	synt	any
	esusp
	goto	L42
lab L41
	pnull
	pnull
	var	2
	line	6248
	colm	85
	synt	any
	field	__negated
	line	6248
	colm	75
	synt	any
	nonnull
lab L42
	unmark
	mark	L43
	pnull
	var	0
	line	6250
	colm	17
	synt	any
	field	DebugPrint
	str	13
	var	7
	pnull
	var	0
	line	6250
	colm	58
	synt	any
	field	__allcp
	line	6250
	colm	53
	synt	any
	invoke	1
	str	10
	var	7
	pnull
	var	0
	line	6250
	colm	97
	synt	any
	field	__negated
	line	6250
	colm	92
	synt	any
	invoke	1
	str	11
	var	7
	pnull
	var	2
	line	6251
	colm	63
	synt	any
	field	__allcp
	line	6251
	colm	53
	synt	any
	invoke	1
	str	12
	var	7
	pnull
	var	2
	line	6251
	colm	114
	synt	any
	field	__negated
	line	6251
	colm	104
	synt	any
	invoke	1
	line	6250
	colm	28
	synt	any
	invoke	8
	unmark
lab L43
	line	6253
	colm	13
	synt	ifelse
	mark	L44
	pnull
	pnull
	var	0
	line	6253
	colm	21
	synt	any
	field	__negated
	line	6253
	colm	16
	synt	any
	null
	pop
	pnull
	pnull
	var	2
	line	6253
	colm	44
	synt	any
	field	__negated
	line	6253
	colm	34
	synt	any
	nonnull
	unmark
	mark	L46
	pnull
	pnull
	var	3
	line	6254
	colm	21
	synt	any
	field	__allcp
	line	6254
	colm	33
	synt	any
	keywd	null
	line	6254
	colm	30
	synt	any
	asgn
	unmark
lab L46
	mark	L47
	pnull
	pnull
	var	3
	line	6255
	colm	21
	synt	any
	field	__negated
	line	6255
	colm	35
	synt	any
	keywd	null
	line	6255
	colm	32
	synt	any
	asgn
	unmark
lab L47
	mark	L48
	pnull
	pnull
	var	3
	line	6256
	colm	21
	synt	any
	field	__cset
	pnull
	pnull
	var	0
	line	6256
	colm	36
	synt	any
	field	__cset
	pnull
	var	2
	line	6256
	colm	56
	synt	any
	field	__cset
	line	6256
	colm	44
	synt	any
	diff
	line	6256
	colm	29
	synt	any
	asgn
	unmark
lab L48
	mark	L49
	pnull
	pnull
	var	3
	line	6257
	colm	21
	synt	any
	field	__2bytedata
	pnull
	pnull
	var	0
	line	6257
	colm	41
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6257
	colm	66
	synt	any
	field	__2bytedata
	line	6257
	colm	54
	synt	any
	diff
	line	6257
	colm	34
	synt	any
	asgn
	unmark
lab L49
	mark	L50
	pnull
	pnull
	var	3
	line	6258
	colm	21
	synt	any
	field	__3bytedata
	pnull
	pnull
	var	0
	line	6258
	colm	41
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6258
	colm	66
	synt	any
	field	__3bytedata
	line	6258
	colm	54
	synt	any
	diff
	line	6258
	colm	34
	synt	any
	asgn
	unmark
lab L50
	mark	L51
	pnull
	pnull
	var	3
	line	6259
	colm	21
	synt	any
	field	__4bytedata
	pnull
	pnull
	var	0
	line	6259
	colm	41
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6259
	colm	66
	synt	any
	field	__4bytedata
	line	6259
	colm	54
	synt	any
	diff
	line	6259
	colm	34
	synt	any
	asgn
	unmark
lab L51
	mark	L52
	pnull
	var	4
	str	5
	line	6260
	colm	22
	synt	any
	asgn
	unmark
lab L52
	mark	L53
	line	6261
	colm	17
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	9
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6261
	colm	45
	synt	any
	field	__cset
	pnull
	var	3
	line	6261
	colm	60
	synt	any
	field	__2bytedata
	line	6261
	colm	53
	synt	any
	unions
	pnull
	var	3
	line	6261
	colm	80
	synt	any
	field	__3bytedata
	line	6261
	colm	73
	synt	any
	unions
	pnull
	var	3
	line	6261
	colm	100
	synt	any
	field	__4bytedata
	line	6261
	colm	93
	synt	any
	unions
	line	6261
	colm	40
	synt	any
	invoke	1
	line	6261
	colm	33
	synt	any
	bang
	line	6261
	colm	28
	synt	any
	cat
	asgn
	pop
lab L54
	efail
lab L55
	line	6261
	colm	17
	synt	endevery
	unmark
lab L53
	pnull
	pnull
	var	3
	line	6262
	colm	21
	synt	any
	field	__string_representation
	pnull
	var	8
	line	6262
	colm	59
	synt	any
	field	New
	var	4
	line	6262
	colm	63
	synt	any
	invoke	1
	line	6262
	colm	46
	synt	any
	asgn
	goto	L45
lab L44
	line	6264
	colm	20
	synt	ifelse
	mark	L56
	pnull
	pnull
	var	0
	line	6264
	colm	28
	synt	any
	field	__negated
	line	6264
	colm	23
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	2
	line	6264
	colm	51
	synt	any
	field	__negated
	line	6264
	colm	41
	synt	any
	null
	unmark
	mark	L58
	pnull
	pnull
	var	3
	line	6265
	colm	25
	synt	any
	field	__allcp
	line	6265
	colm	37
	synt	any
	keywd	null
	line	6265
	colm	34
	synt	any
	asgn
	unmark
lab L58
	mark	L59
	pnull
	pnull
	var	3
	line	6266
	colm	25
	synt	any
	field	__negated
	line	6266
	colm	39
	synt	any
	keywd	null
	line	6266
	colm	36
	synt	any
	asgn
	unmark
lab L59
	mark	L60
	pnull
	pnull
	var	3
	line	6267
	colm	25
	synt	any
	field	__cset
	pnull
	pnull
	var	0
	line	6267
	colm	40
	synt	any
	field	__cset
	pnull
	var	2
	line	6267
	colm	60
	synt	any
	field	__cset
	line	6267
	colm	48
	synt	any
	diff
	line	6267
	colm	33
	synt	any
	asgn
	unmark
lab L60
	mark	L61
	pnull
	pnull
	var	3
	line	6268
	colm	25
	synt	any
	field	__2bytedata
	pnull
	pnull
	var	0
	line	6268
	colm	45
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6268
	colm	70
	synt	any
	field	__2bytedata
	line	6268
	colm	58
	synt	any
	diff
	line	6268
	colm	38
	synt	any
	asgn
	unmark
lab L61
	mark	L62
	pnull
	pnull
	var	3
	line	6269
	colm	25
	synt	any
	field	__3bytedata
	pnull
	pnull
	var	0
	line	6269
	colm	45
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6269
	colm	70
	synt	any
	field	__3bytedata
	line	6269
	colm	58
	synt	any
	diff
	line	6269
	colm	38
	synt	any
	asgn
	unmark
lab L62
	mark	L63
	pnull
	pnull
	var	3
	line	6270
	colm	25
	synt	any
	field	__4bytedata
	pnull
	pnull
	var	0
	line	6270
	colm	45
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6270
	colm	70
	synt	any
	field	__4bytedata
	line	6270
	colm	58
	synt	any
	diff
	line	6270
	colm	38
	synt	any
	asgn
	unmark
lab L63
	mark	L64
	pnull
	var	4
	str	5
	line	6271
	colm	26
	synt	any
	asgn
	unmark
lab L64
	mark	L65
	line	6272
	colm	21
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	9
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6272
	colm	49
	synt	any
	field	__cset
	pnull
	var	3
	line	6272
	colm	64
	synt	any
	field	__2bytedata
	line	6272
	colm	57
	synt	any
	unions
	pnull
	var	3
	line	6272
	colm	84
	synt	any
	field	__3bytedata
	line	6272
	colm	77
	synt	any
	unions
	pnull
	var	3
	line	6272
	colm	104
	synt	any
	field	__4bytedata
	line	6272
	colm	97
	synt	any
	unions
	line	6272
	colm	44
	synt	any
	invoke	1
	line	6272
	colm	37
	synt	any
	bang
	line	6272
	colm	32
	synt	any
	cat
	asgn
	pop
lab L66
	efail
lab L67
	line	6272
	colm	21
	synt	endevery
	unmark
lab L65
	pnull
	pnull
	var	3
	line	6273
	colm	25
	synt	any
	field	__string_representation
	pnull
	var	8
	line	6273
	colm	63
	synt	any
	field	New
	var	4
	line	6273
	colm	67
	synt	any
	invoke	1
	line	6273
	colm	50
	synt	any
	asgn
	goto	L57
lab L56
	line	6275
	colm	20
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	6275
	colm	28
	synt	any
	field	__negated
	line	6275
	colm	23
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	2
	line	6275
	colm	51
	synt	any
	field	__negated
	line	6275
	colm	41
	synt	any
	nonnull
	unmark
	mark	L68
	pnull
	pnull
	var	3
	line	6276
	colm	21
	synt	any
	field	__allcp
	line	6276
	colm	33
	synt	any
	keywd	null
	line	6276
	colm	30
	synt	any
	asgn
	unmark
lab L68
	mark	L69
	pnull
	pnull
	var	3
	line	6277
	colm	21
	synt	any
	field	__negated
	int	2
	line	6277
	colm	32
	synt	any
	asgn
	unmark
lab L69
	mark	L70
	pnull
	pnull
	var	3
	line	6278
	colm	21
	synt	any
	field	__cset
	pnull
	pnull
	var	0
	line	6278
	colm	36
	synt	any
	field	__cset
	pnull
	var	2
	line	6278
	colm	56
	synt	any
	field	__cset
	line	6278
	colm	44
	synt	any
	unions
	line	6278
	colm	29
	synt	any
	asgn
	unmark
lab L70
	mark	L71
	pnull
	pnull
	var	3
	line	6279
	colm	21
	synt	any
	field	__2bytedata
	pnull
	pnull
	var	0
	line	6279
	colm	41
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6279
	colm	66
	synt	any
	field	__2bytedata
	line	6279
	colm	54
	synt	any
	unions
	line	6279
	colm	34
	synt	any
	asgn
	unmark
lab L71
	mark	L72
	pnull
	pnull
	var	3
	line	6280
	colm	21
	synt	any
	field	__3bytedata
	pnull
	pnull
	var	0
	line	6280
	colm	41
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6280
	colm	66
	synt	any
	field	__3bytedata
	line	6280
	colm	54
	synt	any
	unions
	line	6280
	colm	34
	synt	any
	asgn
	unmark
lab L72
	mark	L73
	pnull
	pnull
	var	3
	line	6281
	colm	21
	synt	any
	field	__4bytedata
	pnull
	pnull
	var	0
	line	6281
	colm	41
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6281
	colm	66
	synt	any
	field	__4bytedata
	line	6281
	colm	54
	synt	any
	unions
	line	6281
	colm	34
	synt	any
	asgn
	unmark
lab L73
	mark	L74
	pnull
	var	4
	str	5
	line	6282
	colm	22
	synt	any
	asgn
	unmark
lab L74
	mark	L75
	line	6283
	colm	17
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	9
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6283
	colm	45
	synt	any
	field	__cset
	pnull
	var	3
	line	6283
	colm	60
	synt	any
	field	__2bytedata
	line	6283
	colm	53
	synt	any
	unions
	pnull
	var	3
	line	6283
	colm	80
	synt	any
	field	__3bytedata
	line	6283
	colm	73
	synt	any
	unions
	pnull
	var	3
	line	6283
	colm	100
	synt	any
	field	__4bytedata
	line	6283
	colm	93
	synt	any
	unions
	line	6283
	colm	40
	synt	any
	invoke	1
	line	6283
	colm	33
	synt	any
	bang
	line	6283
	colm	28
	synt	any
	cat
	asgn
	pop
lab L76
	efail
lab L77
	line	6283
	colm	17
	synt	endevery
	unmark
lab L75
	pnull
	pnull
	var	3
	line	6284
	colm	21
	synt	any
	field	__string_representation
	pnull
	var	8
	line	6284
	colm	59
	synt	any
	field	New
	pnull
	pnull
	str	14
	var	4
	line	6284
	colm	99
	synt	any
	cat
	str	15
	line	6284
	colm	107
	synt	any
	cat
	line	6284
	colm	63
	synt	any
	invoke	1
	line	6284
	colm	46
	synt	any
	asgn
	line	6275
	colm	20
	synt	endif
lab L57
	line	6264
	colm	20
	synt	endifelse
lab L45
	line	6253
	colm	13
	synt	endifelse
	line	6248
	colm	16
	synt	endif
lab L29
	line	6233
	colm	16
	synt	endifelse
lab L6
	line	6205
	colm	9
	synt	endifelse
	unmark
lab L4
	mark	L78
	pnull
	var	0
	line	6288
	colm	13
	synt	any
	field	__DebugPrint
	pnull
	var	2
	var	3
	line	6288
	colm	26
	synt	any
	invoke	3
	unmark
lab L78
	mark	L79
	mark	L80
	var	3
	line	6290
	colm	9
	synt	any
	pret
lab L80
	synt	any
	pfail
	unmark
lab L79
	pnull
	line	6291
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_Union
	local	0,001000,self
	local	1,001000,val
	local	2,000020,local_val
	local	3,000020,uset
	local	4,000020,temp
	local	5,000000,keyword
	local	6,000000,UTF8__UTF8Set
	local	7,000000,image
	local	8,000000,sort
	local	9,000000,UTF8__UTF8
	con	0,002000,3,114
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,002000,3,103
	con	5,010000,0
	con	6,010000,7,125,156,151,157,156,072,040
	con	7,010000,16,050,101,051,163,145,154,146,056,137,137,141,154,154,143,160,072
	con	8,010000,19,040,154,157,143,141,154,137,166,141,154,056,137,137,141,154,154,143,160,072
	con	9,010000,16,050,102,051,163,145,154,146,056,137,137,141,154,154,143,160,072
	con	10,010000,16,040,163,145,154,146,056,137,137,156,145,147,141,164,145,144,072
	con	11,010000,19,012,154,157,143,141,154,137,166,141,154,056,137,137,141,154,154,143,160,072
	con	12,010000,21,040,154,157,143,141,154,137,166,141,154,056,137,137,156,145,147,141,164,145,144,072
	con	13,010000,16,050,103,051,163,145,154,146,056,137,137,141,154,154,143,160,072
	con	14,002000,1,0
	con	15,010000,53,055,055,040,106,165,154,154,040,125,124,106,055,070,040,143,157,144,145,160,157,151,156,164,040,163,145,164,040,050,061,054,061,061,062,054,060,066,064,040,143,157,144,145,160,157,151,156,164,163,051,040,055,055
	con	16,010000,32,055,055,040,101,154,154,040,125,124,106,055,070,040,143,157,144,145,160,157,151,156,164,163,040,145,170,143,145,160,164,040,050
	con	17,010000,4,051,040,055,055
	declend
	line	6293
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	6307
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	6307
	colm	20
	synt	any
	field	AbortMessage
	int	0
	var	5
	str	1
	pnull
	int	2
	line	6307
	colm	45
	synt	any
	invoke	3
	var	5
	str	3
	pnull
	int	2
	line	6307
	colm	65
	synt	any
	invoke	3
	pnull
	var	6
	line	6308
	colm	42
	synt	any
	field	__AuxMessage
	int	4
	line	6308
	colm	55
	synt	any
	invoke	1
	line	6307
	colm	33
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	var	6
	line	6310
	colm	35
	synt	any
	field	__Coerce
	var	1
	line	6310
	colm	44
	synt	any
	invoke	1
	line	6310
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	6
	line	6311
	colm	30
	synt	any
	field	New
	str	5
	line	6311
	colm	34
	synt	any
	invoke	1
	line	6311
	colm	14
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	0
	line	6313
	colm	13
	synt	any
	field	__DebugPrint
	str	6
	var	2
	var	3
	line	6313
	colm	26
	synt	any
	invoke	3
	unmark
lab L4
	mark	L5
	line	6341
	colm	9
	synt	ifelse
	mark	L6
	mark	L8
	pnull
	pnull
	var	0
	line	6341
	colm	18
	synt	any
	field	__allcp
	line	6341
	colm	13
	synt	any
	nonnull
	line	6341
	colm	27
	synt	any
	esusp
	goto	L9
lab L8
	pnull
	pnull
	var	2
	line	6341
	colm	39
	synt	any
	field	__allcp
	line	6341
	colm	29
	synt	any
	nonnull
lab L9
	unmark
	mark	L10
	pnull
	var	0
	line	6342
	colm	17
	synt	any
	field	DebugPrint
	str	7
	var	7
	pnull
	var	0
	line	6342
	colm	58
	synt	any
	field	__allcp
	line	6342
	colm	53
	synt	any
	invoke	1
	str	8
	var	7
	pnull
	var	2
	line	6342
	colm	105
	synt	any
	field	__allcp
	line	6342
	colm	95
	synt	any
	invoke	1
	line	6342
	colm	28
	synt	any
	invoke	4
	unmark
lab L10
	pnull
	pnull
	var	3
	line	6344
	colm	17
	synt	any
	field	__allcp
	int	2
	line	6344
	colm	26
	synt	any
	asgn
	goto	L7
lab L6
	line	6346
	colm	16
	synt	ifelse
	mark	L11
	pnull
	pnull
	var	0
	line	6346
	colm	24
	synt	any
	field	__allcp
	line	6346
	colm	19
	synt	any
	null
	pop
	pnull
	pnull
	var	0
	line	6346
	colm	40
	synt	any
	field	__negated
	line	6346
	colm	35
	synt	any
	null
	pop
	pnull
	pnull
	var	2
	line	6346
	colm	63
	synt	any
	field	__allcp
	line	6346
	colm	53
	synt	any
	null
	pop
	pnull
	pnull
	var	2
	line	6346
	colm	84
	synt	any
	field	__negated
	line	6346
	colm	74
	synt	any
	null
	unmark
	mark	L13
	pnull
	var	0
	line	6347
	colm	17
	synt	any
	field	DebugPrint
	str	9
	var	7
	pnull
	var	0
	line	6347
	colm	58
	synt	any
	field	__allcp
	line	6347
	colm	53
	synt	any
	invoke	1
	str	10
	var	7
	pnull
	var	0
	line	6347
	colm	97
	synt	any
	field	__negated
	line	6347
	colm	92
	synt	any
	invoke	1
	str	11
	var	7
	pnull
	var	2
	line	6348
	colm	63
	synt	any
	field	__allcp
	line	6348
	colm	53
	synt	any
	invoke	1
	str	12
	var	7
	pnull
	var	2
	line	6348
	colm	114
	synt	any
	field	__negated
	line	6348
	colm	104
	synt	any
	invoke	1
	line	6347
	colm	28
	synt	any
	invoke	8
	unmark
lab L13
	mark	L14
	pnull
	pnull
	var	3
	line	6350
	colm	17
	synt	any
	field	__allcp
	line	6350
	colm	29
	synt	any
	keywd	null
	line	6350
	colm	26
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	pnull
	pnull
	var	3
	line	6351
	colm	17
	synt	any
	field	__negated
	line	6351
	colm	31
	synt	any
	keywd	null
	line	6351
	colm	28
	synt	any
	asgn
	unmark
lab L15
	mark	L16
	pnull
	pnull
	var	3
	line	6352
	colm	17
	synt	any
	field	__cset
	pnull
	pnull
	var	0
	line	6352
	colm	32
	synt	any
	field	__cset
	pnull
	var	2
	line	6352
	colm	52
	synt	any
	field	__cset
	line	6352
	colm	40
	synt	any
	unions
	line	6352
	colm	25
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	pnull
	pnull
	var	3
	line	6353
	colm	17
	synt	any
	field	__2bytedata
	pnull
	pnull
	var	0
	line	6353
	colm	37
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6353
	colm	62
	synt	any
	field	__2bytedata
	line	6353
	colm	50
	synt	any
	unions
	line	6353
	colm	30
	synt	any
	asgn
	unmark
lab L17
	mark	L18
	pnull
	pnull
	var	3
	line	6354
	colm	17
	synt	any
	field	__3bytedata
	pnull
	pnull
	var	0
	line	6354
	colm	37
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6354
	colm	62
	synt	any
	field	__3bytedata
	line	6354
	colm	50
	synt	any
	unions
	line	6354
	colm	30
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	pnull
	var	3
	line	6355
	colm	17
	synt	any
	field	__4bytedata
	pnull
	pnull
	var	0
	line	6355
	colm	37
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6355
	colm	62
	synt	any
	field	__4bytedata
	line	6355
	colm	50
	synt	any
	unions
	line	6355
	colm	30
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	var	4
	str	5
	line	6356
	colm	18
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	line	6357
	colm	13
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	8
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6357
	colm	41
	synt	any
	field	__cset
	pnull
	var	3
	line	6357
	colm	56
	synt	any
	field	__2bytedata
	line	6357
	colm	49
	synt	any
	unions
	pnull
	var	3
	line	6357
	colm	76
	synt	any
	field	__3bytedata
	line	6357
	colm	69
	synt	any
	unions
	pnull
	var	3
	line	6357
	colm	96
	synt	any
	field	__4bytedata
	line	6357
	colm	89
	synt	any
	unions
	line	6357
	colm	36
	synt	any
	invoke	1
	line	6357
	colm	29
	synt	any
	bang
	line	6357
	colm	24
	synt	any
	cat
	asgn
	pop
lab L22
	efail
lab L23
	line	6357
	colm	13
	synt	endevery
	unmark
lab L21
	pnull
	pnull
	var	3
	line	6358
	colm	17
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6358
	colm	55
	synt	any
	field	New
	var	4
	line	6358
	colm	59
	synt	any
	invoke	1
	line	6358
	colm	42
	synt	any
	asgn
	goto	L12
lab L11
	line	6360
	colm	16
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	6360
	colm	24
	synt	any
	field	__allcp
	line	6360
	colm	19
	synt	any
	null
	pop
	pnull
	pnull
	var	2
	line	6360
	colm	45
	synt	any
	field	__allcp
	line	6360
	colm	35
	synt	any
	null
	pop
	mark	L24
	pnull
	pnull
	var	0
	line	6360
	colm	62
	synt	any
	field	__negated
	line	6360
	colm	57
	synt	any
	nonnull
	line	6360
	colm	73
	synt	any
	esusp
	goto	L25
lab L24
	pnull
	pnull
	var	2
	line	6360
	colm	85
	synt	any
	field	__negated
	line	6360
	colm	75
	synt	any
	nonnull
lab L25
	unmark
	mark	L26
	pnull
	var	0
	line	6362
	colm	17
	synt	any
	field	DebugPrint
	str	13
	var	7
	pnull
	var	0
	line	6362
	colm	58
	synt	any
	field	__allcp
	line	6362
	colm	53
	synt	any
	invoke	1
	str	10
	var	7
	pnull
	var	0
	line	6362
	colm	97
	synt	any
	field	__negated
	line	6362
	colm	92
	synt	any
	invoke	1
	str	11
	var	7
	pnull
	var	2
	line	6363
	colm	63
	synt	any
	field	__allcp
	line	6363
	colm	53
	synt	any
	invoke	1
	str	12
	var	7
	pnull
	var	2
	line	6363
	colm	114
	synt	any
	field	__negated
	line	6363
	colm	104
	synt	any
	invoke	1
	line	6362
	colm	28
	synt	any
	invoke	8
	unmark
lab L26
	line	6365
	colm	13
	synt	ifelse
	mark	L27
	pnull
	pnull
	var	0
	line	6365
	colm	21
	synt	any
	field	__negated
	line	6365
	colm	16
	synt	any
	null
	pop
	pnull
	pnull
	var	2
	line	6365
	colm	44
	synt	any
	field	__negated
	line	6365
	colm	34
	synt	any
	nonnull
	unmark
	line	6366
	colm	17
	synt	ifelse
	mark	L29
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	var	2
	line	6366
	colm	31
	synt	any
	field	__cset
	pnull
	var	0
	line	6366
	colm	46
	synt	any
	field	__cset
	line	6366
	colm	39
	synt	any
	diff
	line	6366
	colm	20
	synt	any
	size
	pnull
	pnull
	pnull
	var	2
	line	6367
	colm	36
	synt	any
	field	__2bytedata
	pnull
	var	0
	line	6367
	colm	56
	synt	any
	field	__2bytedata
	line	6367
	colm	49
	synt	any
	diff
	line	6367
	colm	25
	synt	any
	size
	line	6366
	colm	55
	synt	any
	plus
	pnull
	pnull
	pnull
	var	2
	line	6368
	colm	36
	synt	any
	field	__3bytedata
	pnull
	var	0
	line	6368
	colm	56
	synt	any
	field	__3bytedata
	line	6368
	colm	49
	synt	any
	diff
	line	6368
	colm	25
	synt	any
	size
	line	6367
	colm	70
	synt	any
	plus
	pnull
	pnull
	pnull
	var	2
	line	6369
	colm	36
	synt	any
	field	__4bytedata
	pnull
	var	0
	line	6369
	colm	56
	synt	any
	field	__4bytedata
	line	6369
	colm	49
	synt	any
	diff
	line	6369
	colm	25
	synt	any
	size
	line	6368
	colm	70
	synt	any
	plus
	int	14
	line	6369
	colm	70
	synt	any
	numeq
	unmark
	mark	L31
	pnull
	pnull
	var	3
	line	6370
	colm	25
	synt	any
	field	__allcp
	int	2
	line	6370
	colm	34
	synt	any
	asgn
	unmark
lab L31
	mark	L32
	pnull
	pnull
	var	3
	line	6371
	colm	25
	synt	any
	field	__negated
	line	6371
	colm	39
	synt	any
	keywd	null
	line	6371
	colm	36
	synt	any
	asgn
	unmark
lab L32
	mark	L33
	pnull
	var	4
	str	15
	line	6372
	colm	26
	synt	any
	asgn
	unmark
lab L33
	pnull
	pnull
	var	3
	line	6373
	colm	25
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6373
	colm	63
	synt	any
	field	SpecialString
	var	4
	line	6373
	colm	77
	synt	any
	invoke	1
	line	6373
	colm	50
	synt	any
	asgn
	goto	L30
lab L29
	mark	L34
	pnull
	pnull
	var	3
	line	6376
	colm	25
	synt	any
	field	__allcp
	line	6376
	colm	37
	synt	any
	keywd	null
	line	6376
	colm	34
	synt	any
	asgn
	unmark
lab L34
	mark	L35
	pnull
	pnull
	var	3
	line	6377
	colm	25
	synt	any
	field	__negated
	int	2
	line	6377
	colm	36
	synt	any
	asgn
	unmark
lab L35
	mark	L36
	pnull
	pnull
	var	3
	line	6378
	colm	25
	synt	any
	field	__cset
	pnull
	pnull
	var	2
	line	6378
	colm	45
	synt	any
	field	__cset
	pnull
	var	0
	line	6378
	colm	60
	synt	any
	field	__cset
	line	6378
	colm	53
	synt	any
	diff
	line	6378
	colm	33
	synt	any
	asgn
	unmark
lab L36
	mark	L37
	pnull
	pnull
	var	3
	line	6379
	colm	25
	synt	any
	field	__2bytedata
	pnull
	pnull
	var	2
	line	6379
	colm	50
	synt	any
	field	__2bytedata
	pnull
	var	0
	line	6379
	colm	70
	synt	any
	field	__2bytedata
	line	6379
	colm	63
	synt	any
	diff
	line	6379
	colm	38
	synt	any
	asgn
	unmark
lab L37
	mark	L38
	pnull
	pnull
	var	3
	line	6380
	colm	25
	synt	any
	field	__3bytedata
	pnull
	pnull
	var	2
	line	6380
	colm	50
	synt	any
	field	__3bytedata
	pnull
	var	0
	line	6380
	colm	70
	synt	any
	field	__3bytedata
	line	6380
	colm	63
	synt	any
	diff
	line	6380
	colm	38
	synt	any
	asgn
	unmark
lab L38
	mark	L39
	pnull
	pnull
	var	3
	line	6381
	colm	25
	synt	any
	field	__4bytedata
	pnull
	pnull
	var	2
	line	6381
	colm	50
	synt	any
	field	__4bytedata
	pnull
	var	0
	line	6381
	colm	70
	synt	any
	field	__4bytedata
	line	6381
	colm	63
	synt	any
	diff
	line	6381
	colm	38
	synt	any
	asgn
	unmark
lab L39
	mark	L40
	pnull
	var	4
	str	5
	line	6382
	colm	26
	synt	any
	asgn
	unmark
lab L40
	mark	L41
	line	6383
	colm	21
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	8
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6383
	colm	49
	synt	any
	field	__cset
	pnull
	var	3
	line	6383
	colm	64
	synt	any
	field	__2bytedata
	line	6383
	colm	57
	synt	any
	unions
	pnull
	var	3
	line	6383
	colm	84
	synt	any
	field	__3bytedata
	line	6383
	colm	77
	synt	any
	unions
	pnull
	var	3
	line	6383
	colm	104
	synt	any
	field	__4bytedata
	line	6383
	colm	97
	synt	any
	unions
	line	6383
	colm	44
	synt	any
	invoke	1
	line	6383
	colm	37
	synt	any
	bang
	line	6383
	colm	32
	synt	any
	cat
	asgn
	pop
lab L42
	efail
lab L43
	line	6383
	colm	21
	synt	endevery
	unmark
lab L41
	pnull
	pnull
	var	3
	line	6384
	colm	25
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6384
	colm	63
	synt	any
	field	New
	pnull
	pnull
	str	16
	var	4
	line	6384
	colm	103
	synt	any
	cat
	str	17
	line	6384
	colm	111
	synt	any
	cat
	line	6384
	colm	67
	synt	any
	invoke	1
	line	6384
	colm	50
	synt	any
	asgn
lab L30
	line	6366
	colm	17
	synt	endifelse
	goto	L28
lab L27
	line	6387
	colm	20
	synt	ifelse
	mark	L44
	pnull
	pnull
	var	0
	line	6387
	colm	28
	synt	any
	field	__negated
	line	6387
	colm	23
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	2
	line	6387
	colm	51
	synt	any
	field	__negated
	line	6387
	colm	41
	synt	any
	null
	unmark
	line	6388
	colm	17
	synt	ifelse
	mark	L46
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	var	0
	line	6388
	colm	26
	synt	any
	field	__cset
	pnull
	var	2
	line	6388
	colm	46
	synt	any
	field	__cset
	line	6388
	colm	34
	synt	any
	diff
	line	6388
	colm	20
	synt	any
	size
	pnull
	pnull
	pnull
	var	0
	line	6389
	colm	31
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6389
	colm	56
	synt	any
	field	__2bytedata
	line	6389
	colm	44
	synt	any
	diff
	line	6389
	colm	25
	synt	any
	size
	line	6388
	colm	55
	synt	any
	plus
	pnull
	pnull
	pnull
	var	0
	line	6390
	colm	31
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6390
	colm	56
	synt	any
	field	__3bytedata
	line	6390
	colm	44
	synt	any
	diff
	line	6390
	colm	25
	synt	any
	size
	line	6389
	colm	70
	synt	any
	plus
	pnull
	pnull
	pnull
	var	0
	line	6391
	colm	31
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6391
	colm	56
	synt	any
	field	__4bytedata
	line	6391
	colm	44
	synt	any
	diff
	line	6391
	colm	25
	synt	any
	size
	line	6390
	colm	70
	synt	any
	plus
	int	14
	line	6391
	colm	70
	synt	any
	numeq
	unmark
	mark	L48
	pnull
	pnull
	var	3
	line	6392
	colm	25
	synt	any
	field	__allcp
	int	2
	line	6392
	colm	34
	synt	any
	asgn
	unmark
lab L48
	mark	L49
	pnull
	pnull
	var	3
	line	6393
	colm	25
	synt	any
	field	__negated
	line	6393
	colm	39
	synt	any
	keywd	null
	line	6393
	colm	36
	synt	any
	asgn
	unmark
lab L49
	mark	L50
	pnull
	var	4
	str	15
	line	6394
	colm	26
	synt	any
	asgn
	unmark
lab L50
	pnull
	pnull
	var	3
	line	6395
	colm	25
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6395
	colm	63
	synt	any
	field	SpecialString
	var	4
	line	6395
	colm	77
	synt	any
	invoke	1
	line	6395
	colm	50
	synt	any
	asgn
	goto	L47
lab L46
	mark	L51
	pnull
	pnull
	var	3
	line	6398
	colm	25
	synt	any
	field	__allcp
	line	6398
	colm	37
	synt	any
	keywd	null
	line	6398
	colm	34
	synt	any
	asgn
	unmark
lab L51
	mark	L52
	pnull
	pnull
	var	3
	line	6399
	colm	25
	synt	any
	field	__negated
	int	2
	line	6399
	colm	36
	synt	any
	asgn
	unmark
lab L52
	mark	L53
	pnull
	pnull
	var	3
	line	6400
	colm	25
	synt	any
	field	__cset
	pnull
	pnull
	var	0
	line	6400
	colm	40
	synt	any
	field	__cset
	pnull
	var	2
	line	6400
	colm	60
	synt	any
	field	__cset
	line	6400
	colm	48
	synt	any
	diff
	line	6400
	colm	33
	synt	any
	asgn
	unmark
lab L53
	mark	L54
	pnull
	pnull
	var	3
	line	6401
	colm	25
	synt	any
	field	__2bytedata
	pnull
	pnull
	var	0
	line	6401
	colm	45
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6401
	colm	70
	synt	any
	field	__2bytedata
	line	6401
	colm	58
	synt	any
	diff
	line	6401
	colm	38
	synt	any
	asgn
	unmark
lab L54
	mark	L55
	pnull
	pnull
	var	3
	line	6402
	colm	25
	synt	any
	field	__3bytedata
	pnull
	pnull
	var	0
	line	6402
	colm	45
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6402
	colm	70
	synt	any
	field	__3bytedata
	line	6402
	colm	58
	synt	any
	diff
	line	6402
	colm	38
	synt	any
	asgn
	unmark
lab L55
	mark	L56
	pnull
	pnull
	var	3
	line	6403
	colm	25
	synt	any
	field	__4bytedata
	pnull
	pnull
	var	0
	line	6403
	colm	45
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6403
	colm	70
	synt	any
	field	__4bytedata
	line	6403
	colm	58
	synt	any
	diff
	line	6403
	colm	38
	synt	any
	asgn
	unmark
lab L56
	mark	L57
	pnull
	var	4
	str	5
	line	6404
	colm	26
	synt	any
	asgn
	unmark
lab L57
	mark	L58
	line	6405
	colm	21
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	8
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6405
	colm	49
	synt	any
	field	__cset
	pnull
	var	3
	line	6405
	colm	64
	synt	any
	field	__2bytedata
	line	6405
	colm	57
	synt	any
	unions
	pnull
	var	3
	line	6405
	colm	84
	synt	any
	field	__3bytedata
	line	6405
	colm	77
	synt	any
	unions
	pnull
	var	3
	line	6405
	colm	104
	synt	any
	field	__4bytedata
	line	6405
	colm	97
	synt	any
	unions
	line	6405
	colm	44
	synt	any
	invoke	1
	line	6405
	colm	37
	synt	any
	bang
	line	6405
	colm	32
	synt	any
	cat
	asgn
	pop
lab L59
	efail
lab L60
	line	6405
	colm	21
	synt	endevery
	unmark
lab L58
	pnull
	pnull
	var	3
	line	6406
	colm	25
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6406
	colm	63
	synt	any
	field	New
	pnull
	pnull
	str	16
	var	4
	line	6406
	colm	103
	synt	any
	cat
	str	17
	line	6406
	colm	111
	synt	any
	cat
	line	6406
	colm	67
	synt	any
	invoke	1
	line	6406
	colm	50
	synt	any
	asgn
lab L47
	line	6388
	colm	17
	synt	endifelse
	goto	L45
lab L44
	line	6409
	colm	20
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	6409
	colm	28
	synt	any
	field	__negated
	line	6409
	colm	23
	synt	any
	nonnull
	pop
	pnull
	pnull
	var	2
	line	6409
	colm	51
	synt	any
	field	__negated
	line	6409
	colm	41
	synt	any
	nonnull
	unmark
	line	6410
	colm	17
	synt	ifelse
	mark	L61
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	pnull
	var	0
	line	6410
	colm	26
	synt	any
	field	__cset
	pnull
	var	2
	line	6410
	colm	46
	synt	any
	field	__cset
	line	6410
	colm	34
	synt	any
	inter
	line	6410
	colm	20
	synt	any
	size
	pnull
	pnull
	pnull
	var	0
	line	6411
	colm	31
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6411
	colm	56
	synt	any
	field	__2bytedata
	line	6411
	colm	44
	synt	any
	inter
	line	6411
	colm	25
	synt	any
	size
	line	6410
	colm	55
	synt	any
	plus
	pnull
	pnull
	pnull
	var	0
	line	6412
	colm	31
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6412
	colm	56
	synt	any
	field	__3bytedata
	line	6412
	colm	44
	synt	any
	inter
	line	6412
	colm	25
	synt	any
	size
	line	6411
	colm	70
	synt	any
	plus
	pnull
	pnull
	pnull
	var	0
	line	6413
	colm	31
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6413
	colm	56
	synt	any
	field	__4bytedata
	line	6413
	colm	44
	synt	any
	inter
	line	6413
	colm	25
	synt	any
	size
	line	6412
	colm	70
	synt	any
	plus
	int	14
	line	6413
	colm	70
	synt	any
	numeq
	unmark
	mark	L63
	pnull
	pnull
	var	3
	line	6414
	colm	25
	synt	any
	field	__allcp
	int	2
	line	6414
	colm	34
	synt	any
	asgn
	unmark
lab L63
	mark	L64
	pnull
	pnull
	var	3
	line	6415
	colm	25
	synt	any
	field	__negated
	line	6415
	colm	39
	synt	any
	keywd	null
	line	6415
	colm	36
	synt	any
	asgn
	unmark
lab L64
	mark	L65
	pnull
	var	4
	str	15
	line	6416
	colm	26
	synt	any
	asgn
	unmark
lab L65
	pnull
	pnull
	var	3
	line	6417
	colm	25
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6417
	colm	63
	synt	any
	field	SpecialString
	var	4
	line	6417
	colm	77
	synt	any
	invoke	1
	line	6417
	colm	50
	synt	any
	asgn
	goto	L62
lab L61
	mark	L66
	pnull
	pnull
	var	3
	line	6420
	colm	25
	synt	any
	field	__allcp
	line	6420
	colm	37
	synt	any
	keywd	null
	line	6420
	colm	34
	synt	any
	asgn
	unmark
lab L66
	mark	L67
	pnull
	pnull
	var	3
	line	6421
	colm	25
	synt	any
	field	__negated
	int	2
	line	6421
	colm	36
	synt	any
	asgn
	unmark
lab L67
	mark	L68
	pnull
	pnull
	var	3
	line	6422
	colm	25
	synt	any
	field	__cset
	pnull
	pnull
	var	0
	line	6422
	colm	40
	synt	any
	field	__cset
	pnull
	var	2
	line	6422
	colm	60
	synt	any
	field	__cset
	line	6422
	colm	48
	synt	any
	inter
	line	6422
	colm	33
	synt	any
	asgn
	unmark
lab L68
	mark	L69
	pnull
	pnull
	var	3
	line	6423
	colm	25
	synt	any
	field	__2bytedata
	pnull
	pnull
	var	0
	line	6423
	colm	45
	synt	any
	field	__2bytedata
	pnull
	var	2
	line	6423
	colm	70
	synt	any
	field	__2bytedata
	line	6423
	colm	58
	synt	any
	inter
	line	6423
	colm	38
	synt	any
	asgn
	unmark
lab L69
	mark	L70
	pnull
	pnull
	var	3
	line	6424
	colm	25
	synt	any
	field	__3bytedata
	pnull
	pnull
	var	0
	line	6424
	colm	45
	synt	any
	field	__3bytedata
	pnull
	var	2
	line	6424
	colm	70
	synt	any
	field	__3bytedata
	line	6424
	colm	58
	synt	any
	inter
	line	6424
	colm	38
	synt	any
	asgn
	unmark
lab L70
	mark	L71
	pnull
	pnull
	var	3
	line	6425
	colm	25
	synt	any
	field	__4bytedata
	pnull
	pnull
	var	0
	line	6425
	colm	45
	synt	any
	field	__4bytedata
	pnull
	var	2
	line	6425
	colm	70
	synt	any
	field	__4bytedata
	line	6425
	colm	58
	synt	any
	inter
	line	6425
	colm	38
	synt	any
	asgn
	unmark
lab L71
	mark	L72
	pnull
	var	4
	str	5
	line	6426
	colm	26
	synt	any
	asgn
	unmark
lab L72
	mark	L73
	line	6427
	colm	21
	synt	every
	mark0
	pnull
	var	4
	dup
	pnull
	var	8
	pnull
	pnull
	pnull
	pnull
	var	3
	line	6427
	colm	49
	synt	any
	field	__cset
	pnull
	var	3
	line	6427
	colm	64
	synt	any
	field	__2bytedata
	line	6427
	colm	57
	synt	any
	unions
	pnull
	var	3
	line	6427
	colm	84
	synt	any
	field	__3bytedata
	line	6427
	colm	77
	synt	any
	unions
	pnull
	var	3
	line	6427
	colm	104
	synt	any
	field	__4bytedata
	line	6427
	colm	97
	synt	any
	unions
	line	6427
	colm	44
	synt	any
	invoke	1
	line	6427
	colm	37
	synt	any
	bang
	line	6427
	colm	32
	synt	any
	cat
	asgn
	pop
lab L74
	efail
lab L75
	line	6427
	colm	21
	synt	endevery
	unmark
lab L73
	pnull
	pnull
	var	3
	line	6428
	colm	25
	synt	any
	field	__string_representation
	pnull
	var	9
	line	6428
	colm	63
	synt	any
	field	New
	pnull
	pnull
	str	16
	var	4
	line	6428
	colm	103
	synt	any
	cat
	str	17
	line	6428
	colm	111
	synt	any
	cat
	line	6428
	colm	67
	synt	any
	invoke	1
	line	6428
	colm	50
	synt	any
	asgn
lab L62
	line	6410
	colm	17
	synt	endifelse
	line	6409
	colm	20
	synt	endif
lab L45
	line	6387
	colm	20
	synt	endifelse
lab L28
	line	6365
	colm	13
	synt	endifelse
	line	6360
	colm	16
	synt	endif
lab L12
	line	6346
	colm	16
	synt	endifelse
lab L7
	line	6341
	colm	9
	synt	endifelse
	unmark
lab L5
	mark	L76
	pnull
	var	0
	line	6433
	colm	13
	synt	any
	field	__DebugPrint
	pnull
	var	2
	var	3
	line	6433
	colm	26
	synt	any
	invoke	3
	unmark
lab L76
	mark	L77
	mark	L78
	var	3
	line	6435
	colm	9
	synt	any
	pret
lab L78
	synt	any
	pfail
	unmark
lab L77
	pnull
	line	6436
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_ForEach
	local	0,001000,self
	local	1,000020,ch
	local	2,000020,data
	local	3,000020,lst
	local	4,000020,i
	local	5,000020,j
	local	6,000020,k
	local	7,000020,l
	local	8,000020,__1
	local	9,000000,ximage
	local	10,000000,UTF8__UTF8Set
	local	11,000000,UTF8__UTF8
	local	12,000000,image
	local	13,000000,member
	local	14,000000,sort
	con	0,010000,8,105,156,164,145,162,151,156,147
	con	1,010000,8,137,137,141,154,154,143,160,072
	con	2,010000,10,137,137,156,145,147,141,164,145,144,072
	con	3,010000,7,137,137,143,163,145,164,072
	con	4,010000,12,137,137,062,142,171,164,145,144,141,164,141,072
	con	5,010000,12,137,137,063,142,171,164,145,144,141,164,141,072
	con	6,010000,12,137,137,064,142,171,164,145,144,141,164,141,072
	con	7,010000,30,120,162,157,144,165,143,151,156,147,040,141,154,154,040,125,124,106,055,070,040,143,157,144,145,160,157,151,156,164,163
	con	8,002000,1,0
	con	9,002000,1,1
	con	10,010000,13,143,157,144,145,160,157,151,156,164,040,143,150,072
	con	11,010000,21,040,170,151,155,141,147,145,050,143,150,056,123,164,162,151,156,147,050,051,051,072
	con	12,010000,2,151,072
	con	13,010000,34,120,162,157,144,165,143,151,156,147,040,156,145,147,141,164,145,144,040,125,124,106,055,070,040,143,157,144,145,160,157,151,156,164,163
	con	14,010000,36,120,162,157,144,165,143,151,156,147,040,141,166,141,151,154,141,142,154,145,040,125,124,106,055,070,040,143,157,144,145,160,157,151,156,164,163
	con	15,010000,3,143,150,072
	con	16,010000,4,154,163,164,072
	con	17,010000,12,040,170,151,155,141,147,145,050,143,150,051,072
	declend
	line	6444
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	6454
	colm	13
	synt	any
	field	DebugPrint
	str	0
	str	1
	var	9
	pnull
	var	0
	line	6454
	colm	58
	synt	any
	field	__allcp
	line	6454
	colm	53
	synt	any
	invoke	1
	str	2
	var	9
	pnull
	var	0
	line	6455
	colm	47
	synt	any
	field	__negated
	line	6455
	colm	42
	synt	any
	invoke	1
	str	3
	var	9
	pnull
	var	0
	line	6456
	colm	44
	synt	any
	field	__cset
	line	6456
	colm	39
	synt	any
	invoke	1
	str	4
	var	9
	pnull
	var	0
	line	6457
	colm	49
	synt	any
	field	__2bytedata
	line	6457
	colm	44
	synt	any
	invoke	1
	str	5
	var	9
	pnull
	var	0
	line	6458
	colm	49
	synt	any
	field	__3bytedata
	line	6458
	colm	44
	synt	any
	invoke	1
	str	6
	var	9
	pnull
	var	0
	line	6459
	colm	49
	synt	any
	field	__4bytedata
	line	6459
	colm	44
	synt	any
	invoke	1
	line	6454
	colm	24
	synt	any
	invoke	13
	unmark
lab L1
	mark	L2
	line	6461
	colm	9
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	0
	line	6461
	colm	17
	synt	any
	field	__allcp
	line	6461
	colm	12
	synt	any
	nonnull
	unmark
	mark	L5
	pnull
	var	0
	line	6463
	colm	17
	synt	any
	field	DebugPrint
	str	7
	line	6463
	colm	28
	synt	any
	invoke	1
	unmark
lab L5
	line	6465
	colm	13
	synt	every
	mark0
	pnull
	var	4
	pnull
	int	8
	pnull
	pnull
	var	10
	line	6465
	colm	42
	synt	any
	field	MaxSize
	line	6465
	colm	50
	synt	any
	invoke	0
	int	9
	line	6465
	colm	52
	synt	any
	minus
	push1
	line	6465
	colm	26
	synt	any
	toby
	line	6465
	colm	21
	synt	any
	asgn
	pop
	mark0
	mark	L8
	pnull
	var	1
	pnull
	var	11
	line	6466
	colm	33
	synt	any
	field	DecimalTo
	var	4
	line	6466
	colm	43
	synt	any
	invoke	1
	line	6466
	colm	20
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	0
	line	6468
	colm	21
	synt	any
	field	DebugPrint
	str	10
	var	12
	var	1
	line	6468
	colm	54
	synt	any
	invoke	1
	str	11
	var	9
	pnull
	var	1
	line	6469
	colm	39
	synt	any
	field	String
	line	6469
	colm	46
	synt	any
	invoke	0
	line	6469
	colm	36
	synt	any
	invoke	1
	str	12
	var	4
	line	6468
	colm	32
	synt	any
	invoke	6
	unmark
lab L9
	line	6471
	colm	17
	synt	suspend
	mark0
	var	1
	line	6471
	colm	17
	synt	any
	psusp
	pop
lab L10
	efail
lab L11
	line	6471
	colm	17
	synt	endsuspend
	unmark
lab L6
	efail
lab L7
	line	6465
	colm	13
	synt	endevery
	goto	L4
lab L3
	line	6473
	colm	16
	synt	ifelse
	mark	L12
	pnull
	pnull
	var	0
	line	6473
	colm	24
	synt	any
	field	__negated
	line	6473
	colm	19
	synt	any
	nonnull
	unmark
	mark	L14
	pnull
	var	0
	line	6475
	colm	17
	synt	any
	field	DebugPrint
	str	13
	str	7
	line	6475
	colm	28
	synt	any
	invoke	2
	unmark
lab L14
	line	6478
	colm	13
	synt	every
	mark0
	pnull
	var	4
	pnull
	int	8
	pnull
	pnull
	var	10
	line	6478
	colm	42
	synt	any
	field	MaxSize
	line	6478
	colm	50
	synt	any
	invoke	0
	int	9
	line	6478
	colm	52
	synt	any
	minus
	push1
	line	6478
	colm	26
	synt	any
	toby
	line	6478
	colm	21
	synt	any
	asgn
	pop
	mark0
	mark	L17
	pnull
	var	1
	pnull
	var	11
	line	6479
	colm	33
	synt	any
	field	DecimalTo
	var	4
	line	6479
	colm	43
	synt	any
	invoke	1
	line	6479
	colm	20
	synt	any
	asgn
	unmark
lab L17
	line	6480
	colm	17
	synt	ifelse
	mark	L18
	var	13
	mark	L20
	pnull
	var	0
	line	6480
	colm	31
	synt	any
	field	__cset
	line	6480
	colm	38
	synt	any
	esusp
	goto	L21
lab L20
	mark	L22
	pnull
	var	0
	line	6480
	colm	43
	synt	any
	field	__2bytedata
	line	6480
	colm	55
	synt	any
	esusp
	goto	L23
lab L22
	mark	L24
	pnull
	var	0
	line	6480
	colm	60
	synt	any
	field	__3bytedata
	line	6480
	colm	72
	synt	any
	esusp
	goto	L25
lab L24
	pnull
	var	0
	line	6480
	colm	77
	synt	any
	field	__4bytedata
lab L25
lab L23
lab L21
	pnull
	var	1
	line	6480
	colm	92
	synt	any
	field	String
	line	6480
	colm	99
	synt	any
	invoke	0
	line	6480
	colm	26
	synt	any
	invoke	2
	unmark
	unmark
	goto	L15
	goto	L19
lab L18
	line	6483
	colm	21
	synt	suspend
	mark0
	var	1
	line	6483
	colm	21
	synt	any
	psusp
	pop
lab L26
	efail
lab L27
	line	6483
	colm	21
	synt	endsuspend
lab L19
	line	6480
	colm	17
	synt	endifelse
	unmark
lab L15
	efail
lab L16
	line	6478
	colm	13
	synt	endevery
	goto	L13
lab L12
	mark	L28
	pnull
	var	0
	line	6488
	colm	17
	synt	any
	field	DebugPrint
	str	14
	line	6488
	colm	28
	synt	any
	invoke	1
	unmark
lab L28
	mark	L29
	pnull
	var	3
	pnull
	line	6490
	colm	20
	synt	any
	llist	0
	line	6490
	colm	17
	synt	any
	asgn
	unmark
lab L29
	mark	L30
	pnull
	var	3
	var	14
	pnull
	pnull
	var	0
	line	6491
	colm	32
	synt	any
	field	__cset
	line	6491
	colm	27
	synt	any
	nonnull
	line	6491
	colm	26
	synt	any
	invoke	1
	line	6491
	colm	17
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	line	6492
	colm	13
	synt	every
	mark0
	pnull
	var	1
	pnull
	pnull
	var	3
	line	6492
	colm	26
	synt	any
	nonnull
	line	6492
	colm	25
	synt	any
	bang
	line	6492
	colm	22
	synt	any
	asgn
	pop
	mark0
	mark	L34
	pnull
	var	0
	line	6494
	colm	21
	synt	any
	field	DebugPrint
	str	15
	var	12
	var	1
	line	6494
	colm	44
	synt	any
	invoke	1
	line	6494
	colm	32
	synt	any
	invoke	2
	unmark
lab L34
	line	6496
	colm	17
	synt	suspend
	mark0
	pnull
	var	11
	line	6496
	colm	35
	synt	any
	field	New
	var	1
	line	6496
	colm	39
	synt	any
	invoke	1
	line	6496
	colm	17
	synt	any
	psusp
	pop
lab L35
	efail
lab L36
	line	6496
	colm	17
	synt	endsuspend
	unmark
lab L32
	efail
lab L33
	line	6492
	colm	13
	synt	endevery
	unmark
lab L31
	mark	L37
	pnull
	var	3
	pnull
	line	6499
	colm	20
	synt	any
	llist	0
	line	6499
	colm	17
	synt	any
	asgn
	unmark
lab L37
	mark	L38
	pnull
	var	3
	var	14
	pnull
	pnull
	var	0
	line	6500
	colm	32
	synt	any
	field	__2bytedata
	line	6500
	colm	27
	synt	any
	nonnull
	line	6500
	colm	26
	synt	any
	invoke	1
	line	6500
	colm	17
	synt	any
	asgn
	unmark
lab L38
	mark	L39
	pnull
	var	0
	line	6502
	colm	17
	synt	any
	field	DebugPrint
	str	16
	var	9
	var	3
	line	6502
	colm	42
	synt	any
	invoke	1
	line	6502
	colm	28
	synt	any
	invoke	2
	unmark
lab L39
	mark	L40
	line	6504
	colm	13
	synt	every
	mark0
	pnull
	var	1
	pnull
	pnull
	var	3
	line	6504
	colm	26
	synt	any
	nonnull
	line	6504
	colm	25
	synt	any
	bang
	line	6504
	colm	22
	synt	any
	asgn
	pop
	mark0
	mark	L43
	pnull
	var	0
	line	6506
	colm	21
	synt	any
	field	DebugPrint
	str	15
	var	12
	var	1
	line	6506
	colm	44
	synt	any
	invoke	1
	str	17
	var	9
	var	1
	line	6506
	colm	72
	synt	any
	invoke	1
	line	6506
	colm	32
	synt	any
	invoke	4
	unmark
lab L43
	line	6508
	colm	17
	synt	suspend
	mark0
	pnull
	var	11
	line	6508
	colm	35
	synt	any
	field	New
	var	1
	line	6508
	colm	39
	synt	any
	invoke	1
	line	6508
	colm	17
	synt	any
	psusp
	pop
lab L44
	efail
lab L45
	line	6508
	colm	17
	synt	endsuspend
	unmark
lab L41
	efail
lab L42
	line	6504
	colm	13
	synt	endevery
	unmark
lab L40
	mark	L46
	pnull
	var	3
	pnull
	line	6511
	colm	20
	synt	any
	llist	0
	line	6511
	colm	17
	synt	any
	asgn
	unmark
lab L46
	mark	L47
	pnull
	var	3
	var	14
	pnull
	pnull
	var	0
	line	6512
	colm	32
	synt	any
	field	__3bytedata
	line	6512
	colm	27
	synt	any
	nonnull
	line	6512
	colm	26
	synt	any
	invoke	1
	line	6512
	colm	17
	synt	any
	asgn
	unmark
lab L47
	mark	L48
	line	6513
	colm	13
	synt	every
	mark0
	pnull
	var	1
	pnull
	pnull
	var	3
	line	6513
	colm	26
	synt	any
	nonnull
	line	6513
	colm	25
	synt	any
	bang
	line	6513
	colm	22
	synt	any
	asgn
	pop
	mark0
	mark	L51
	pnull
	var	0
	line	6514
	colm	21
	synt	any
	field	DebugPrint
	str	15
	var	12
	var	1
	line	6514
	colm	44
	synt	any
	invoke	1
	str	17
	var	9
	var	1
	line	6514
	colm	72
	synt	any
	invoke	1
	line	6514
	colm	32
	synt	any
	invoke	4
	unmark
lab L51
	line	6516
	colm	17
	synt	suspend
	mark0
	pnull
	var	11
	line	6516
	colm	35
	synt	any
	field	New
	var	1
	line	6516
	colm	39
	synt	any
	invoke	1
	line	6516
	colm	17
	synt	any
	psusp
	pop
lab L52
	efail
lab L53
	line	6516
	colm	17
	synt	endsuspend
	unmark
lab L49
	efail
lab L50
	line	6513
	colm	13
	synt	endevery
	unmark
lab L48
	mark	L54
	pnull
	var	3
	pnull
	line	6519
	colm	20
	synt	any
	llist	0
	line	6519
	colm	17
	synt	any
	asgn
	unmark
lab L54
	mark	L55
	pnull
	var	3
	var	14
	pnull
	pnull
	var	0
	line	6520
	colm	32
	synt	any
	field	__4bytedata
	line	6520
	colm	27
	synt	any
	nonnull
	line	6520
	colm	26
	synt	any
	invoke	1
	line	6520
	colm	17
	synt	any
	asgn
	unmark
lab L55
	line	6521
	colm	13
	synt	every
	mark0
	pnull
	var	1
	pnull
	pnull
	var	3
	line	6521
	colm	26
	synt	any
	nonnull
	line	6521
	colm	25
	synt	any
	bang
	line	6521
	colm	22
	synt	any
	asgn
	pop
	mark0
	mark	L58
	pnull
	var	0
	line	6523
	colm	21
	synt	any
	field	DebugPrint
	str	15
	var	12
	var	1
	line	6523
	colm	44
	synt	any
	invoke	1
	str	17
	var	9
	var	1
	line	6523
	colm	72
	synt	any
	invoke	1
	line	6523
	colm	32
	synt	any
	invoke	4
	unmark
lab L58
	line	6525
	colm	17
	synt	suspend
	mark0
	pnull
	var	11
	line	6525
	colm	35
	synt	any
	field	New
	var	1
	line	6525
	colm	39
	synt	any
	invoke	1
	line	6525
	colm	17
	synt	any
	psusp
	pop
lab L59
	efail
lab L60
	line	6525
	colm	17
	synt	endsuspend
	unmark
lab L56
	efail
lab L57
	line	6521
	colm	13
	synt	endevery
lab L13
	line	6473
	colm	16
	synt	endifelse
lab L4
	line	6461
	colm	9
	synt	endifelse
	unmark
lab L2
	pnull
	line	6528
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_Size
	local	0,001000,self
	local	1,000020,maxsz
	local	2,000020,sz
	local	3,000000,UTF8__UTF8Set
	con	0,002000,1,0
	declend
	line	6530
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	var	3
	line	6535
	colm	31
	synt	any
	field	MaxSize
	line	6535
	colm	39
	synt	any
	invoke	0
	line	6535
	colm	15
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	2
	pnull
	pnull
	pnull
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	6536
	colm	22
	synt	any
	field	__cset
	line	6536
	colm	17
	synt	any
	nonnull
	line	6536
	colm	16
	synt	any
	size
	line	6536
	colm	29
	synt	any
	esusp
	goto	L4
lab L3
	int	0
lab L4
	mark	L5
	pnull
	pnull
	pnull
	var	0
	line	6536
	colm	40
	synt	any
	field	__2bytedata
	line	6536
	colm	35
	synt	any
	nonnull
	line	6536
	colm	34
	synt	any
	size
	line	6536
	colm	52
	synt	any
	esusp
	goto	L6
lab L5
	int	0
lab L6
	line	6536
	colm	32
	synt	any
	plus
	mark	L7
	pnull
	pnull
	pnull
	var	0
	line	6536
	colm	63
	synt	any
	field	__3bytedata
	line	6536
	colm	58
	synt	any
	nonnull
	line	6536
	colm	57
	synt	any
	size
	line	6536
	colm	75
	synt	any
	esusp
	goto	L8
lab L7
	int	0
lab L8
	line	6536
	colm	55
	synt	any
	plus
	mark	L9
	pnull
	pnull
	pnull
	var	0
	line	6536
	colm	86
	synt	any
	field	__4bytedata
	line	6536
	colm	81
	synt	any
	nonnull
	line	6536
	colm	80
	synt	any
	size
	line	6536
	colm	98
	synt	any
	esusp
	goto	L10
lab L9
	int	0
lab L10
	line	6536
	colm	78
	synt	any
	plus
	line	6536
	colm	12
	synt	any
	asgn
	unmark
lab L2
	mark	L11
	pnull
	pnull
	var	0
	line	6537
	colm	15
	synt	any
	field	__allcp
	line	6537
	colm	10
	synt	any
	nonnull
	pop
	pnull
	var	2
	var	1
	line	6537
	colm	27
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	pnull
	pnull
	var	0
	line	6538
	colm	15
	synt	any
	field	__negated
	line	6538
	colm	10
	synt	any
	nonnull
	pop
	pnull
	var	2
	pnull
	var	1
	var	2
	line	6538
	colm	36
	synt	any
	minus
	line	6538
	colm	29
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	mark	L14
	var	2
	line	6539
	colm	9
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	6540
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_Subscript
	local	0,001000,self
	local	1,001000,i
	local	2,000020,temp
	local	3,000000,keyword
	local	4,000000,UTF8__UTF8Set
	local	5,000000,UTF8__UTF8
	con	0,002000,3,101
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	declend
	line	6545
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	6548
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	6548
	colm	18
	synt	any
	field	AbortMessage
	int	0
	var	3
	str	1
	pnull
	int	2
	line	6548
	colm	43
	synt	any
	invoke	3
	var	3
	str	3
	pnull
	int	2
	line	6548
	colm	63
	synt	any
	invoke	3
	pnull
	var	4
	line	6549
	colm	40
	synt	any
	field	__AuxMessage
	int	0
	line	6549
	colm	53
	synt	any
	invoke	1
	line	6548
	colm	31
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	line	6551
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	6551
	colm	17
	synt	any
	field	__negated
	line	6551
	colm	12
	synt	any
	null
	unmark
	line	6552
	colm	13
	synt	ifelse
	mark	L3
	pnull
	pnull
	var	0
	line	6552
	colm	21
	synt	any
	field	__string_representation
	line	6552
	colm	16
	synt	any
	nonnull
	unmark
	mark	L5
	pnull
	pnull
	var	0
	line	6553
	colm	28
	synt	any
	field	__string_representation
	line	6553
	colm	52
	synt	any
	field	Subscript
	var	1
	line	6553
	colm	62
	synt	any
	invoke	1
	line	6553
	colm	17
	synt	any
	pret
lab L5
	synt	any
	pfail
	goto	L4
lab L3
	mark	L6
	pnull
	var	5
	line	6555
	colm	34
	synt	any
	field	DecimalTo
	var	1
	line	6555
	colm	44
	synt	any
	invoke	1
	line	6555
	colm	17
	synt	any
	pret
lab L6
	synt	any
	pfail
lab L4
	line	6552
	colm	13
	synt	endifelse
	line	6551
	colm	9
	synt	endif
	unmark
lab L2
	pnull
	line	6560
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_Random
	local	0,001000,self
	local	1,000000,UTF8__UTF8
	declend
	line	6565
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	1
	line	6566
	colm	26
	synt	any
	field	Random
	pnull
	var	0
	line	6566
	colm	38
	synt	any
	field	UTF8Value
	line	6566
	colm	48
	synt	any
	invoke	0
	line	6566
	colm	33
	synt	any
	invoke	1
	line	6566
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	6567
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_TabMatch
	local	0,001000,self
	local	1,000000,UTF8__UTF8
	declend
	line	6572
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	1
	line	6573
	colm	26
	synt	any
	field	TabMatch
	pnull
	var	0
	line	6573
	colm	40
	synt	any
	field	UTF8Value
	line	6573
	colm	50
	synt	any
	invoke	0
	line	6573
	colm	35
	synt	any
	invoke	1
	line	6573
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	6574
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_Concatenate
	local	0,001000,self
	local	1,001000,ustr
	local	2,000000,keyword
	local	3,000000,UTF8__UTF8Set
	local	4,000000,image
	local	5,000000,UTF8__UTF8
	con	0,002000,3,103
	con	1,010000,5,046,146,151,154,145
	con	2,002000,1,1
	con	3,010000,5,046,154,151,156,145
	con	4,010000,5,163,145,154,146,072
	con	5,010000,5,165,163,164,162,072
	declend
	line	6589
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	6590
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	6590
	colm	21
	synt	any
	field	AbortMessage
	int	0
	var	2
	str	1
	pnull
	int	2
	line	6590
	colm	46
	synt	any
	invoke	3
	var	2
	str	3
	pnull
	int	2
	line	6590
	colm	66
	synt	any
	invoke	3
	pnull
	var	3
	line	6591
	colm	43
	synt	any
	field	__AuxMessage
	int	0
	line	6591
	colm	56
	synt	any
	invoke	1
	line	6590
	colm	34
	synt	any
	invoke	4
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	6593
	colm	13
	synt	any
	field	DebugPrint
	str	4
	var	4
	var	0
	line	6593
	colm	38
	synt	any
	invoke	1
	str	5
	var	4
	var	1
	line	6593
	colm	60
	synt	any
	invoke	1
	line	6593
	colm	24
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	mark	L4
	pnull
	var	5
	line	6595
	colm	26
	synt	any
	field	Concatenate
	pnull
	var	0
	line	6595
	colm	43
	synt	any
	field	UTF8Value
	line	6595
	colm	53
	synt	any
	invoke	0
	var	1
	line	6595
	colm	38
	synt	any
	invoke	2
	line	6595
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	6596
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_Subsection
	local	0,001000,self
	local	1,001000,i
	local	2,001000,j
	local	3,000000,image
	local	4,000000,keyword
	local	5,000000,UTF8__UTF8Set
	local	6,000000,UTF8__UTF8
	con	0,010000,5,163,145,154,146,072
	con	1,010000,3,040,151,072
	con	2,010000,3,040,152,072
	con	3,002000,3,101
	con	4,010000,5,046,146,151,154,145
	con	5,002000,1,1
	con	6,010000,5,046,154,151,156,145
	declend
	line	6616
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	6618
	colm	13
	synt	any
	field	DebugPrint
	str	0
	var	3
	var	0
	line	6618
	colm	38
	synt	any
	invoke	1
	str	1
	var	1
	str	2
	var	2
	line	6618
	colm	24
	synt	any
	invoke	6
	unmark
lab L1
	mark	L2
	pnull
	var	1
	line	6620
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	6620
	colm	18
	synt	any
	field	AbortMessage
	int	3
	var	4
	str	4
	pnull
	int	5
	line	6620
	colm	43
	synt	any
	invoke	3
	var	4
	str	6
	pnull
	int	5
	line	6620
	colm	63
	synt	any
	invoke	3
	pnull
	var	5
	line	6621
	colm	40
	synt	any
	field	__AuxMessage
	int	3
	line	6621
	colm	53
	synt	any
	invoke	1
	line	6620
	colm	31
	synt	any
	invoke	4
	unmark
lab L2
	mark	L3
	pnull
	var	2
	line	6623
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	6623
	colm	18
	synt	any
	field	AbortMessage
	int	3
	var	4
	str	4
	pnull
	int	5
	line	6623
	colm	43
	synt	any
	invoke	3
	var	4
	str	6
	pnull
	int	5
	line	6623
	colm	63
	synt	any
	invoke	3
	pnull
	var	5
	line	6624
	colm	40
	synt	any
	field	__AuxMessage
	int	3
	line	6624
	colm	53
	synt	any
	invoke	1
	line	6623
	colm	31
	synt	any
	invoke	4
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	var	6
	line	6626
	colm	26
	synt	any
	field	Subsection
	pnull
	var	0
	line	6626
	colm	42
	synt	any
	field	UTF8Value
	line	6626
	colm	52
	synt	any
	invoke	0
	var	1
	var	2
	line	6626
	colm	37
	synt	any
	invoke	3
	line	6626
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	6627
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_Member
	local	0,001000,self
	local	1,001000,c
	local	2,000020,val
	local	3,000020,found
	local	4,000020,cp
	local	5,000000,image
	local	6,000000,type
	local	7,000000,ClassObject__IsObject
	local	8,000000,UTF8__UTF8
	local	9,000000,ximage
	local	10,000000,member
	con	0,002000,1,1
	con	1,002000,1,0
	con	2,010000,10,123,151,172,145,040,157,146,040,143,072
	con	3,010000,1,012
	con	4,010000,9,151,155,141,147,145,050,143,051,072
	con	5,010000,6,163,164,162,151,156,147
	con	6,010000,4,143,163,145,164
	con	7,010000,7,151,156,164,145,147,145,162
	con	8,010000,4,162,145,141,154
	con	9,010000,4,125,124,106,070
	con	10,010000,7,125,124,106,070,123,145,164
	con	11,010000,13,166,141,154,056,123,164,162,151,156,147,050,051,072
	con	12,010000,3,143,160,072
	con	13,010000,38,101,154,154,040,143,157,144,145,160,157,151,156,164,163,040,151,156,040,163,145,164,054,040,163,157,040,151,163,040,141,040,155,145,155,142,145,162,056
	con	14,010000,46,101,154,154,040,143,157,144,145,160,157,151,156,164,163,040,156,157,164,040,151,156,040,163,145,164,054,040,163,157,040,151,163,040,156,157,164,040,141,040,155,145,155,142,145,162,056
	con	15,010000,15,170,151,155,141,147,145,050,137,137,143,163,145,164,051,072
	con	16,010000,20,170,151,155,141,147,145,050,137,137,062,142,171,164,145,144,141,164,141,051,072
	con	17,010000,20,170,151,155,141,147,145,050,137,137,063,142,171,164,145,144,141,164,141,051,072
	con	18,010000,20,170,151,155,141,147,145,050,137,137,064,142,171,164,145,144,141,164,141,051,072
	con	19,010000,25,115,145,155,142,145,162,040,157,146,040,157,156,145,040,157,146,040,164,150,145,040,163,145,164,163
	con	20,010000,29,116,157,164,040,115,145,155,142,145,162,040,157,146,040,157,156,145,040,157,146,040,164,150,145,040,163,145,164,163
	con	21,010000,20,116,157,164,040,106,157,165,156,144,040,151,156,040,141,156,171,040,163,145,164
	con	22,010000,20,106,157,165,156,144,040,151,156,040,156,145,147,141,164,145,144,040,163,145,164
	con	23,010000,32,116,157,164,040,141,040,166,141,154,165,145,040,157,146,040,141,156,171,040,162,145,161,165,151,162,145,144,040,146,157,162,155
	con	24,010000,6,146,157,165,156,144,072
	declend
	line	6634
	colm	11
	synt	any
	mark	L1
	pnull
	var	3
	int	0
	line	6637
	colm	23
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	6641
	colm	9
	synt	any
	size
	int	1
	line	6641
	colm	12
	synt	any
	numeq
	pop
	mark	L3
	var	0
	line	6641
	colm	18
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	mark	L4
	pnull
	var	0
	line	6643
	colm	13
	synt	any
	field	DebugPrint
	str	2
	pnull
	var	1
	line	6643
	colm	38
	synt	any
	size
	str	3
	str	4
	var	5
	var	1
	line	6643
	colm	64
	synt	any
	invoke	1
	line	6643
	colm	24
	synt	any
	invoke	5
	unmark
lab L4
	mark	L5
	line	6645
	colm	9
	synt	every
	mark0
	pnull
	var	2
	pnull
	var	1
	line	6645
	colm	22
	synt	any
	bang
	line	6645
	colm	19
	synt	any
	asgn
	pop
	mark0
	line	6646
	colm	13
	synt	ifelse
	mark	L8
	mark	L10
	pnull
	var	6
	var	2
	line	6646
	colm	22
	synt	any
	invoke	1
	mark	L12
	str	5
	line	6646
	colm	41
	synt	any
	esusp
	goto	L13
lab L12
	mark	L14
	str	6
	line	6646
	colm	50
	synt	any
	esusp
	goto	L15
lab L14
	mark	L16
	str	7
	line	6646
	colm	62
	synt	any
	esusp
	goto	L17
lab L16
	str	8
lab L17
lab L15
lab L13
	line	6646
	colm	28
	synt	any
	lexeq
	line	6646
	colm	72
	synt	any
	esusp
	goto	L11
lab L10
	var	7
	var	2
	mark	L18
	str	9
	line	6646
	colm	106
	synt	any
	esusp
	goto	L19
lab L18
	str	10
lab L19
	line	6646
	colm	95
	synt	any
	invoke	2
lab L11
	unmark
	mark	L20
	pnull
	var	2
	pnull
	var	8
	line	6647
	colm	34
	synt	any
	field	__Coerce
	var	2
	line	6647
	colm	43
	synt	any
	invoke	1
	line	6647
	colm	21
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	var	0
	line	6649
	colm	21
	synt	any
	field	DebugPrint
	str	11
	pnull
	var	2
	line	6649
	colm	52
	synt	any
	field	String
	line	6649
	colm	59
	synt	any
	invoke	0
	line	6649
	colm	32
	synt	any
	invoke	2
	unmark
lab L21
	line	6651
	colm	17
	synt	every
	mark0
	pnull
	var	4
	pnull
	pnull
	var	2
	line	6651
	colm	32
	synt	any
	field	ForEach
	line	6651
	colm	40
	synt	any
	invoke	0
	line	6651
	colm	42
	synt	any
	field	String
	line	6651
	colm	49
	synt	any
	invoke	0
	line	6651
	colm	26
	synt	any
	asgn
	pop
	mark0
	mark	L24
	pnull
	var	0
	line	6653
	colm	25
	synt	any
	field	DebugPrint
	str	12
	var	4
	line	6653
	colm	36
	synt	any
	invoke	2
	unmark
lab L24
	line	6655
	colm	21
	synt	ifelse
	mark	L25
	pnull
	pnull
	var	0
	line	6655
	colm	29
	synt	any
	field	__allcp
	line	6655
	colm	24
	synt	any
	nonnull
	unmark
	line	6656
	colm	25
	synt	ifelse
	mark	L27
	pnull
	pnull
	var	0
	line	6656
	colm	33
	synt	any
	field	__negated
	line	6656
	colm	28
	synt	any
	null
	unmark
	mark	L29
	pnull
	var	0
	line	6658
	colm	33
	synt	any
	field	DebugPrint
	str	13
	line	6658
	colm	44
	synt	any
	invoke	1
	unmark
lab L29
	unmark
	unmark
	pnull
	goto	L23
	goto	L28
lab L27
	mark	L30
	pnull
	var	0
	line	6663
	colm	33
	synt	any
	field	DebugPrint
	str	14
	line	6663
	colm	44
	synt	any
	invoke	1
	unmark
lab L30
	mark	L31
	pnull
	var	3
	line	6665
	colm	38
	synt	any
	keywd	null
	line	6665
	colm	35
	synt	any
	asgn
	unmark
lab L31
	unmark
	unmark
	unmark
	unmark
	pnull
	goto	L7
	goto	L23
lab L28
	line	6656
	colm	25
	synt	endifelse
	goto	L26
lab L25
	mark	L32
	pnull
	var	0
	line	6670
	colm	29
	synt	any
	field	DebugPrint
	str	15
	var	9
	pnull
	var	0
	line	6670
	colm	70
	synt	any
	field	__cset
	line	6670
	colm	65
	synt	any
	invoke	1
	str	3
	str	16
	var	9
	pnull
	var	0
	line	6671
	colm	73
	synt	any
	field	__2bytedata
	line	6671
	colm	68
	synt	any
	invoke	1
	str	3
	str	17
	var	9
	pnull
	var	0
	line	6672
	colm	73
	synt	any
	field	__3bytedata
	line	6672
	colm	68
	synt	any
	invoke	1
	str	3
	str	18
	var	9
	pnull
	var	0
	line	6673
	colm	73
	synt	any
	field	__4bytedata
	line	6673
	colm	68
	synt	any
	invoke	1
	line	6670
	colm	40
	synt	any
	invoke	11
	unmark
lab L32
	line	6675
	colm	25
	synt	ifelse
	mark	L33
	var	10
	mark	L35
	pnull
	pnull
	var	0
	line	6675
	colm	42
	synt	any
	field	__cset
	line	6675
	colm	37
	synt	any
	nonnull
	line	6675
	colm	49
	synt	any
	esusp
	goto	L36
lab L35
	mark	L37
	pnull
	pnull
	var	0
	line	6675
	colm	55
	synt	any
	field	__2bytedata
	line	6675
	colm	50
	synt	any
	nonnull
	line	6675
	colm	67
	synt	any
	esusp
	goto	L38
lab L37
	mark	L39
	pnull
	pnull
	var	0
	line	6675
	colm	73
	synt	any
	field	__3bytedata
	line	6675
	colm	68
	synt	any
	nonnull
	line	6675
	colm	85
	synt	any
	esusp
	goto	L40
lab L39
	pnull
	pnull
	var	0
	line	6675
	colm	91
	synt	any
	field	__4bytedata
	line	6675
	colm	86
	synt	any
	nonnull
lab L40
lab L38
lab L36
	var	4
	line	6675
	colm	36
	synt	any
	invoke	2
	unmark
	line	6676
	colm	29
	synt	ifelse
	mark	L41
	pnull
	pnull
	var	0
	line	6676
	colm	37
	synt	any
	field	__negated
	line	6676
	colm	32
	synt	any
	null
	unmark
	pnull
	var	0
	line	6679
	colm	37
	synt	any
	field	DebugPrint
	str	19
	line	6679
	colm	48
	synt	any
	invoke	1
	goto	L42
lab L41
	mark	L43
	pnull
	var	0
	line	6683
	colm	37
	synt	any
	field	DebugPrint
	str	20
	line	6683
	colm	48
	synt	any
	invoke	1
	unmark
lab L43
	mark	L44
	pnull
	var	3
	line	6685
	colm	42
	synt	any
	keywd	null
	line	6685
	colm	39
	synt	any
	asgn
	unmark
lab L44
	unmark
	unmark
	unmark
	unmark
	pnull
	goto	L7
	goto	L23
lab L42
	line	6676
	colm	29
	synt	endifelse
	goto	L34
lab L33
	line	6689
	colm	29
	synt	ifelse
	mark	L45
	pnull
	pnull
	var	0
	line	6689
	colm	37
	synt	any
	field	__negated
	line	6689
	colm	32
	synt	any
	null
	unmark
	mark	L47
	pnull
	var	3
	line	6690
	colm	42
	synt	any
	keywd	null
	line	6690
	colm	39
	synt	any
	asgn
	unmark
lab L47
	mark	L48
	pnull
	var	0
	line	6692
	colm	37
	synt	any
	field	DebugPrint
	str	21
	line	6692
	colm	48
	synt	any
	invoke	1
	unmark
lab L48
	unmark
	unmark
	unmark
	unmark
	pnull
	goto	L7
	goto	L23
	goto	L46
lab L45
	pnull
	var	0
	line	6697
	colm	37
	synt	any
	field	DebugPrint
	str	22
	line	6697
	colm	48
	synt	any
	invoke	1
lab L46
	line	6689
	colm	29
	synt	endifelse
lab L34
	line	6675
	colm	25
	synt	endifelse
lab L26
	line	6655
	colm	21
	synt	endifelse
	unmark
lab L22
	efail
lab L23
	line	6651
	colm	17
	synt	endevery
	goto	L9
lab L8
	mark	L49
	pnull
	var	3
	line	6703
	colm	26
	synt	any
	keywd	null
	line	6703
	colm	23
	synt	any
	asgn
	unmark
lab L49
	mark	L50
	pnull
	var	0
	line	6705
	colm	21
	synt	any
	field	DebugPrint
	str	23
	line	6705
	colm	32
	synt	any
	invoke	1
	unmark
lab L50
	unmark
	unmark
	pnull
	goto	L7
lab L9
	line	6646
	colm	13
	synt	endifelse
	unmark
lab L6
	efail
lab L7
	line	6645
	colm	9
	synt	endevery
	unmark
lab L5
	mark	L51
	pnull
	var	0
	line	6711
	colm	13
	synt	any
	field	DebugPrint
	str	24
	var	9
	var	3
	line	6711
	colm	40
	synt	any
	invoke	1
	line	6711
	colm	24
	synt	any
	invoke	2
	unmark
lab L51
	mark	L52
	mark	L53
	mark	L54
	pnull
	var	3
	line	6713
	colm	17
	synt	any
	nonnull
	pop
	var	0
	line	6713
	colm	32
	synt	any
	esusp
	goto	L55
lab L54
	line	6713
	colm	34
	synt	any
	pfail
lab L55
	line	6713
	colm	9
	synt	any
	pret
lab L53
	synt	any
	pfail
	unmark
lab L52
	pnull
	line	6714
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_UTF8Value
	local	0,001000,self
	declend
	line	6726
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	6727
	colm	21
	synt	any
	field	__string_representation
	line	6727
	colm	16
	synt	any
	value
	line	6727
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	6728
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_String
	local	0,001000,self
	declend
	line	6740
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	6741
	colm	21
	synt	any
	field	__string_representation
	line	6741
	colm	45
	synt	any
	field	String
	line	6741
	colm	52
	synt	any
	invoke	0
	line	6741
	colm	16
	synt	any
	value
	line	6741
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	6742
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject_initially
	local	0,001000,self
	local	1,001000,val
	local	2,000020,data
	local	3,000020,ch
	local	4,000020,__1
	local	5,000020,__2
	local	6,000020,__3
	local	7,000020,__4
	local	8,000020,temp
	local	9,000000,type
	local	10,000000,classname
	local	11,000000,ClassObject__IsObjectOf
	local	12,000000,variable
	local	13,000000,string
	local	14,000000,set
	local	15,000000,put
	local	16,000000,UTF8__UTF8
	local	17,000000,UTF8__UTF8Set
	local	18,000000,ximage
	local	19,000000,cset
	local	20,000000,sort
	local	21,000000,image
	local	22,000000,insert
	local	23,000000,keyword
	con	0,010000,12,164,171,160,145,040,157,146,040,166,141,154,072
	con	1,010000,17,143,154,141,163,163,156,141,155,145,040,157,146,040,166,141,154,072
	con	2,010000,13,156,157,040,143,154,141,163,163,040,156,141,155,145
	con	3,010000,7,125,124,106,070,123,145,164
	con	4,010000,5,166,141,154,072,040
	con	5,010000,4,163,145,154,146
	con	6,002000,1,1
	con	7,010000,4,143,163,145,164
	con	8,002000,1,0
	con	9,010000,33,040,141,156,144,040,143,157,166,145,162,163,040,164,150,145,040,101,123,103,111,111,040,143,150,141,162,141,143,164,145,162,163,056
	con	10,010000,15,040,166,141,154,165,145,040,157,146,040,166,141,154,072,040
	con	11,010000,53,055,055,040,106,165,154,154,040,125,124,106,055,070,040,143,157,144,145,160,157,151,156,164,040,163,145,164,040,050,061,054,061,061,062,054,060,066,064,040,143,157,144,145,160,157,151,156,164,163,051,040,055,055
	con	12,010000,7,151,156,164,145,147,145,162
	con	13,010000,4,162,145,141,154
	con	14,010000,4,166,141,154,072
	con	15,010000,7,137,137,143,163,145,164,072
	con	16,010000,5,144,141,164,141,072
	con	17,010000,0
	con	18,010000,22,137,137,143,163,145,164,040,053,053,040,137,137,062,142,171,164,145,144,141,164,141,072
	con	19,010000,6,163,164,162,151,156,147
	con	20,010000,4,125,124,106,070
	con	21,010000,6,154,145,166,145,154,050
	con	22,010000,14,051,040,164,171,160,145,040,157,146,040,166,141,154,072
	con	23,010000,19,051,040,143,154,141,163,163,156,141,155,145,040,157,146,040,166,141,154,072
	con	24,010000,4,156,157,156,145
	con	25,010000,8,012,137,137,143,163,145,164,072
	con	26,010000,13,012,137,137,062,142,171,164,145,144,141,164,141,072
	con	27,010000,13,012,137,137,063,142,171,164,145,144,141,164,141,072
	con	28,010000,13,012,137,137,064,142,171,164,145,144,141,164,141,072
	con	29,002000,1,2
	con	30,002000,1,3
	con	31,002000,1,4
	con	32,002000,3,104
	con	33,010000,5,046,146,151,154,145
	con	34,010000,5,046,154,151,156,145
	declend
	line	6752
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	6772
	colm	9
	synt	any
	field	IsOn
	line	6772
	colm	14
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	6774
	colm	9
	synt	any
	field	DebugPrint
	str	0
	var	9
	var	1
	line	6774
	colm	40
	synt	any
	invoke	1
	str	1
	mark	L3
	var	10
	var	1
	line	6775
	colm	48
	synt	any
	invoke	1
	line	6775
	colm	54
	synt	any
	esusp
	goto	L4
lab L3
	str	2
lab L4
	line	6774
	colm	20
	synt	any
	invoke	4
	unmark
lab L2
	mark	L5
	line	6789
	colm	5
	synt	ifelse
	mark	L6
	var	11
	var	1
	str	3
	line	6789
	colm	31
	synt	any
	invoke	2
	unmark
	mark	L8
	pnull
	var	0
	line	6791
	colm	13
	synt	any
	field	DebugPrint
	str	4
	pnull
	var	1
	line	6791
	colm	36
	synt	any
	field	String
	line	6791
	colm	43
	synt	any
	invoke	0
	line	6791
	colm	24
	synt	any
	invoke	2
	unmark
lab L8
	pnull
	var	12
	str	5
	pnull
	int	6
	line	6793
	colm	17
	synt	any
	invoke	3
	var	1
	line	6793
	colm	31
	synt	any
	asgn
	goto	L7
lab L6
	line	6802
	colm	12
	synt	ifelse
	mark	L9
	pnull
	var	9
	var	1
	line	6802
	colm	21
	synt	any
	invoke	1
	str	7
	line	6802
	colm	27
	synt	any
	lexeq
	pop
	pnull
	pnull
	pnull
	var	1
	line	6802
	colm	48
	synt	any
	keywd	ascii
	line	6802
	colm	45
	synt	any
	diff
	line	6802
	colm	39
	synt	any
	size
	int	8
	line	6802
	colm	56
	synt	any
	numeq
	unmark
	mark	L11
	pnull
	var	0
	line	6804
	colm	13
	synt	any
	field	DebugPrint
	str	0
	var	9
	var	1
	line	6804
	colm	44
	synt	any
	invoke	1
	str	9
	line	6804
	colm	24
	synt	any
	invoke	3
	unmark
lab L11
	mark	L12
	pnull
	var	2
	var	13
	var	1
	line	6812
	colm	25
	synt	any
	invoke	1
	line	6812
	colm	14
	synt	any
	asgn
	unmark
lab L12
	mark	L13
	pnull
	pnull
	var	0
	line	6813
	colm	13
	synt	any
	field	__cset
	var	14
	mark	L14
	pnull
	var	4
	pnull
	line	6813
	colm	33
	synt	any
	llist	0
	line	6813
	colm	31
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	line	6813
	colm	37
	synt	every
	mark0
	var	15
	var	4
	pnull
	var	2
	line	6813
	colm	52
	synt	any
	bang
	line	6813
	colm	46
	synt	any
	invoke	2
	pop
lab L16
	efail
lab L17
	line	6813
	colm	37
	synt	endevery
	unmark
lab L15
	line	6813
	colm	60
	synt	if
	mark0
	pnull
	pnull
	var	4
	line	6813
	colm	63
	synt	any
	size
	int	8
	line	6813
	colm	67
	synt	any
	numgt
	unmark
	var	4
	line	6813
	colm	60
	synt	endif
	line	6813
	colm	25
	synt	any
	invoke	1
	line	6813
	colm	20
	synt	any
	asgn
	unmark
lab L13
	mark	L18
	pnull
	pnull
	var	0
	line	6814
	colm	13
	synt	any
	field	__2bytedata
	var	14
	pnull
	line	6814
	colm	31
	synt	any
	llist	0
	line	6814
	colm	30
	synt	any
	invoke	1
	line	6814
	colm	25
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	pnull
	var	0
	line	6815
	colm	13
	synt	any
	field	__3bytedata
	var	14
	pnull
	line	6815
	colm	31
	synt	any
	llist	0
	line	6815
	colm	30
	synt	any
	invoke	1
	line	6815
	colm	25
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	pnull
	var	0
	line	6816
	colm	13
	synt	any
	field	__4bytedata
	var	14
	pnull
	line	6816
	colm	31
	synt	any
	llist	0
	line	6816
	colm	30
	synt	any
	invoke	1
	line	6816
	colm	25
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	pnull
	var	0
	line	6817
	colm	13
	synt	any
	field	__string_representation
	pnull
	var	16
	line	6817
	colm	49
	synt	any
	field	SpecialString
	var	13
	var	1
	line	6817
	colm	70
	synt	any
	invoke	1
	line	6817
	colm	63
	synt	any
	invoke	1
	line	6817
	colm	37
	synt	any
	asgn
	unmark
lab L21
	pnull
	var	0
	pnull
	var	17
	line	6828
	colm	30
	synt	any
	field	Defined
	line	6828
	colm	38
	synt	any
	invoke	0
	line	6828
	colm	14
	synt	any
	asgn
	goto	L10
lab L9
	line	6834
	colm	12
	synt	ifelse
	mark	L22
	pnull
	var	1
	line	6834
	colm	15
	synt	any
	null
	unmark
	mark	L24
	pnull
	var	0
	line	6840
	colm	13
	synt	any
	field	DebugPrint
	str	0
	var	9
	var	1
	line	6840
	colm	44
	synt	any
	invoke	1
	str	10
	var	18
	var	1
	line	6840
	colm	76
	synt	any
	invoke	1
	line	6840
	colm	24
	synt	any
	invoke	4
	unmark
lab L24
	line	6842
	colm	9
	synt	ifelse
	mark	L25
	pnull
	var	8
	pnull
	pnull
	var	17
	line	6842
	colm	34
	synt	any
	field	All
	line	6842
	colm	38
	synt	any
	invoke	0
	line	6842
	colm	20
	synt	any
	nonnull
	line	6842
	colm	17
	synt	any
	asgn
	unmark
	pnull
	var	12
	str	5
	pnull
	int	6
	line	6852
	colm	21
	synt	any
	invoke	3
	var	8
	line	6852
	colm	35
	synt	any
	asgn
	goto	L26
lab L25
	mark	L27
	pnull
	pnull
	var	0
	line	6858
	colm	17
	synt	any
	field	__cset
	var	14
	pnull
	line	6858
	colm	30
	synt	any
	llist	0
	line	6858
	colm	29
	synt	any
	invoke	1
	line	6858
	colm	24
	synt	any
	asgn
	unmark
lab L27
	mark	L28
	pnull
	pnull
	var	0
	line	6859
	colm	17
	synt	any
	field	__2bytedata
	var	14
	pnull
	line	6859
	colm	35
	synt	any
	llist	0
	line	6859
	colm	34
	synt	any
	invoke	1
	line	6859
	colm	29
	synt	any
	asgn
	unmark
lab L28
	mark	L29
	pnull
	pnull
	var	0
	line	6860
	colm	17
	synt	any
	field	__3bytedata
	var	14
	pnull
	line	6860
	colm	35
	synt	any
	llist	0
	line	6860
	colm	34
	synt	any
	invoke	1
	line	6860
	colm	29
	synt	any
	asgn
	unmark
lab L29
	mark	L30
	pnull
	pnull
	var	0
	line	6861
	colm	17
	synt	any
	field	__4bytedata
	var	14
	pnull
	line	6861
	colm	35
	synt	any
	llist	0
	line	6861
	colm	34
	synt	any
	invoke	1
	line	6861
	colm	29
	synt	any
	asgn
	unmark
lab L30
	mark	L31
	pnull
	pnull
	var	0
	line	6862
	colm	17
	synt	any
	field	__allcp
	int	6
	line	6862
	colm	25
	synt	any
	asgn
	unmark
lab L31
	pnull
	pnull
	var	0
	line	6863
	colm	17
	synt	any
	field	__string_representation
	pnull
	var	16
	line	6863
	colm	53
	synt	any
	field	New
	str	11
	line	6863
	colm	57
	synt	any
	invoke	1
	line	6863
	colm	41
	synt	any
	asgn
lab L26
	line	6842
	colm	9
	synt	endifelse
	goto	L23
lab L22
	line	6874
	colm	12
	synt	ifelse
	mark	L32
	pnull
	var	9
	var	1
	line	6874
	colm	21
	synt	any
	invoke	1
	mark	L34
	str	12
	line	6874
	colm	41
	synt	any
	esusp
	goto	L35
lab L34
	str	13
lab L35
	line	6874
	colm	27
	synt	any
	lexeq
	unmark
	mark	L36
	pnull
	var	0
	line	6876
	colm	13
	synt	any
	field	DebugPrint
	str	0
	var	9
	var	1
	line	6876
	colm	44
	synt	any
	invoke	1
	str	10
	var	18
	var	1
	line	6876
	colm	76
	synt	any
	invoke	1
	line	6876
	colm	24
	synt	any
	invoke	4
	unmark
lab L36
	mark	L37
	pnull
	var	2
	var	13
	var	19
	var	1
	line	6878
	colm	32
	synt	any
	invoke	1
	line	6878
	colm	25
	synt	any
	invoke	1
	line	6878
	colm	14
	synt	any
	asgn
	unmark
lab L37
	mark	L38
	pnull
	pnull
	var	0
	line	6879
	colm	13
	synt	any
	field	__cset
	var	14
	mark	L39
	pnull
	var	5
	pnull
	line	6879
	colm	33
	synt	any
	llist	0
	line	6879
	colm	31
	synt	any
	asgn
	unmark
lab L39
	mark	L40
	line	6879
	colm	37
	synt	every
	mark0
	var	15
	var	5
	pnull
	var	2
	line	6879
	colm	52
	synt	any
	bang
	line	6879
	colm	46
	synt	any
	invoke	2
	pop
lab L41
	efail
lab L42
	line	6879
	colm	37
	synt	endevery
	unmark
lab L40
	line	6879
	colm	60
	synt	if
	mark0
	pnull
	pnull
	var	5
	line	6879
	colm	63
	synt	any
	size
	int	8
	line	6879
	colm	67
	synt	any
	numgt
	unmark
	var	5
	line	6879
	colm	60
	synt	endif
	line	6879
	colm	25
	synt	any
	invoke	1
	line	6879
	colm	20
	synt	any
	asgn
	unmark
lab L38
	mark	L43
	pnull
	pnull
	var	0
	line	6880
	colm	13
	synt	any
	field	__2bytedata
	var	14
	pnull
	line	6880
	colm	31
	synt	any
	llist	0
	line	6880
	colm	30
	synt	any
	invoke	1
	line	6880
	colm	25
	synt	any
	asgn
	unmark
lab L43
	mark	L44
	pnull
	pnull
	var	0
	line	6881
	colm	13
	synt	any
	field	__3bytedata
	var	14
	pnull
	line	6881
	colm	31
	synt	any
	llist	0
	line	6881
	colm	30
	synt	any
	invoke	1
	line	6881
	colm	25
	synt	any
	asgn
	unmark
lab L44
	mark	L45
	pnull
	pnull
	var	0
	line	6882
	colm	13
	synt	any
	field	__4bytedata
	var	14
	pnull
	line	6882
	colm	31
	synt	any
	llist	0
	line	6882
	colm	30
	synt	any
	invoke	1
	line	6882
	colm	25
	synt	any
	asgn
	unmark
lab L45
	pnull
	pnull
	var	0
	line	6883
	colm	13
	synt	any
	field	__string_representation
	pnull
	var	16
	line	6883
	colm	49
	synt	any
	field	New
	var	2
	line	6883
	colm	53
	synt	any
	invoke	1
	line	6883
	colm	37
	synt	any
	asgn
	goto	L33
lab L32
	line	6892
	colm	12
	synt	ifelse
	mark	L46
	pnull
	var	9
	var	1
	line	6892
	colm	21
	synt	any
	invoke	1
	str	7
	line	6892
	colm	27
	synt	any
	lexeq
	unmark
	mark	L48
	pnull
	var	0
	line	6894
	colm	13
	synt	any
	field	DebugPrint
	str	14
	var	18
	var	1
	line	6894
	colm	38
	synt	any
	invoke	1
	line	6894
	colm	24
	synt	any
	invoke	2
	unmark
lab L48
	mark	L49
	pnull
	var	8
	var	13
	pnull
	var	1
	line	6898
	colm	33
	synt	any
	keywd	ascii
	line	6898
	colm	30
	synt	any
	inter
	line	6898
	colm	25
	synt	any
	invoke	1
	line	6898
	colm	14
	synt	any
	asgn
	unmark
lab L49
	mark	L50
	pnull
	var	0
	line	6900
	colm	13
	synt	any
	field	DebugPrint
	str	15
	var	18
	var	8
	line	6900
	colm	41
	synt	any
	invoke	1
	line	6900
	colm	24
	synt	any
	invoke	2
	unmark
lab L50
	mark	L51
	pnull
	pnull
	var	0
	line	6902
	colm	13
	synt	any
	field	__cset
	var	14
	mark	L52
	pnull
	var	6
	pnull
	line	6902
	colm	33
	synt	any
	llist	0
	line	6902
	colm	31
	synt	any
	asgn
	unmark
lab L52
	mark	L53
	line	6902
	colm	37
	synt	every
	mark0
	var	15
	var	6
	pnull
	var	8
	line	6902
	colm	52
	synt	any
	bang
	line	6902
	colm	46
	synt	any
	invoke	2
	pop
lab L54
	efail
lab L55
	line	6902
	colm	37
	synt	endevery
	unmark
lab L53
	line	6902
	colm	60
	synt	if
	mark0
	pnull
	pnull
	var	6
	line	6902
	colm	63
	synt	any
	size
	int	8
	line	6902
	colm	67
	synt	any
	numgt
	unmark
	var	6
	line	6902
	colm	60
	synt	endif
	line	6902
	colm	25
	synt	any
	invoke	1
	line	6902
	colm	20
	synt	any
	asgn
	unmark
lab L51
	mark	L56
	pnull
	var	2
	var	13
	pnull
	var	1
	line	6908
	colm	33
	synt	any
	keywd	ascii
	line	6908
	colm	30
	synt	any
	diff
	line	6908
	colm	25
	synt	any
	invoke	1
	line	6908
	colm	14
	synt	any
	asgn
	unmark
lab L56
	mark	L57
	pnull
	var	0
	line	6910
	colm	13
	synt	any
	field	DebugPrint
	str	16
	var	18
	var	2
	line	6910
	colm	39
	synt	any
	invoke	1
	line	6910
	colm	24
	synt	any
	invoke	2
	unmark
lab L57
	mark	L58
	pnull
	pnull
	var	0
	line	6912
	colm	13
	synt	any
	field	__2bytedata
	var	14
	mark	L59
	pnull
	var	7
	pnull
	line	6912
	colm	38
	synt	any
	llist	0
	line	6912
	colm	36
	synt	any
	asgn
	unmark
lab L59
	mark	L60
	line	6912
	colm	42
	synt	every
	mark0
	var	15
	var	7
	pnull
	var	16
	line	6912
	colm	67
	synt	any
	field	ByteTranslate
	pnull
	var	2
	line	6912
	colm	82
	synt	any
	bang
	line	6912
	colm	81
	synt	any
	invoke	1
	line	6912
	colm	51
	synt	any
	invoke	2
	pop
lab L61
	efail
lab L62
	line	6912
	colm	42
	synt	endevery
	unmark
lab L60
	line	6912
	colm	91
	synt	if
	mark0
	pnull
	pnull
	var	7
	line	6912
	colm	94
	synt	any
	size
	int	8
	line	6912
	colm	98
	synt	any
	numgt
	unmark
	var	7
	line	6912
	colm	91
	synt	endif
	line	6912
	colm	30
	synt	any
	invoke	1
	line	6912
	colm	25
	synt	any
	asgn
	unmark
lab L58
	mark	L63
	pnull
	pnull
	var	0
	line	6913
	colm	13
	synt	any
	field	__3bytedata
	var	14
	pnull
	line	6913
	colm	31
	synt	any
	llist	0
	line	6913
	colm	30
	synt	any
	invoke	1
	line	6913
	colm	25
	synt	any
	asgn
	unmark
lab L63
	mark	L64
	pnull
	pnull
	var	0
	line	6914
	colm	13
	synt	any
	field	__4bytedata
	var	14
	pnull
	line	6914
	colm	31
	synt	any
	llist	0
	line	6914
	colm	30
	synt	any
	invoke	1
	line	6914
	colm	25
	synt	any
	asgn
	unmark
lab L64
	mark	L65
	pnull
	var	8
	str	17
	line	6920
	colm	14
	synt	any
	asgn
	unmark
lab L65
	mark	L66
	line	6921
	colm	9
	synt	every
	mark0
	pnull
	var	8
	dup
	pnull
	var	20
	pnull
	pnull
	var	0
	line	6921
	colm	37
	synt	any
	field	__cset
	pnull
	var	0
	line	6921
	colm	50
	synt	any
	field	__2bytedata
	line	6921
	colm	44
	synt	any
	unions
	line	6921
	colm	32
	synt	any
	invoke	1
	line	6921
	colm	25
	synt	any
	bang
	line	6921
	colm	20
	synt	any
	cat
	asgn
	pop
lab L67
	efail
lab L68
	line	6921
	colm	9
	synt	endevery
	unmark
lab L66
	mark	L69
	pnull
	var	0
	line	6923
	colm	13
	synt	any
	field	DebugPrint
	str	18
	var	18
	var	8
	line	6923
	colm	56
	synt	any
	invoke	1
	line	6923
	colm	24
	synt	any
	invoke	2
	unmark
lab L69
	pnull
	pnull
	var	0
	line	6925
	colm	13
	synt	any
	field	__string_representation
	pnull
	var	16
	line	6925
	colm	49
	synt	any
	field	New
	var	8
	line	6925
	colm	53
	synt	any
	invoke	1
	line	6925
	colm	37
	synt	any
	asgn
	goto	L47
lab L46
	line	6933
	colm	12
	synt	ifelse
	mark	L70
	mark	L72
	pnull
	var	9
	var	1
	line	6933
	colm	21
	synt	any
	invoke	1
	str	19
	line	6933
	colm	27
	synt	any
	lexeq
	line	6933
	colm	39
	synt	any
	esusp
	goto	L73
lab L72
	var	11
	var	1
	str	20
	line	6933
	colm	64
	synt	any
	invoke	2
lab L73
	unmark
	mark	L74
	pnull
	var	0
	line	6935
	colm	13
	synt	any
	field	DebugPrint
	str	21
	line	6935
	colm	34
	synt	any
	keywd	level
	str	22
	var	9
	var	1
	line	6935
	colm	62
	synt	any
	invoke	1
	str	10
	var	21
	var	1
	line	6935
	colm	95
	synt	any
	invoke	1
	line	6935
	colm	24
	synt	any
	invoke	6
	unmark
lab L74
	mark	L75
	pnull
	var	1
	pnull
	var	16
	line	6937
	colm	26
	synt	any
	field	__Coerce
	var	1
	line	6937
	colm	35
	synt	any
	invoke	1
	line	6937
	colm	13
	synt	any
	asgn
	unmark
lab L75
	mark	L76
	pnull
	var	0
	line	6939
	colm	13
	synt	any
	field	DebugPrint
	str	21
	line	6939
	colm	34
	synt	any
	keywd	level
	str	23
	mark	L77
	var	10
	var	1
	line	6939
	colm	72
	synt	any
	invoke	1
	line	6939
	colm	78
	synt	any
	esusp
	goto	L78
lab L77
	str	24
lab L78
	str	10
	var	21
	var	1
	line	6939
	colm	114
	synt	any
	invoke	1
	line	6939
	colm	24
	synt	any
	invoke	6
	unmark
lab L76
	mark	L79
	pnull
	pnull
	var	0
	line	6941
	colm	13
	synt	any
	field	__cset
	var	14
	pnull
	line	6941
	colm	26
	synt	any
	llist	0
	line	6941
	colm	25
	synt	any
	invoke	1
	line	6941
	colm	20
	synt	any
	asgn
	unmark
lab L79
	mark	L80
	pnull
	pnull
	var	0
	line	6942
	colm	13
	synt	any
	field	__2bytedata
	var	14
	pnull
	line	6942
	colm	31
	synt	any
	llist	0
	line	6942
	colm	30
	synt	any
	invoke	1
	line	6942
	colm	25
	synt	any
	asgn
	unmark
lab L80
	mark	L81
	pnull
	pnull
	var	0
	line	6943
	colm	13
	synt	any
	field	__3bytedata
	var	14
	pnull
	line	6943
	colm	31
	synt	any
	llist	0
	line	6943
	colm	30
	synt	any
	invoke	1
	line	6943
	colm	25
	synt	any
	asgn
	unmark
lab L81
	mark	L82
	pnull
	pnull
	var	0
	line	6944
	colm	13
	synt	any
	field	__4bytedata
	var	14
	pnull
	line	6944
	colm	31
	synt	any
	llist	0
	line	6944
	colm	30
	synt	any
	invoke	1
	line	6944
	colm	25
	synt	any
	asgn
	unmark
lab L82
	mark	L83
	pnull
	var	0
	line	6946
	colm	13
	synt	any
	field	DebugPrint
	str	25
	var	18
	pnull
	var	0
	line	6946
	colm	48
	synt	any
	field	__cset
	line	6946
	colm	43
	synt	any
	invoke	1
	str	26
	var	18
	pnull
	var	0
	line	6946
	colm	85
	synt	any
	field	__2bytedata
	line	6946
	colm	80
	synt	any
	invoke	1
	str	27
	var	18
	pnull
	var	0
	line	6946
	colm	127
	synt	any
	field	__3bytedata
	line	6946
	colm	122
	synt	any
	invoke	1
	str	28
	var	18
	pnull
	var	0
	line	6946
	colm	169
	synt	any
	field	__4bytedata
	line	6946
	colm	164
	synt	any
	invoke	1
	line	6946
	colm	24
	synt	any
	invoke	8
	unmark
lab L83
	mark	L84
	line	6948
	colm	9
	synt	every
	mark0
	pnull
	var	2
	pnull
	pnull
	var	1
	line	6948
	colm	26
	synt	any
	field	ForEach
	line	6948
	colm	34
	synt	any
	invoke	0
	line	6948
	colm	36
	synt	any
	field	String
	line	6948
	colm	43
	synt	any
	invoke	0
	line	6948
	colm	20
	synt	any
	asgn
	pop
	mark0
	line	6949
	colm	13
	synt	case
	mark0
	pnull
	var	2
	line	6949
	colm	18
	synt	any
	size
	eret
	mark	L88
	ccase
	int	6
	line	6950
	colm	19
	synt	any
	eqv
	unmark
	pop
	var	22
	pnull
	var	0
	line	6951
	colm	34
	synt	any
	field	__cset
	var	2
	line	6951
	colm	29
	synt	any
	invoke	2
	goto	L87
lab L88
	mark	L89
	ccase
	int	29
	line	6953
	colm	19
	synt	any
	eqv
	unmark
	pop
	var	22
	pnull
	var	0
	line	6954
	colm	34
	synt	any
	field	__2bytedata
	var	2
	line	6954
	colm	29
	synt	any
	invoke	2
	goto	L87
lab L89
	mark	L90
	ccase
	int	30
	line	6956
	colm	19
	synt	any
	eqv
	unmark
	pop
	var	22
	pnull
	var	0
	line	6957
	colm	34
	synt	any
	field	__3bytedata
	var	2
	line	6957
	colm	29
	synt	any
	invoke	2
	goto	L87
lab L90
	mark	L91
	ccase
	int	31
	line	6959
	colm	19
	synt	any
	eqv
	unmark
	pop
	var	22
	pnull
	var	0
	line	6960
	colm	34
	synt	any
	field	__4bytedata
	var	2
	line	6960
	colm	29
	synt	any
	invoke	2
	goto	L87
lab L91
	efail
lab L87
	line	6949
	colm	13
	synt	endcase
	unmark
lab L85
	efail
lab L86
	line	6948
	colm	9
	synt	endevery
	unmark
lab L84
	mark	L92
	pnull
	var	8
	str	17
	line	6964
	colm	14
	synt	any
	asgn
	unmark
lab L92
	mark	L93
	line	6965
	colm	9
	synt	every
	mark0
	pnull
	var	8
	dup
	pnull
	var	20
	pnull
	pnull
	pnull
	pnull
	var	0
	line	6965
	colm	37
	synt	any
	field	__cset
	pnull
	var	0
	line	6965
	colm	50
	synt	any
	field	__2bytedata
	line	6965
	colm	44
	synt	any
	unions
	pnull
	var	0
	line	6965
	colm	68
	synt	any
	field	__3bytedata
	line	6965
	colm	62
	synt	any
	unions
	pnull
	var	0
	line	6965
	colm	86
	synt	any
	field	__4bytedata
	line	6965
	colm	80
	synt	any
	unions
	line	6965
	colm	32
	synt	any
	invoke	1
	line	6965
	colm	25
	synt	any
	bang
	line	6965
	colm	20
	synt	any
	cat
	asgn
	pop
lab L94
	efail
lab L95
	line	6965
	colm	9
	synt	endevery
	unmark
lab L93
	pnull
	pnull
	var	0
	line	6966
	colm	13
	synt	any
	field	__string_representation
	pnull
	var	16
	line	6966
	colm	49
	synt	any
	field	New
	var	8
	line	6966
	colm	53
	synt	any
	invoke	1
	line	6966
	colm	37
	synt	any
	asgn
	goto	L71
lab L70
	pnull
	var	0
	line	6973
	colm	13
	synt	any
	field	AbortMessage
	int	32
	var	23
	str	33
	pnull
	int	6
	line	6973
	colm	38
	synt	any
	invoke	3
	var	23
	str	34
	pnull
	int	6
	line	6973
	colm	58
	synt	any
	invoke	3
	pnull
	var	17
	line	6974
	colm	35
	synt	any
	field	__AuxMessage
	int	32
	int	29
	line	6974
	colm	48
	synt	any
	invoke	2
	line	6973
	colm	26
	synt	any
	invoke	4
lab L71
	line	6933
	colm	12
	synt	endifelse
lab L47
	line	6892
	colm	12
	synt	endifelse
lab L33
	line	6874
	colm	12
	synt	endifelse
lab L23
	line	6834
	colm	12
	synt	endifelse
lab L10
	line	6802
	colm	12
	synt	endifelse
lab L7
	line	6789
	colm	5
	synt	endifelse
	unmark
lab L5
	mark	L96
	mark	L97
	pnull
	line	6976
	colm	7
	synt	any
	pret
lab L97
	synt	any
	pfail
	unmark
lab L96
	pnull
	line	6977
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObject
	local	0,001000,val
	local	1,000020,self
	local	2,000020,clone
	local	3,000000,UTF8____UTF8SetObject__oprec
	local	4,000000,UTF8____UTF8SetObjectinitialize
	local	5,000000,ClassObject__ClassObject__oprec
	local	6,000000,ClassObject__ClassObjectinitialize
	local	7,000000,ErrorSystem__ErrorSystem__oprec
	local	8,000000,ErrorSystem__ErrorSysteminitialize
	local	9,000000,UTF8____UTF8SetObject__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	3
	line	8
	colm	6
	synt	any
	null
	unmark
	var	4
	line	8
	colm	72
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L4
	mark	L5
	line	9
	colm	3
	synt	if
	mark0
	pnull
	var	5
	line	9
	colm	6
	synt	any
	null
	unmark
	var	6
	line	9
	colm	78
	synt	any
	invoke	0
	line	9
	colm	3
	synt	endif
	unmark
lab L5
	mark	L6
	pnull
	pnull
	var	3
	line	10
	colm	31
	synt	any
	field	ClassObject__ClassObject
	var	5
	line	10
	colm	57
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	11
	colm	3
	synt	if
	mark0
	pnull
	var	7
	line	11
	colm	6
	synt	any
	null
	unmark
	var	8
	line	11
	colm	78
	synt	any
	invoke	0
	line	11
	colm	3
	synt	endif
	unmark
lab L7
	pnull
	pnull
	var	3
	line	12
	colm	31
	synt	any
	field	ErrorSystem__ErrorSystem
	var	7
	line	12
	colm	57
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L8
	pnull
	var	1
	var	9
	line	14
	colm	40
	synt	any
	keywd	null
	var	3
	line	14
	colm	39
	synt	any
	invoke	2
	line	14
	colm	8
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	1
	line	15
	colm	7
	synt	any
	field	__s
	var	1
	line	15
	colm	12
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	mark	L11
	pnull
	pnull
	var	1
	line	16
	colm	7
	synt	any
	field	__m
	line	16
	colm	11
	synt	any
	field	initially
	var	1
	var	0
	line	16
	colm	21
	synt	any
	invoke	2
	line	16
	colm	32
	synt	any
	esusp
	goto	L12
lab L11
	line	16
	colm	34
	synt	any
	pfail
lab L12
	unmark
lab L10
	mark	L13
	mark	L14
	var	1
	line	17
	colm	3
	synt	any
	pret
lab L14
	synt	any
	pfail
	unmark
lab L13
	pnull
	line	18
	colm	1
	synt	any
	pfail
	end
proc UTF8____UTF8SetObjectinitialize
	local	0,000000,UTF8____UTF8SetObject__oprec
	local	1,000000,UTF8____UTF8SetObject__methods
	local	2,000000,UTF8____UTF8SetObject___DebugPrint
	local	3,000000,UTF8____UTF8SetObject_Equiv
	local	4,000000,UTF8____UTF8SetObject_Nequiv
	local	5,000000,UTF8____UTF8SetObject_LexEquals
	local	6,000000,UTF8____UTF8SetObject_LexGTorEq
	local	7,000000,UTF8____UTF8SetObject_LexGT
	local	8,000000,UTF8____UTF8SetObject_LexLTorEq
	local	9,000000,UTF8____UTF8SetObject_LexLT
	local	10,000000,UTF8____UTF8SetObject_LexNE
	local	11,000000,UTF8____UTF8SetObject_Complement
	local	12,000000,UTF8____UTF8SetObject_Difference
	local	13,000000,UTF8____UTF8SetObject_Intersect
	local	14,000000,UTF8____UTF8SetObject_Union
	local	15,000000,UTF8____UTF8SetObject_ForEach
	local	16,000000,UTF8____UTF8SetObject_Size
	local	17,000000,UTF8____UTF8SetObject_Subscript
	local	18,000000,UTF8____UTF8SetObject_Random
	local	19,000000,UTF8____UTF8SetObject_TabMatch
	local	20,000000,UTF8____UTF8SetObject_Concatenate
	local	21,000000,UTF8____UTF8SetObject_Subsection
	local	22,000000,UTF8____UTF8SetObject_Member
	local	23,000000,UTF8____UTF8SetObject_UTF8Value
	local	24,000000,UTF8____UTF8SetObject_String
	local	25,000000,UTF8____UTF8SetObject_initially
	local	26,000000,ClassObject__ClassObject___call_by_method_name
	local	27,000000,ClassObject__ClassObject_ClassName
	local	28,000000,ClassObject__ClassObject_Clone
	local	29,000000,ClassObject__ClassObject_Copy
	local	30,000000,ClassObject__ClassObject_operator_overload_error_error
	local	31,000000,ClassObject__ClassObject_Serial
	local	32,000000,ClassObject__ClassObject_set_operator_overload_abort
	local	33,000000,ClassObject__ClassObject_Addition
	local	34,000000,ClassObject__ClassObject_Divide
	local	35,000000,ClassObject__ClassObject_Minus
	local	36,000000,ClassObject__ClassObject_Modulus
	local	37,000000,ClassObject__ClassObject_Multiply
	local	38,000000,ClassObject__ClassObject_Negate
	local	39,000000,ClassObject__ClassObject_UnaryPlus
	local	40,000000,ClassObject__ClassObject_Power
	local	41,000000,ClassObject__ClassObject_Equals
	local	42,000000,ClassObject__ClassObject_GTorEqual
	local	43,000000,ClassObject__ClassObject_Greater
	local	44,000000,ClassObject__ClassObject_LTorEqual
	local	45,000000,ClassObject__ClassObject_Less
	local	46,000000,ClassObject__ClassObject_Nequal
	local	47,000000,ClassObject__ClassObject_Integer
	local	48,000000,ClassObject__ClassObject_Numeric
	local	49,000000,ClassObject__ClassObject_Real
	local	50,000000,ClassObject__ClassObject___add__
	local	51,000000,ClassObject__ClassObject___div__
	local	52,000000,ClassObject__ClassObject___minus__
	local	53,000000,ClassObject__ClassObject___mod__
	local	54,000000,ClassObject__ClassObject___mult__
	local	55,000000,ClassObject__ClassObject___neg__
	local	56,000000,ClassObject__ClassObject___number__
	local	57,000000,ClassObject__ClassObject___powr__
	local	58,000000,ClassObject__ClassObject___eqv__
	local	59,000000,ClassObject__ClassObject___neqv__
	local	60,000000,ClassObject__ClassObject___lexeq__
	local	61,000000,ClassObject__ClassObject___lexge__
	local	62,000000,ClassObject__ClassObject___lexgt__
	local	63,000000,ClassObject__ClassObject___lexle__
	local	64,000000,ClassObject__ClassObject___lexlt__
	local	65,000000,ClassObject__ClassObject___lexne__
	local	66,000000,ClassObject__ClassObject___numeq__
	local	67,000000,ClassObject__ClassObject___numge__
	local	68,000000,ClassObject__ClassObject___numgt__
	local	69,000000,ClassObject__ClassObject___numle__
	local	70,000000,ClassObject__ClassObject___numlt__
	local	71,000000,ClassObject__ClassObject___numne__
	local	72,000000,ClassObject__ClassObject___cat__
	local	73,000000,ClassObject__ClassObject___lcat__
	local	74,000000,ClassObject__ClassObject___compl__
	local	75,000000,ClassObject__ClassObject___diff__
	local	76,000000,ClassObject__ClassObject___inter__
	local	77,000000,ClassObject__ClassObject___union__
	local	78,000000,ClassObject__ClassObject___bang__
	local	79,000000,ClassObject__ClassObject___random__
	local	80,000000,ClassObject__ClassObject___refresh__
	local	81,000000,ClassObject__ClassObject___sect__
	local	82,000000,ClassObject__ClassObject___size__
	local	83,000000,ClassObject__ClassObject___subsc__
	local	84,000000,ClassObject__ClassObject___tabmat__
	local	85,000000,ClassObject__ClassObject___toby__
	local	86,000000,ErrorSystem__ErrorSystem___proc_components
	local	87,000000,ErrorSystem__ErrorSystem_AbortIfDebug
	local	88,000000,ErrorSystem__ErrorSystem_AbortMessage
	local	89,000000,ErrorSystem__ErrorSystem_Caller
	local	90,000000,ErrorSystem__ErrorSystem_CallingComponents
	local	91,000000,ErrorSystem__ErrorSystem_ClassCalling
	local	92,000000,ErrorSystem__ErrorSystem_Debug
	local	93,000000,ErrorSystem__ErrorSystem_DebugMode
	local	94,000000,ErrorSystem__ErrorSystem_ErrorOut
	local	95,000000,ErrorSystem__ErrorSystem_IsOn
	local	96,000000,ErrorSystem__ErrorSystem_MethodCalling
	local	97,000000,ErrorSystem__ErrorSystem_NotInDebugMode
	local	98,000000,ErrorSystem__ErrorSystem_Off
	local	99,000000,ErrorSystem__ErrorSystem_On
	local	100,000000,ErrorSystem__ErrorSystem_PackageCalling
	local	101,000000,ErrorSystem__ErrorSystem_ParamCalling
	local	102,000000,ErrorSystem__ErrorSystem_PrintMessage
	local	103,000000,ErrorSystem__ErrorSystem_ProcedureCalling
	local	104,000000,ErrorSystem__ErrorSystem_StopMessage
	declend
	line	20
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	0
	var	1
	var	2
	var	3
	var	4
	var	5
	var	6
	var	7
	var	8
	var	9
	var	10
	var	11
	var	12
	var	13
	var	14
	var	15
	var	16
	var	17
	var	18
	var	19
	var	20
	var	21
	var	22
	var	23
	var	24
	var	25
	var	26
	var	27
	var	28
	var	29
	var	30
	var	31
	var	32
	var	33
	var	34
	var	35
	var	36
	var	37
	var	38
	var	39
	var	40
	var	41
	var	42
	var	43
	var	44
	var	45
	var	46
	var	47
	var	48
	var	49
	var	50
	var	51
	var	52
	var	53
	var	54
	var	55
	var	56
	var	57
	var	58
	var	59
	var	60
	var	61
	var	62
	var	63
	var	64
	var	65
	var	66
	var	67
	var	68
	var	69
	var	70
	var	71
	var	72
	var	73
	var	74
	var	75
	var	76
	var	77
	var	78
	var	79
	var	80
	var	81
	var	82
	var	83
	var	84
	var	85
	var	86
	var	87
	var	88
	var	89
	var	90
	var	91
	var	92
	var	93
	var	94
	var	95
	var	96
	var	97
	var	98
	var	99
	var	100
	var	101
	var	102
	var	103
	var	104
	line	21
	colm	73
	synt	any
	invoke	103
	line	21
	colm	40
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	22
	colm	1
	synt	any
	pfail
	end
