version	U12.1.00
uid	errorsystem.u1-1788539961-0
record	ErrorSystem__ErrorSystem__state,5
	0,__s
	1,__m
	2,__DebugMode
	3,__ErrorOutFile
	4,DebugPrint
record	ErrorSystem__ErrorSystem__methods,20
	0,__proc_components
	1,AbortIfDebug
	2,AbortMessage
	3,Caller
	4,CallingComponents
	5,ClassCalling
	6,Debug
	7,DebugMode
	8,ErrorOut
	9,IsOn
	10,MethodCalling
	11,NotInDebugMode
	12,Off
	13,On
	14,PackageCalling
	15,ParamCalling
	16,PrintMessage
	17,ProcedureCalling
	18,StopMessage
	19,initially
impl	local
link	utilities.u
link	runtimeerrors.u
global	29
	0,000001,ErrorSystem____trace_all,0
	1,000005,ErrorSystem__ErrorSystem___proc_components,3
	2,000005,ErrorSystem__ErrorSystem_AbortIfDebug,-2
	3,000005,ErrorSystem__ErrorSystem_AbortMessage,-5
	4,000005,ErrorSystem__ErrorSystem_Caller,2
	5,000005,ErrorSystem__ErrorSystem_CallingComponents,2
	6,000005,ErrorSystem__ErrorSystem_ClassCalling,2
	7,000005,ErrorSystem__ErrorSystem_Debug,2
	8,000005,ErrorSystem__ErrorSystem_DebugMode,1
	9,000005,ErrorSystem__ErrorSystem_ErrorOut,3
	10,000005,ErrorSystem__ErrorSystem_IsOn,1
	11,000005,ErrorSystem__ErrorSystem_MethodCalling,2
	12,000005,ErrorSystem__ErrorSystem_NotInDebugMode,1
	13,000005,ErrorSystem__ErrorSystem_Off,1
	14,000005,ErrorSystem__ErrorSystem_On,1
	15,000005,ErrorSystem__ErrorSystem_PackageCalling,2
	16,000005,ErrorSystem__ErrorSystem_ParamCalling,2
	17,000005,ErrorSystem__ErrorSystem_PrintMessage,-2
	18,000005,ErrorSystem__ErrorSystem_ProcedureCalling,2
	19,000005,ErrorSystem__ErrorSystem_StopMessage,-2
	20,000005,ErrorSystem__ErrorSystem_initially,3
	21,000011,ErrorSystem__ErrorSystem__state,5
	22,000011,ErrorSystem__ErrorSystem__methods,20
	23,000001,ErrorSystem__ErrorSystem__oprec,0
	24,000005,ErrorSystem__ErrorSystem,2
	25,000005,ErrorSystem__ErrorSysteminitialize,0
	26,000005,ErrorSystem__AllOff,0
	27,000005,ErrorSystem__AllOn,0
	28,000005,ErrorSystem__trace,-1

proc ErrorSystem__ErrorSystem___proc_components
	local	0,001000,self
	local	1,001000,level
	local	2,001000,pos
	local	3,000020,name
	local	4,000020,res
	local	5,000000,get_active_name
	local	6,000000,proc
	con	0,002000,1,2
	con	1,010000,7,050,154,145,166,145,154,075
	con	2,010000,8,051,072,040,050,160,157,163,075
	con	3,010000,3,051,072,040
	con	4,010000,17,156,141,155,145,040,151,163,040,116,157,164,040,113,156,157,167,156
	con	5,010000,9,116,157,164,040,113,156,157,167,156
	declend
	filen	errorsystem.icn
	line	162
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	172
	colm	14
	synt	any
	field	DebugPrint
	line	172
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	172
	colm	30
	synt	any
	field	Off
	line	172
	colm	34
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	173
	colm	9
	synt	any
	null
	int	0
	line	173
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	var	5
	var	6
	line	175
	colm	42
	synt	any
	keywd	current
	var	1
	line	175
	colm	41
	synt	any
	invoke	2
	line	175
	colm	34
	synt	any
	invoke	1
	line	175
	colm	14
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	0
	line	181
	colm	13
	synt	any
	field	DebugPrint
	str	1
	var	1
	str	2
	var	2
	str	3
	mark	L5
	pnull
	var	3
	line	181
	colm	62
	synt	any
	nonnull
	line	181
	colm	68
	synt	any
	esusp
	goto	L6
lab L5
	str	4
lab L6
	line	181
	colm	24
	synt	any
	invoke	6
	unmark
lab L4
	mark	L7
	pnull
	var	4
	pnull
	var	0
	line	182
	colm	20
	synt	any
	field	CallingComponents
	var	3
	line	182
	colm	38
	synt	any
	invoke	1
	line	182
	colm	13
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	0
	line	188
	colm	13
	synt	any
	field	DebugPrint
	str	1
	var	1
	str	2
	var	2
	str	3
	mark	L9
	pnull
	pnull
	var	4
	var	2
	line	188
	colm	66
	synt	any
	subsc
	line	188
	colm	62
	synt	any
	nonnull
	line	188
	colm	72
	synt	any
	esusp
	goto	L10
lab L9
	str	5
lab L10
	line	188
	colm	24
	synt	any
	invoke	6
	unmark
lab L8
	mark	L11
	mark	L12
	pnull
	pnull
	var	4
	var	2
	line	189
	colm	20
	synt	any
	subsc
	line	189
	colm	16
	synt	any
	nonnull
	line	189
	colm	9
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	190
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_AbortIfDebug
	local	0,001000,self
	local	1,001000,param
	declend
	line	201
	colm	11
	synt	any
	mark	L1
	line	202
	colm	9
	synt	if
	mark0
	pnull
	pnull
	var	0
	line	202
	colm	17
	synt	any
	field	__DebugMode
	line	202
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	0
	line	203
	colm	17
	synt	any
	field	StopMessage
	var	1
	invoke	-1
	line	202
	colm	9
	synt	endif
	unmark
lab L1
	pnull
	line	205
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_AbortMessage
	local	0,001000,self
	local	1,001000,errorcode
	local	2,001000,file
	local	3,001000,lineno
	local	4,001000,param
	local	5,000000,integer
	local	6,000000,push
	local	7,000000,runtime_error_message
	local	8,000000,stop
	con	0,002000,3,100
	con	1,010000,1,040
	con	2,010000,5,106,151,154,145,040
	con	3,010000,7,073,040,114,151,156,145,040
	con	4,010000,1,012
	con	5,010000,15,012,122,165,156,164,151,155,145,040,145,162,162,157,162,040
	con	6,002000,1,0
	con	7,002000,1,1
	declend
	line	217
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	222
	colm	15
	synt	any
	field	__ErrorOutFile
	line	222
	colm	9
	synt	any
	null
	line	222
	colm	35
	synt	any
	keywd	errout
	line	222
	colm	32
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	mark	L3
	var	5
	var	1
	line	230
	colm	29
	synt	any
	invoke	1
	line	230
	colm	41
	synt	any
	esusp
	goto	L4
lab L3
	int	0
lab L4
	line	230
	colm	19
	synt	any
	asgn
	unmark
lab L2
	mark	L5
	var	6
	var	4
	pnull
	var	7
	var	1
	line	231
	colm	46
	synt	any
	invoke	1
	str	1
	line	231
	colm	58
	synt	any
	cat
	line	231
	colm	15
	synt	any
	invoke	2
	unmark
lab L5
	mark	L6
	var	6
	var	4
	pnull
	pnull
	pnull
	pnull
	str	2
	var	2
	line	232
	colm	31
	synt	any
	cat
	str	3
	line	232
	colm	39
	synt	any
	cat
	var	3
	line	232
	colm	52
	synt	any
	cat
	str	4
	line	232
	colm	62
	synt	any
	cat
	line	232
	colm	15
	synt	any
	invoke	2
	unmark
lab L6
	mark	L7
	var	6
	var	4
	pnull
	pnull
	str	5
	var	1
	line	233
	colm	42
	synt	any
	cat
	str	4
	line	233
	colm	55
	synt	any
	cat
	line	233
	colm	15
	synt	any
	invoke	2
	unmark
lab L7
	mark	L8
	var	6
	var	4
	pnull
	var	0
	line	234
	colm	27
	synt	any
	field	__ErrorOutFile
	line	234
	colm	15
	synt	any
	invoke	2
	unmark
lab L8
	mark	L9
	line	235
	colm	9
	synt	ifelse
	mark	L10
	pnull
	line	235
	colm	12
	synt	any
	keywd	error
	int	6
	line	235
	colm	19
	synt	any
	numne
	unmark
	mark	L12
	pnull
	line	236
	colm	13
	synt	any
	keywd	error
	dup
	mark	L13
	pnull
	line	236
	colm	25
	synt	any
	keywd	error
	int	7
	line	236
	colm	32
	synt	any
	numge
	line	236
	colm	38
	synt	any
	esusp
	goto	L14
lab L13
	int	6
lab L14
	line	236
	colm	20
	synt	any
	minus
	asgn
	unmark
lab L12
	pnull
	line	237
	colm	13
	synt	any
	keywd	errornumber
	var	1
	line	237
	colm	26
	synt	any
	asgn
	goto	L11
lab L10
	var	8
	var	4
	invoke	-1
lab L11
	line	235
	colm	9
	synt	endifelse
	unmark
lab L9
	pnull
	line	241
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_Caller
	local	0,001000,self
	local	1,001000,addedlvl
	local	2,000020,pc
	local	3,000020,cc
	local	4,000020,mc
	local	5,000020,parc
	local	6,000020,lvl
	local	7,000020,tstr
	con	0,002000,1,3
	con	1,002000,1,1
	con	2,010000,10,160,162,157,143,145,144,165,162,145,040
	con	3,010000,7,155,145,164,150,157,144,040
	con	4,010000,1,056
	declend
	line	254
	colm	11
	synt	any
	mark	L1
	pnull
	var	6
	int	0
	line	263
	colm	21
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	273
	colm	14
	synt	any
	field	DebugPrint
	line	273
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	273
	colm	30
	synt	any
	field	Off
	line	273
	colm	34
	synt	any
	invoke	0
	unmark
lab L2
	mark	L3
	pnull
	var	1
	line	282
	colm	9
	synt	any
	nonnull
	pop
	pnull
	var	6
	dup
	int	1
	line	282
	colm	25
	synt	any
	plus
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	2
	pnull
	var	0
	line	292
	colm	19
	synt	any
	field	ProcedureCalling
	var	6
	line	292
	colm	36
	synt	any
	invoke	1
	line	292
	colm	12
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	3
	pnull
	var	0
	line	293
	colm	19
	synt	any
	field	ClassCalling
	var	6
	line	293
	colm	32
	synt	any
	invoke	1
	line	293
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	4
	pnull
	var	0
	line	294
	colm	19
	synt	any
	field	MethodCalling
	var	6
	line	294
	colm	33
	synt	any
	invoke	1
	line	294
	colm	12
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	5
	pnull
	var	0
	line	295
	colm	21
	synt	any
	field	ParamCalling
	var	6
	line	295
	colm	34
	synt	any
	invoke	1
	line	295
	colm	14
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	7
	pnull
	mark	L9
	pnull
	str	2
	pnull
	var	2
	line	300
	colm	35
	synt	any
	nonnull
	line	300
	colm	32
	synt	any
	cat
	line	300
	colm	40
	synt	any
	esusp
	goto	L10
lab L9
	pnull
	pnull
	pnull
	str	3
	var	3
	line	300
	colm	52
	synt	any
	cat
	str	4
	line	300
	colm	58
	synt	any
	cat
	var	4
	line	300
	colm	65
	synt	any
	cat
lab L10
	var	5
	line	300
	colm	72
	synt	any
	cat
	line	300
	colm	14
	synt	any
	asgn
	unmark
lab L8
	mark	L11
	mark	L12
	var	7
	line	307
	colm	9
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	308
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_CallingComponents
	local	0,001000,self
	local	1,001000,name
	local	2,000040,active_packages
	local	3,000040,active_classes
	local	4,000020,nameproc
	local	5,000020,nameclass
	local	6,000020,namemethod
	local	7,000020,namepackage
	local	8,000020,i
	local	9,000020,j
	local	10,000020,temp_global_name
	local	11,000000,set
	local	12,000000,globalnames
	local	13,000000,find
	local	14,000000,insert
	local	15,000000,tab
	local	16,000000,match
	local	17,000000,move
	local	18,000000,many
	con	0,010000,10,137,151,156,151,164,151,141,154,154,171
	con	1,002000,1,1
	con	2,010000,2,137,137
	con	3,002000,1,2
	con	4,020000,1,137
	con	5,010000,1,137
	con	6,002000,1,0
	con	7,010000,1,050
	con	8,010000,4,051,072,040,133
	con	9,010000,4,156,157,156,145
	con	10,010000,1,135
	declend
	line	323
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	mark	L4
	pnull
	var	3
	var	11
	pnull
	line	348
	colm	37
	synt	any
	llist	0
	line	348
	colm	36
	synt	any
	invoke	1
	line	348
	colm	28
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	line	359
	colm	13
	synt	every
	mark0
	pnull
	var	10
	var	12
	line	359
	colm	53
	synt	any
	keywd	main
	line	359
	colm	52
	synt	any
	invoke	1
	line	359
	colm	36
	synt	any
	asgn
	pop
	mark0
	var	10
	line	360
	colm	34
	synt	any
	bscan
	line	361
	colm	21
	synt	if
	mark0
	pnull
	var	8
	var	13
	str	0
	line	361
	colm	35
	synt	any
	invoke	1
	line	361
	colm	26
	synt	any
	asgn
	unmark
	var	14
	var	3
	var	15
	var	8
	line	362
	colm	55
	synt	any
	invoke	1
	line	362
	colm	33
	synt	any
	invoke	2
	line	361
	colm	21
	synt	endif
	line	360
	colm	34
	synt	any
	escan
	unmark
lab L6
	efail
lab L7
	line	359
	colm	13
	synt	endevery
	unmark
lab L5
	mark	L8
	pnull
	var	2
	var	11
	pnull
	line	370
	colm	38
	synt	any
	llist	0
	line	370
	colm	37
	synt	any
	invoke	1
	line	370
	colm	29
	synt	any
	asgn
	unmark
lab L8
	line	385
	colm	13
	synt	every
	mark0
	pnull
	var	10
	pnull
	var	3
	line	385
	colm	39
	synt	any
	bang
	line	385
	colm	36
	synt	any
	asgn
	pop
	mark0
	var	14
	var	2
	pnull
	var	10
	int	1
	var	13
	str	2
	var	10
	line	386
	colm	69
	synt	any
	invoke	2
	line	386
	colm	61
	synt	any
	synt	any
	sect
	line	386
	colm	25
	synt	any
	invoke	2
	unmark
lab L9
	efail
lab L10
	line	385
	colm	13
	synt	endevery
	unmark
lab L2
	einit	L1
lab L3
	mark	L11
	pnull
	pnull
	var	0
	line	394
	colm	14
	synt	any
	field	DebugPrint
	line	394
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	394
	colm	30
	synt	any
	field	Off
	line	394
	colm	34
	synt	any
	invoke	0
	unmark
lab L11
	mark	L12
	var	1
	line	398
	colm	14
	synt	any
	bscan
	mark	L13
	pnull
	var	9
	line	399
	colm	18
	synt	any
	keywd	null
	line	399
	colm	15
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	pnull
	var	9
	var	16
	pnull
	var	2
	line	400
	colm	26
	synt	any
	bang
	line	400
	colm	25
	synt	any
	invoke	1
	line	400
	colm	15
	synt	any
	asgn
	unmark
lab L14
	mark	L15
	line	401
	colm	13
	synt	if
	mark0
	pnull
	var	9
	line	401
	colm	16
	synt	any
	nonnull
	unmark
	pnull
	var	7
	var	15
	var	9
	line	402
	colm	38
	synt	any
	invoke	1
	line	402
	colm	30
	synt	any
	asgn
	pop
	var	17
	int	3
	line	402
	colm	51
	synt	any
	invoke	1
	line	401
	colm	13
	synt	endif
	unmark
lab L15
	mark	L16
	pnull
	var	8
	line	404
	colm	18
	synt	any
	keywd	pos
	line	404
	colm	15
	synt	any
	asgn
	unmark
lab L16
	mark	L17
	var	15
	var	18
	cset	4
	line	405
	colm	25
	synt	any
	invoke	1
	line	405
	colm	18
	synt	any
	invoke	1
	unmark
lab L17
	mark	L18
	pnull
	var	9
	line	406
	colm	18
	synt	any
	keywd	null
	line	406
	colm	15
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	var	9
	var	13
	str	5
	line	407
	colm	24
	synt	any
	invoke	1
	line	407
	colm	15
	synt	any
	asgn
	unmark
lab L19
	line	408
	colm	13
	synt	ifelse
	mark	L20
	pnull
	var	9
	line	408
	colm	16
	synt	any
	nonnull
	unmark
	mark	L22
	var	15
	var	8
	line	409
	colm	22
	synt	any
	invoke	1
	unmark
lab L22
	mark	L23
	pnull
	var	5
	var	15
	var	9
	line	410
	colm	35
	synt	any
	invoke	1
	line	410
	colm	27
	synt	any
	asgn
	unmark
lab L23
	mark	L24
	var	17
	int	1
	line	411
	colm	23
	synt	any
	invoke	1
	unmark
lab L24
	pnull
	var	6
	var	15
	int	6
	line	412
	colm	36
	synt	any
	invoke	1
	line	412
	colm	28
	synt	any
	asgn
	goto	L21
lab L20
	pnull
	var	4
	var	1
	line	414
	colm	26
	synt	any
	asgn
lab L21
	line	408
	colm	13
	synt	endifelse
	line	398
	colm	14
	synt	any
	escan
	unmark
lab L12
	mark	L25
	pnull
	var	0
	line	422
	colm	13
	synt	any
	field	DebugPrint
	str	7
	var	1
	str	8
	mark	L26
	pnull
	var	4
	line	426
	colm	13
	synt	any
	nonnull
	line	426
	colm	23
	synt	any
	esusp
	goto	L27
lab L26
	str	9
lab L27
	mark	L28
	pnull
	var	5
	line	427
	colm	13
	synt	any
	nonnull
	line	427
	colm	24
	synt	any
	esusp
	goto	L29
lab L28
	str	9
lab L29
	mark	L30
	pnull
	var	6
	line	428
	colm	13
	synt	any
	nonnull
	line	428
	colm	25
	synt	any
	esusp
	goto	L31
lab L30
	str	9
lab L31
	mark	L32
	pnull
	var	7
	line	429
	colm	13
	synt	any
	nonnull
	line	429
	colm	26
	synt	any
	esusp
	goto	L33
lab L32
	str	9
lab L33
	str	10
	line	422
	colm	24
	synt	any
	invoke	8
	unmark
lab L25
	mark	L34
	mark	L35
	pnull
	var	4
	var	5
	var	6
	var	7
	line	431
	colm	16
	synt	any
	llist	4
	line	431
	colm	9
	synt	any
	pret
lab L35
	synt	any
	pfail
	unmark
lab L34
	pnull
	line	432
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_ClassCalling
	local	0,001000,self
	local	1,001000,level
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	line	446
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	448
	colm	9
	synt	any
	null
	int	0
	line	448
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	0
	line	450
	colm	20
	synt	any
	field	__proc_components
	pnull
	var	1
	int	0
	line	450
	colm	44
	synt	any
	plus
	int	1
	line	450
	colm	38
	synt	any
	invoke	2
	line	450
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	451
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_Debug
	local	0,001000,self
	local	1,001000,mode
	declend
	line	454
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	455
	colm	13
	synt	any
	field	__DebugMode
	var	1
	line	455
	colm	25
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	0
	line	456
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	457
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_DebugMode
	local	0,001000,self
	declend
	line	466
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	467
	colm	22
	synt	any
	field	__DebugMode
	line	467
	colm	17
	synt	any
	nonnull
	line	467
	colm	16
	synt	any
	value
	line	467
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	468
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_ErrorOut
	local	0,001000,self
	local	1,001000,errorfile
	local	2,001000,writeappend
	local	3,000000,close
	local	4,000000,type
	local	5,000000,open
	con	0,010000,6,163,164,162,151,156,147
	con	1,010000,1,167
	con	2,010000,1,141
	con	3,010000,4,146,151,154,145
	declend
	line	477
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	478
	colm	9
	synt	any
	null
	line	478
	colm	23
	synt	any
	keywd	errout
	line	478
	colm	20
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	3
	pnull
	pnull
	var	0
	line	482
	colm	20
	synt	any
	field	__ErrorOutFile
	line	482
	colm	15
	synt	any
	nonnull
	line	482
	colm	14
	synt	any
	invoke	1
	unmark
lab L2
	mark	L3
	line	490
	colm	9
	synt	ifelse
	mark	L4
	pnull
	var	4
	var	1
	line	490
	colm	18
	synt	any
	invoke	1
	str	0
	line	490
	colm	30
	synt	any
	lexeq
	unmark
	mark	L6
	pnull
	pnull
	var	2
	line	491
	colm	13
	synt	any
	null
	str	1
	line	491
	colm	26
	synt	any
	asgn
	unmark
lab L6
	line	492
	colm	13
	synt	ifelse
	mark	L7
	pnull
	var	4
	var	2
	line	492
	colm	22
	synt	any
	invoke	1
	str	0
	line	492
	colm	36
	synt	any
	lexeq
	unmark
	pnull
	pnull
	var	0
	line	493
	colm	21
	synt	any
	field	__ErrorOutFile
	var	5
	var	1
	mark	L9
	pnull
	mark	L11
	str	1
	line	493
	colm	59
	synt	any
	esusp
	goto	L12
lab L11
	str	2
lab L12
	var	2
	line	493
	colm	66
	synt	any
	lexeq
	line	493
	colm	82
	synt	any
	esusp
	goto	L10
lab L9
	str	1
lab L10
	line	493
	colm	42
	synt	any
	invoke	2
	line	493
	colm	36
	synt	any
	asgn
	goto	L8
lab L7
	pnull
	pnull
	var	0
	line	495
	colm	21
	synt	any
	field	__ErrorOutFile
	var	5
	var	1
	str	1
	line	495
	colm	42
	synt	any
	invoke	2
	line	495
	colm	36
	synt	any
	asgn
lab L8
	line	492
	colm	13
	synt	endifelse
	goto	L5
lab L4
	line	497
	colm	16
	synt	ifelse
	mark	L13
	pnull
	var	4
	var	1
	line	497
	colm	25
	synt	any
	invoke	1
	str	3
	line	497
	colm	37
	synt	any
	lexeq
	unmark
	pnull
	pnull
	var	0
	line	498
	colm	17
	synt	any
	field	__ErrorOutFile
	var	1
	line	498
	colm	32
	synt	any
	asgn
	goto	L14
lab L13
	pnull
	pnull
	var	0
	line	500
	colm	17
	synt	any
	field	__ErrorOutFile
	line	500
	colm	34
	synt	any
	keywd	errout
	line	500
	colm	32
	synt	any
	asgn
lab L14
	line	497
	colm	16
	synt	endifelse
lab L5
	line	490
	colm	9
	synt	endifelse
	unmark
lab L3
	mark	L15
	mark	L16
	var	0
	line	502
	colm	9
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	503
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_IsOn
	local	0,001000,self
	local	1,000000,ErrorSystem____trace_all
	declend
	line	512
	colm	11
	synt	any
	mark	L1
	line	513
	colm	9
	synt	ifelse
	mark	L2
	pnull
	var	1
	line	513
	colm	12
	synt	any
	nonnull
	unmark
	pnull
	var	0
	line	514
	colm	17
	synt	any
	field	On
	line	514
	colm	20
	synt	any
	invoke	0
	goto	L3
lab L2
	pnull
	var	0
	line	516
	colm	17
	synt	any
	field	Off
	line	516
	colm	21
	synt	any
	invoke	0
lab L3
	line	513
	colm	9
	synt	endifelse
	unmark
lab L1
	mark	L4
	mark	L5
	var	0
	line	518
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	519
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_MethodCalling
	local	0,001000,self
	local	1,001000,level
	con	0,002000,1,1
	con	1,002000,1,3
	declend
	line	533
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	535
	colm	9
	synt	any
	null
	int	0
	line	535
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	0
	line	537
	colm	20
	synt	any
	field	__proc_components
	pnull
	var	1
	int	0
	line	537
	colm	44
	synt	any
	plus
	int	1
	line	537
	colm	38
	synt	any
	invoke	2
	line	537
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	538
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_NotInDebugMode
	local	0,001000,self
	declend
	line	547
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	pnull
	pnull
	var	0
	line	548
	colm	22
	synt	any
	field	__DebugMode
	line	548
	colm	17
	synt	any
	null
	line	548
	colm	16
	synt	any
	value
	line	548
	colm	9
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	549
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_Off
	local	0,001000,self
	con	0,002000,1,1
	declend
	line	556
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	557
	colm	13
	synt	any
	field	__DebugMode
	line	557
	colm	27
	synt	any
	keywd	null
	line	557
	colm	25
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	562
	colm	13
	synt	any
	field	DebugPrint
	int	0
	line	562
	colm	25
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	mark	L4
	var	0
	line	563
	colm	9
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	564
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_On
	local	0,001000,self
	local	1,000000,ErrorSystem__trace
	con	0,002000,1,1
	declend
	line	571
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	572
	colm	13
	synt	any
	field	__DebugMode
	int	0
	line	572
	colm	25
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	0
	line	573
	colm	13
	synt	any
	field	DebugPrint
	var	1
	line	573
	colm	25
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	pnull
	pnull
	var	0
	line	574
	colm	14
	synt	any
	field	__ErrorOutFile
	line	574
	colm	9
	synt	any
	null
	line	574
	colm	31
	synt	any
	keywd	errout
	line	574
	colm	29
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	var	0
	line	575
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	576
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_PackageCalling
	local	0,001000,self
	local	1,001000,level
	con	0,002000,1,1
	con	1,002000,1,4
	declend
	line	590
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	592
	colm	9
	synt	any
	null
	int	0
	line	592
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	0
	line	594
	colm	20
	synt	any
	field	__proc_components
	pnull
	var	1
	int	0
	line	594
	colm	44
	synt	any
	plus
	int	1
	line	594
	colm	38
	synt	any
	invoke	2
	line	594
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	595
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_ParamCalling
	local	0,001000,self
	local	1,001000,level
	local	2,000020,name
	local	3,000000,paramnames
	local	4,000000,proc
	con	0,002000,1,1
	con	1,010000,1,050
	con	2,010000,1,054
	con	3,010000,0
	con	4,002000,1,2
	con	5,002000,1,7
	con	6,010000,5,163,145,154,146,054
	con	7,010000,1,051
	con	8,010000,3,051,072,040
	declend
	line	606
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	613
	colm	14
	synt	any
	field	DebugPrint
	line	613
	colm	9
	synt	any
	null
	pop
	pnull
	var	0
	line	613
	colm	30
	synt	any
	field	Off
	line	613
	colm	34
	synt	any
	invoke	0
	unmark
lab L1
	mark	L2
	pnull
	pnull
	var	1
	line	614
	colm	9
	synt	any
	null
	int	0
	line	614
	colm	16
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	str	1
	line	621
	colm	14
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	622
	colm	9
	synt	every
	mark0
	pnull
	var	2
	dup
	pnull
	var	3
	var	4
	line	622
	colm	46
	synt	any
	keywd	current
	var	1
	line	622
	colm	45
	synt	any
	invoke	2
	line	622
	colm	37
	synt	any
	invoke	1
	str	2
	line	622
	colm	65
	synt	any
	cat
	line	622
	colm	20
	synt	any
	cat
	asgn
	pop
lab L5
	efail
lab L6
	line	622
	colm	9
	synt	endevery
	unmark
lab L4
	mark	L7
	pnull
	pnull
	var	2
	pnull
	int	0
	line	623
	colm	14
	synt	any
	neg
	line	623
	colm	13
	synt	any
	subsc
	pnull
	pnull
	var	2
	pnull
	int	0
	line	623
	colm	27
	synt	any
	neg
	line	623
	colm	26
	synt	any
	subsc
	str	2
	line	623
	colm	31
	synt	any
	lexeq
	pop
	str	3
	line	623
	colm	18
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	pnull
	var	2
	int	4
	int	5
	line	624
	colm	15
	synt	any
	synt	any
	sect
	pnull
	pnull
	var	2
	int	4
	int	5
	line	624
	colm	29
	synt	any
	synt	any
	sect
	str	6
	line	624
	colm	33
	synt	any
	lexeq
	pop
	str	3
	line	624
	colm	19
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	2
	dup
	str	7
	line	625
	colm	14
	synt	any
	cat
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	0
	line	630
	colm	13
	synt	any
	field	DebugPrint
	str	1
	var	1
	str	8
	var	2
	line	630
	colm	24
	synt	any
	invoke	4
	unmark
lab L10
	mark	L11
	mark	L12
	var	2
	line	631
	colm	9
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	632
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_PrintMessage
	local	0,001000,self
	local	1,001000,param
	local	2,000000,push
	local	3,000000,write
	declend
	line	642
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	647
	colm	15
	synt	any
	field	__ErrorOutFile
	line	647
	colm	9
	synt	any
	null
	line	647
	colm	35
	synt	any
	keywd	errout
	line	647
	colm	32
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	2
	var	1
	pnull
	var	0
	line	653
	colm	27
	synt	any
	field	__ErrorOutFile
	line	653
	colm	15
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	3
	var	1
	invoke	-1
	unmark
lab L3
	mark	L4
	mark	L5
	var	0
	line	656
	colm	9
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	657
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_ProcedureCalling
	local	0,001000,self
	local	1,001000,level
	con	0,002000,1,1
	declend
	line	671
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	1
	line	673
	colm	9
	synt	any
	null
	int	0
	line	673
	colm	16
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	pnull
	var	0
	line	675
	colm	20
	synt	any
	field	__proc_components
	pnull
	var	1
	int	0
	line	675
	colm	44
	synt	any
	plus
	int	0
	line	675
	colm	38
	synt	any
	invoke	2
	line	675
	colm	9
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	676
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_StopMessage
	local	0,001000,self
	local	1,001000,param
	local	2,000000,push
	local	3,000000,put
	local	4,000000,stop
	con	0,010000,21,103,162,151,164,151,143,141,154,040,105,162,162,157,162,040,106,157,165,156,144,056
	declend
	line	685
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	pnull
	var	0
	line	690
	colm	15
	synt	any
	field	__ErrorOutFile
	line	690
	colm	9
	synt	any
	null
	line	690
	colm	35
	synt	any
	keywd	errout
	line	690
	colm	32
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	var	2
	var	1
	pnull
	var	0
	line	698
	colm	27
	synt	any
	field	__ErrorOutFile
	line	698
	colm	15
	synt	any
	invoke	2
	unmark
lab L2
	mark	L3
	var	3
	var	1
	str	0
	line	699
	colm	14
	synt	any
	invoke	2
	unmark
lab L3
	mark	L4
	var	4
	var	1
	invoke	-1
	unmark
lab L4
	pnull
	line	701
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem_initially
	local	0,001000,self
	local	1,001000,errorfile
	local	2,001000,writeappend
	local	3,000000,ErrorSystem__ErrorSystem
	declend
	line	705
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	line	706
	colm	9
	synt	any
	field	ErrorOut
	var	1
	var	2
	line	706
	colm	18
	synt	any
	invoke	2
	unmark
lab L1
	mark	L2
	pnull
	var	0
	line	707
	colm	9
	synt	any
	field	Off
	line	707
	colm	13
	synt	any
	invoke	0
	unmark
lab L2
	mark	L3
	pnull
	var	3
	var	0
	line	708
	colm	30
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	mark	L5
	pnull
	line	709
	colm	7
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	710
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSystem
	local	0,001000,errorfile
	local	1,001000,writeappend
	local	2,000020,self
	local	3,000020,clone
	local	4,000000,ErrorSystem__ErrorSystem__oprec
	local	5,000000,ErrorSystem__ErrorSysteminitialize
	local	6,000000,ErrorSystem__ErrorSystem__state
	declend
	filen	__faux.icn
	line	5
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	line	8
	colm	3
	synt	if
	mark0
	pnull
	var	4
	line	8
	colm	6
	synt	any
	null
	unmark
	var	5
	line	8
	colm	78
	synt	any
	invoke	0
	line	8
	colm	3
	synt	endif
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	pnull
	var	2
	var	6
	line	10
	colm	43
	synt	any
	keywd	null
	var	4
	line	10
	colm	42
	synt	any
	invoke	2
	line	10
	colm	8
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	pnull
	var	2
	line	11
	colm	7
	synt	any
	field	__s
	var	2
	line	11
	colm	12
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	mark	L7
	pnull
	pnull
	var	2
	line	12
	colm	7
	synt	any
	field	__m
	line	12
	colm	11
	synt	any
	field	initially
	var	2
	var	0
	var	1
	line	12
	colm	21
	synt	any
	invoke	3
	line	12
	colm	50
	synt	any
	esusp
	goto	L8
lab L7
	line	12
	colm	52
	synt	any
	pfail
lab L8
	unmark
lab L6
	mark	L9
	mark	L10
	var	2
	line	13
	colm	3
	synt	any
	pret
lab L10
	synt	any
	pfail
	unmark
lab L9
	pnull
	line	14
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__ErrorSysteminitialize
	local	0,000000,ErrorSystem__ErrorSystem__oprec
	local	1,000000,ErrorSystem__ErrorSystem__methods
	local	2,000000,ErrorSystem__ErrorSystem___proc_components
	local	3,000000,ErrorSystem__ErrorSystem_AbortIfDebug
	local	4,000000,ErrorSystem__ErrorSystem_AbortMessage
	local	5,000000,ErrorSystem__ErrorSystem_Caller
	local	6,000000,ErrorSystem__ErrorSystem_CallingComponents
	local	7,000000,ErrorSystem__ErrorSystem_ClassCalling
	local	8,000000,ErrorSystem__ErrorSystem_Debug
	local	9,000000,ErrorSystem__ErrorSystem_DebugMode
	local	10,000000,ErrorSystem__ErrorSystem_ErrorOut
	local	11,000000,ErrorSystem__ErrorSystem_IsOn
	local	12,000000,ErrorSystem__ErrorSystem_MethodCalling
	local	13,000000,ErrorSystem__ErrorSystem_NotInDebugMode
	local	14,000000,ErrorSystem__ErrorSystem_Off
	local	15,000000,ErrorSystem__ErrorSystem_On
	local	16,000000,ErrorSystem__ErrorSystem_PackageCalling
	local	17,000000,ErrorSystem__ErrorSystem_ParamCalling
	local	18,000000,ErrorSystem__ErrorSystem_PrintMessage
	local	19,000000,ErrorSystem__ErrorSystem_ProcedureCalling
	local	20,000000,ErrorSystem__ErrorSystem_StopMessage
	local	21,000000,ErrorSystem__ErrorSystem_initially
	declend
	line	16
	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
	line	17
	colm	79
	synt	any
	invoke	20
	line	17
	colm	43
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	line	18
	colm	1
	synt	any
	pfail
	end
proc ErrorSystem__AllOff
	local	0,000000,ErrorSystem____trace_all
	declend
	filen	errorsystem.icn
	line	716
	colm	12
	synt	any
	mark	L1
	pnull
	var	0
	line	717
	colm	33
	synt	any
	keywd	null
	line	717
	colm	30
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	718
	colm	2
	synt	any
	pfail
	end
proc ErrorSystem__AllOn
	local	0,000000,ErrorSystem____trace_all
	con	0,002000,1,1
	declend
	line	725
	colm	12
	synt	any
	mark	L1
	pnull
	var	0
	int	0
	line	726
	colm	30
	synt	any
	asgn
	unmark
lab L1
	pnull
	line	727
	colm	2
	synt	any
	pfail
	end
proc ErrorSystem__trace
	local	0,001000,message
	local	1,000020,lst
	local	2,000000,ErrorSystem__ErrorSystem
	local	3,000000,put
	con	0,010000,2,072,040
	con	1,002000,1,1
	con	2,010000,1,040
	declend
	line	737
	colm	12
	synt	any
	mark	L1
	pnull
	var	1
	pnull
	pnull
	var	2
	line	741
	colm	37
	synt	any
	field	Caller
	line	741
	colm	44
	synt	any
	invoke	0
	str	0
	line	741
	colm	12
	synt	any
	llist	2
	line	741
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	742
	colm	5
	synt	every
	mark0
	var	3
	var	1
	pnull
	var	0
	pnull
	int	1
	pnull
	var	0
	line	742
	colm	35
	synt	any
	size
	push1
	line	742
	colm	32
	synt	any
	toby
	line	742
	colm	29
	synt	any
	subsc
	str	2
	line	742
	colm	16
	synt	any
	invoke	3
	pop
lab L3
	efail
lab L4
	line	742
	colm	5
	synt	endevery
	unmark
lab L2
	mark	L5
	mark	L6
	pnull
	var	2
	line	743
	colm	36
	synt	any
	field	PrintMessage
	var	1
	invoke	-1
	line	743
	colm	5
	synt	any
	pret
lab L6
	synt	any
	pfail
	unmark
lab L5
	pnull
	line	744
	colm	2
	synt	any
	pfail
	end
