version	U12.1.00
uid	em_setup.u1-1784908832-0
impl	error
link	evinit.u
link	interact.u
link	typebind.u
link	graphics.u
global	8
	0,000001,Coordination,0
	1,000001,Visualization,0
	2,000001,EventSource,0
	3,000005,vis_setup,-1
	4,000005,em_setup,1
	5,000005,context_setup,1
	6,000005,prog_name,0
	7,000005,em_end,0

proc vis_setup
	local	0,001000,args
	local	1,000000,Visualization
	local	2,000000,WOpen
	local	3,000000,stop
	con	0,010000,40,052,052,052,040,143,141,156,156,157,164,040,157,160,145,156,040,167,151,156,144,157,167,040,146,157,162,040,166,151,163,165,141,154,151,172,141,164,151,157,156
	declend
	filen	em_setup.icn
	line	62
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	var	2
	var	0
	invoke	-1
	line	64
	colm	36
	synt	any
	esusp
	goto	L3
lab L2
	var	3
	str	0
	line	65
	colm	11
	synt	any
	invoke	1
lab L3
	line	64
	colm	18
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	var	1
	line	67
	colm	4
	synt	any
	pret
lab L5
	synt	any
	pfail
	unmark
lab L4
	pnull
	line	69
	colm	1
	synt	any
	pfail
	end
proc em_setup
	local	0,001000,sp
	local	1,000020,trash
	local	2,000000,open
	local	3,000000,stop
	local	4,000000,EvInit
	con	0,010000,9,057,144,145,166,057,156,165,154,154
	con	1,010000,1,167
	con	2,010000,25,052,052,052,040,143,141,156,156,157,164,040,157,160,145,156,040,057,144,145,166,057,156,165,154,154
	con	3,010000,18,052,052,052,040,143,141,156,156,157,164,040,154,157,141,144,040,123,120
	declend
	line	71
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	mark	L2
	var	2
	str	0
	str	1
	line	74
	colm	17
	synt	any
	invoke	2
	line	74
	colm	36
	synt	any
	esusp
	goto	L3
lab L2
	var	3
	str	2
	line	75
	colm	11
	synt	any
	invoke	1
lab L3
	line	74
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	mark	L5
	var	4
	var	0
	pnull
	var	1
	var	1
	line	77
	colm	10
	synt	any
	invoke	4
	line	77
	colm	31
	synt	any
	esusp
	goto	L6
lab L5
	var	3
	str	3
	line	77
	colm	37
	synt	any
	invoke	1
lab L6
	unmark
lab L4
	mark	L7
	mark	L8
	pnull
	line	79
	colm	4
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	81
	colm	1
	synt	any
	pfail
	end
proc context_setup
	local	0,001000,mask
	local	1,000000,typebind
	local	2,000000,Visualization
	declend
	line	83
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	1
	var	2
	var	0
	line	85
	colm	19
	synt	any
	invoke	2
	line	85
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	87
	colm	1
	synt	any
	pfail
	end
proc prog_name
	local	0,000000,variable
	local	1,000000,EventSource
	con	0,010000,9,046,160,162,157,147,156,141,155,145
	con	1,010000,4,056,151,143,156
	declend
	line	89
	colm	11
	synt	any
	mark	L1
	mark	L2
	pnull
	var	0
	str	0
	var	1
	line	91
	colm	19
	synt	any
	invoke	2
	str	1
	line	91
	colm	46
	synt	any
	cat
	line	91
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	93
	colm	1
	synt	any
	pfail
	end
proc em_end
	local	0,000020,back
	local	1,000000,WOpen
	local	2,000000,Coordination
	local	3,000000,ExitNotice
	con	0,010000,13,143,141,156,166,141,163,075,150,151,144,144,145,156
	con	1,010000,13,142,147,075,154,151,147,150,164,040,147,162,141,171
	con	2,010000,24,116,157,162,155,141,154,040,164,145,162,155,151,156,141,164,151,157,156,040,157,146,040,123,120
	declend
	line	95
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	1
	str	0
	str	1
	line	98
	colm	17
	synt	any
	invoke	2
	line	98
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	99
	colm	4
	synt	if
	mark0
	pnull
	var	2
	line	99
	colm	7
	synt	any
	null
	unmark
	var	3
	var	0
	str	2
	line	99
	colm	36
	synt	any
	invoke	2
	line	99
	colm	4
	synt	endif
	unmark
lab L2
	pnull
	line	101
	colm	1
	synt	any
	pfail
	end
