version	U12.1.00
uid	evaltree.u1-1786033017-0
record	__evaltree_node,3
	0,node
	1,parent
	2,children
impl	error
global	9
	0,000011,__evaltree_node,3
	1,000001,CallCodes,0
	2,000001,SuspendCodes,0
	3,000001,ResumeCodes,0
	4,000001,ReturnCodes,0
	5,000001,FailCodes,0
	6,000001,RemoveCodes,0
	7,000001,current,0
	8,000005,evaltree,3

proc evaltree
	local	0,001000,mask
	local	1,001000,callback
	local	2,001000,activation_record
	local	3,000020,c
	local	4,000020,p
	local	5,000020,child
	local	6,000000,__evaltree_node
	local	7,000000,CallCodes
	local	8,000000,string
	local	9,000000,cset
	local	10,000000,SuspendCodes
	local	11,000000,ResumeCodes
	local	12,000000,ReturnCodes
	local	13,000000,FailCodes
	local	14,000000,RemoveCodes
	local	15,000000,current
	local	16,000000,EvGet
	local	17,000000,put
	local	18,000000,pull
	local	19,000000,pop
	local	20,000000,stop
	con	0,010000,1,103
	con	1,010000,1,252
	con	2,010000,1,260
	con	3,010000,1,340
	con	4,010000,1,243
	con	5,010000,1,253
	con	6,010000,1,263
	con	7,010000,1,266
	con	8,010000,1,244
	con	9,010000,1,254
	con	10,010000,1,264
	con	11,010000,1,267
	con	12,010000,1,245
	con	13,010000,1,255
	con	14,010000,1,261
	con	15,010000,1,246
	con	16,010000,1,256
	con	17,010000,1,262
	con	18,010000,1,341
	con	19,010000,1,247
	con	20,010000,1,257
	con	21,010000,1,265
	con	22,010000,1,344
	con	23,002000,1,1
	con	24,010000,25,145,166,141,154,164,162,145,145,072,040,165,156,153,156,157,167,156,040,162,145,155,157,166,141,154
	declend
	filen	evaltree.icn
	line	44
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	2
	line	47
	colm	4
	synt	any
	null
	var	6
	line	47
	colm	23
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	7
	var	8
	pnull
	var	0
	var	9
	pnull
	pnull
	pnull
	str	0
	str	1
	line	48
	colm	44
	synt	any
	cat
	str	2
	line	48
	colm	54
	synt	any
	cat
	str	3
	line	48
	colm	64
	synt	any
	cat
	line	48
	colm	36
	synt	any
	invoke	1
	line	48
	colm	29
	synt	any
	inter
	line	48
	colm	23
	synt	any
	invoke	1
	line	48
	colm	14
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	10
	var	8
	pnull
	var	0
	var	9
	pnull
	pnull
	pnull
	str	4
	str	5
	line	49
	colm	47
	synt	any
	cat
	str	6
	line	49
	colm	57
	synt	any
	cat
	str	7
	line	50
	colm	47
	synt	any
	cat
	line	49
	colm	39
	synt	any
	invoke	1
	line	49
	colm	32
	synt	any
	inter
	line	49
	colm	26
	synt	any
	invoke	1
	line	49
	colm	17
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	11
	var	8
	pnull
	var	0
	var	9
	pnull
	pnull
	pnull
	str	8
	str	9
	line	52
	colm	38
	synt	any
	cat
	str	10
	line	52
	colm	48
	synt	any
	cat
	str	11
	line	52
	colm	58
	synt	any
	cat
	line	52
	colm	30
	synt	any
	invoke	1
	line	51
	colm	31
	synt	any
	inter
	line	51
	colm	25
	synt	any
	invoke	1
	line	51
	colm	16
	synt	any
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	12
	var	8
	pnull
	var	0
	var	9
	pnull
	pnull
	str	12
	str	13
	line	53
	colm	46
	synt	any
	cat
	str	14
	line	53
	colm	56
	synt	any
	cat
	line	53
	colm	38
	synt	any
	invoke	1
	line	53
	colm	31
	synt	any
	inter
	line	53
	colm	25
	synt	any
	invoke	1
	line	53
	colm	16
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	13
	var	8
	pnull
	var	0
	var	9
	pnull
	pnull
	pnull
	str	15
	str	16
	line	54
	colm	44
	synt	any
	cat
	str	17
	line	54
	colm	54
	synt	any
	cat
	str	18
	line	54
	colm	64
	synt	any
	cat
	line	54
	colm	36
	synt	any
	invoke	1
	line	54
	colm	29
	synt	any
	inter
	line	54
	colm	23
	synt	any
	invoke	1
	line	54
	colm	14
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	pnull
	var	14
	var	8
	pnull
	var	0
	var	9
	pnull
	pnull
	pnull
	str	19
	str	20
	line	55
	colm	46
	synt	any
	cat
	str	21
	line	55
	colm	56
	synt	any
	cat
	str	22
	line	55
	colm	66
	synt	any
	cat
	line	55
	colm	38
	synt	any
	invoke	1
	line	55
	colm	31
	synt	any
	inter
	line	55
	colm	25
	synt	any
	invoke	1
	line	55
	colm	16
	synt	any
	asgn
	unmark
lab L7
	mark	L8
	pnull
	var	15
	var	2
	line	57
	colm	32
	synt	any
	invoke	0
	line	57
	colm	12
	synt	any
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	var	15
	line	58
	colm	11
	synt	any
	field	parent
	var	2
	line	58
	colm	39
	synt	any
	invoke	0
	line	58
	colm	19
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	pnull
	pnull
	var	15
	line	59
	colm	11
	synt	any
	field	children
	pnull
	line	59
	colm	24
	synt	any
	llist	0
	line	59
	colm	21
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	pnull
	pnull
	pnull
	var	15
	line	60
	colm	11
	synt	any
	field	parent
	line	60
	colm	18
	synt	any
	field	children
	pnull
	line	60
	colm	31
	synt	any
	llist	0
	line	60
	colm	28
	synt	any
	asgn
	unmark
lab L11
	mark	L12
lab L13
	line	62
	colm	4
	synt	while
	mark0
	var	16
	var	0
	line	62
	colm	15
	synt	any
	invoke	1
	unmark
	mark	L13
	line	63
	colm	7
	synt	case
	mark0
	line	63
	colm	12
	synt	any
	keywd	eventcode
	eret
	mark	L17
	ccase
	pnull
	var	7
	line	64
	colm	10
	synt	any
	bang
	line	64
	colm	20
	synt	any
	eqv
	unmark
	pop
	mark	L18
	pnull
	var	3
	var	2
	line	65
	colm	35
	synt	any
	invoke	0
	line	65
	colm	15
	synt	any
	asgn
	unmark
lab L18
	mark	L19
	pnull
	pnull
	var	3
	line	66
	colm	14
	synt	any
	field	node
	line	66
	colm	23
	synt	any
	keywd	eventvalue
	line	66
	colm	20
	synt	any
	asgn
	unmark
lab L19
	mark	L20
	pnull
	pnull
	var	3
	line	67
	colm	14
	synt	any
	field	parent
	var	15
	line	67
	colm	22
	synt	any
	asgn
	unmark
lab L20
	mark	L21
	pnull
	pnull
	var	3
	line	68
	colm	14
	synt	any
	field	children
	pnull
	line	68
	colm	27
	synt	any
	llist	0
	line	68
	colm	24
	synt	any
	asgn
	unmark
lab L21
	mark	L22
	var	17
	pnull
	var	15
	line	69
	colm	24
	synt	any
	field	children
	var	3
	line	69
	colm	16
	synt	any
	invoke	2
	unmark
lab L22
	mark	L23
	pnull
	var	15
	var	3
	line	70
	colm	21
	synt	any
	asgn
	unmark
lab L23
	var	1
	var	15
	pnull
	var	15
	line	71
	colm	38
	synt	any
	field	parent
	line	71
	colm	21
	synt	any
	invoke	2
	goto	L16
lab L17
	mark	L24
	ccase
	mark	L25
	pnull
	var	12
	line	73
	colm	10
	synt	any
	bang
	line	73
	colm	23
	synt	any
	esusp
	goto	L26
lab L25
	pnull
	var	13
	line	73
	colm	25
	synt	any
	bang
lab L26
	line	73
	colm	35
	synt	any
	eqv
	unmark
	pop
	mark	L27
	pnull
	var	4
	var	18
	pnull
	pnull
	var	15
	line	74
	colm	30
	synt	any
	field	parent
	line	74
	colm	37
	synt	any
	field	children
	line	74
	colm	22
	synt	any
	invoke	1
	line	74
	colm	15
	synt	any
	asgn
	unmark
lab L27
	mark	L28
	pnull
	var	15
	pnull
	var	15
	line	75
	colm	31
	synt	any
	field	parent
	line	75
	colm	21
	synt	any
	asgn
	unmark
lab L28
	var	1
	var	15
	var	4
	line	76
	colm	21
	synt	any
	invoke	2
	goto	L16
lab L24
	mark	L29
	ccase
	pnull
	var	10
	line	78
	colm	10
	synt	any
	bang
	line	78
	colm	23
	synt	any
	eqv
	unmark
	pop
	mark	L30
	pnull
	var	15
	pnull
	var	15
	line	79
	colm	31
	synt	any
	field	parent
	line	79
	colm	21
	synt	any
	asgn
	unmark
lab L30
	var	1
	var	15
	pnull
	pnull
	var	15
	line	80
	colm	38
	synt	any
	field	children
	pnull
	int	23
	line	80
	colm	48
	synt	any
	neg
	line	80
	colm	47
	synt	any
	subsc
	line	80
	colm	21
	synt	any
	invoke	2
	goto	L16
lab L29
	mark	L31
	ccase
	pnull
	var	11
	line	82
	colm	10
	synt	any
	bang
	line	82
	colm	22
	synt	any
	eqv
	unmark
	pop
	mark	L32
	pnull
	var	15
	pnull
	pnull
	var	15
	line	83
	colm	31
	synt	any
	field	children
	pnull
	int	23
	line	83
	colm	41
	synt	any
	neg
	line	83
	colm	40
	synt	any
	subsc
	line	83
	colm	21
	synt	any
	asgn
	unmark
lab L32
	var	1
	var	15
	pnull
	var	15
	line	84
	colm	38
	synt	any
	field	parent
	line	84
	colm	21
	synt	any
	invoke	2
	goto	L16
lab L31
	mark	L33
	ccase
	pnull
	var	14
	line	86
	colm	10
	synt	any
	bang
	line	86
	colm	22
	synt	any
	eqv
	unmark
	pop
	line	87
	colm	13
	synt	ifelse
	mark	L34
	pnull
	var	5
	var	18
	pnull
	var	15
	line	87
	colm	37
	synt	any
	field	children
	line	87
	colm	29
	synt	any
	invoke	1
	line	87
	colm	22
	synt	any
	asgn
	unmark
	mark	L36
lab L37
	line	88
	colm	16
	synt	while
	mark0
	var	17
	pnull
	var	15
	line	88
	colm	33
	synt	any
	field	children
	var	19
	pnull
	var	5
	line	88
	colm	53
	synt	any
	field	children
	line	88
	colm	47
	synt	any
	invoke	1
	line	88
	colm	25
	synt	any
	invoke	2
lab L38
	unmark
	goto	L37
lab L39
	line	88
	colm	16
	synt	endwhile
	unmark
lab L36
	var	1
	var	15
	var	5
	line	89
	colm	24
	synt	any
	invoke	2
	goto	L35
lab L34
	line	92
	colm	16
	synt	ifelse
	mark	L40
	pnull
	var	15
	pnull
	pnull
	pnull
	var	15
	line	92
	colm	38
	synt	any
	field	parent
	line	92
	colm	45
	synt	any
	field	children
	pnull
	int	23
	line	92
	colm	55
	synt	any
	neg
	line	92
	colm	54
	synt	any
	subsc
	line	92
	colm	27
	synt	any
	eqv
	unmark
	mark	L42
	pnull
	var	4
	var	18
	pnull
	pnull
	var	15
	line	93
	colm	36
	synt	any
	field	parent
	line	93
	colm	43
	synt	any
	field	children
	line	93
	colm	28
	synt	any
	invoke	1
	line	93
	colm	21
	synt	any
	asgn
	unmark
lab L42
	mark	L43
	pnull
	var	15
	pnull
	var	15
	line	94
	colm	37
	synt	any
	field	parent
	line	94
	colm	27
	synt	any
	asgn
	unmark
lab L43
	mark	L44
	var	1
	var	15
	var	4
	line	95
	colm	27
	synt	any
	invoke	2
	unmark
lab L44
	goto	L14
	goto	L41
lab L40
	var	20
	str	24
	line	98
	colm	25
	synt	any
	invoke	1
lab L41
	line	92
	colm	16
	synt	endifelse
lab L35
	line	87
	colm	13
	synt	endifelse
	goto	L16
lab L33
	pop
	var	1
	var	15
	var	15
	line	102
	colm	21
	synt	any
	invoke	2
lab L16
	line	63
	colm	7
	synt	endcase
lab L14
	unmark
	goto	L13
lab L15
	line	62
	colm	4
	synt	endwhile
	unmark
lab L12
	pnull
	line	106
	colm	1
	synt	any
	pfail
	end
