version	U12.1.00
uid	evinit.u1-1786033017-0
impl	error
link	evnames.u
link	evsyms.u
link	typebind.u
link	opname.u
link	evutils.u
global	9
	0,000005,EvInit,4
	1,000005,EvTerm,1
	2,000001,Monitored,0
	3,000001,EventSource,0
	4,000001,MTEventMask,0
	5,000005,MTEvInit,4
	6,000005,MTEvGet,3
	7,000005,EvQuit,0
	8,000005,EvSignal,1

proc EvInit
	local	0,001000,f
	local	1,001000,input
	local	2,001000,output
	local	3,001000,error
	local	4,000000,MTEvInit
	declend
	filen	evinit.icn
	line	28
	colm	11
	synt	any
	mark	L1
	line	29
	colm	4
	synt	if
	mark0
	mark	L2
	var	4
	var	0
	var	1
	var	2
	var	3
	line	29
	colm	19
	synt	any
	invoke	4
	unmark
	efail
lab L2
	pnull
	unmark
	line	29
	colm	47
	synt	any
	pfail
	line	29
	colm	4
	synt	endif
	unmark
lab L1
	mark	L3
	mark	L4
	pnull
	line	30
	colm	4
	synt	any
	pret
lab L4
	synt	any
	pfail
	unmark
lab L3
	pnull
	line	31
	colm	1
	synt	any
	pfail
	end
proc EvTerm
	local	0,001000,win
	local	1,000000,Monitored
	local	2,000000,EventSource
	local	3,000000,type
	local	4,000000,Event
	con	0,010000,6,167,151,156,144,157,167
	declend
	line	39
	colm	11
	synt	any
	mark	L1
	pnull
	pnull
	var	0
	line	40
	colm	3
	synt	any
	null
	line	40
	colm	11
	synt	any
	keywd	window
	line	40
	colm	8
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	41
	colm	3
	synt	if
	mark0
	pnull
	var	1
	var	2
	line	41
	colm	16
	synt	any
	eqv
	unmark
	line	42
	colm	5
	synt	if
	mark0
	pnull
	var	3
	var	0
	line	42
	colm	12
	synt	any
	invoke	1
	str	0
	line	42
	colm	18
	synt	any
	lexeq
	unmark
	var	4
	var	0
	line	43
	colm	12
	synt	any
	invoke	1
	line	42
	colm	5
	synt	endif
	line	41
	colm	3
	synt	endif
	unmark
lab L2
	pnull
	line	45
	colm	1
	synt	any
	pfail
	end
proc MTEvInit
	local	0,001000,f
	local	1,001000,input
	local	2,001000,output
	local	3,001000,error
	local	4,000020,i
	local	5,000020,op1
	local	6,000020,op2
	local	7,000020,arg
	local	8,000020,filename
	local	9,000020,operator
	local	10,000020,redirect1
	local	11,000020,redirect2
	local	12,000000,EvGet
	local	13,000000,MTEvGet
	local	14,000000,type
	local	15,000000,trim
	local	16,000000,tab
	local	17,000000,upto
	local	18,000000,move
	local	19,000000,open
	local	20,000000,EventSource
	local	21,000000,Monitored
	local	22,000000,load
	local	23,000000,pop
	local	24,000000,write
	local	25,000000,image
	local	26,000000,string
	local	27,000000,put
	con	0,010000,6,163,164,162,151,156,147
	con	1,020000,2,074,076
	con	2,002000,1,0
	con	3,002000,1,1
	con	4,010000,1,074
	con	5,010000,1,167
	con	6,010000,4,154,151,163,164
	con	7,010000,28,125,104,102,072,040,143,141,156,047,164,040,157,160,145,156,040,162,145,144,151,162,145,143,164,040,157,156,040
	con	8,010000,12,155,151,163,163,151,156,147,040,146,151,154,145
	con	9,010000,1,076
	con	10,002000,1,2
	declend
	line	60
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	12
	var	13
	line	63
	colm	10
	synt	any
	swap
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	66
	colm	4
	synt	if
	mark0
	pnull
	line	66
	colm	8
	synt	any
	keywd	eventsource
	line	66
	colm	7
	synt	any
	nonnull
	unmark
	mark	L5
	pnull
	line	66
	colm	26
	synt	any
	pret
lab L5
	synt	any
	pfail
	line	66
	colm	4
	synt	endif
	unmark
lab L4
	mark	L6
	line	68
	colm	4
	synt	ifelse
	mark	L7
	pnull
	var	14
	var	0
	line	68
	colm	11
	synt	any
	invoke	1
	str	0
	line	68
	colm	15
	synt	any
	lexeq
	unmark
	mark	L9
	pnull
	var	9
	cset	1
	line	69
	colm	16
	synt	any
	asgn
	unmark
lab L9
	mark	L10
	var	0
	line	70
	colm	9
	synt	any
	bscan
	line	78
	colm	10
	synt	if
	mark0
	pnull
	var	8
	var	15
	var	16
	var	17
	var	9
	line	78
	colm	38
	synt	any
	invoke	1
	line	78
	colm	33
	synt	any
	invoke	1
	pnull
	int	2
	line	78
	colm	29
	synt	any
	invoke	3
	line	78
	colm	22
	synt	any
	asgn
	unmark
	mark	L11
	pnull
	var	5
	var	18
	int	3
	line	79
	colm	24
	synt	any
	invoke	1
	line	79
	colm	17
	synt	any
	asgn
	unmark
lab L11
	mark	L12
	line	80
	colm	13
	synt	if
	mark0
	pnull
	var	10
	var	15
	var	16
	var	17
	var	9
	line	80
	colm	42
	synt	any
	invoke	1
	line	80
	colm	37
	synt	any
	invoke	1
	pnull
	int	2
	line	80
	colm	33
	synt	any
	invoke	3
	line	80
	colm	26
	synt	any
	asgn
	unmark
	mark	L13
	pnull
	var	6
	var	18
	int	3
	line	81
	colm	27
	synt	any
	invoke	1
	line	81
	colm	20
	synt	any
	asgn
	unmark
lab L13
	mark	L14
	line	82
	colm	16
	synt	if
	mark0
	pnull
	var	5
	var	6
	line	82
	colm	23
	synt	any
	eqv
	unmark
	line	82
	colm	36
	synt	any
	pfail
	line	82
	colm	16
	synt	endif
	unmark
lab L14
	mark	L15
	pnull
	var	11
	var	15
	var	16
	int	2
	line	83
	colm	37
	synt	any
	invoke	1
	pnull
	int	2
	line	83
	colm	33
	synt	any
	invoke	3
	line	83
	colm	26
	synt	any
	asgn
	unmark
lab L15
	line	84
	colm	16
	synt	ifelse
	mark	L16
	pnull
	var	5
	str	4
	line	84
	colm	23
	synt	any
	eqv
	unmark
	mark	L18
	pnull
	var	1
	var	19
	var	10
	line	85
	colm	32
	synt	any
	invoke	1
	line	85
	colm	25
	synt	any
	asgn
	unmark
lab L18
	pnull
	var	2
	var	19
	var	11
	str	5
	line	86
	colm	33
	synt	any
	invoke	2
	line	86
	colm	26
	synt	any
	asgn
	goto	L17
lab L16
	mark	L19
	pnull
	var	2
	var	19
	var	10
	str	5
	line	89
	colm	33
	synt	any
	invoke	2
	line	89
	colm	26
	synt	any
	asgn
	unmark
lab L19
	pnull
	var	1
	var	19
	var	11
	line	90
	colm	32
	synt	any
	invoke	1
	line	90
	colm	25
	synt	any
	asgn
lab L17
	line	84
	colm	16
	synt	endifelse
	line	80
	colm	13
	synt	endif
	unmark
lab L12
	mark	L20
	line	93
	colm	13
	synt	ifelse
	mark	L21
	pnull
	var	5
	str	4
	line	93
	colm	20
	synt	any
	eqv
	unmark
	pnull
	var	1
	var	19
	var	15
	var	16
	int	2
	line	93
	colm	55
	synt	any
	invoke	1
	pnull
	int	2
	line	93
	colm	51
	synt	any
	invoke	3
	line	93
	colm	46
	synt	any
	invoke	1
	line	93
	colm	39
	synt	any
	asgn
	goto	L22
lab L21
	pnull
	var	2
	var	19
	var	15
	var	16
	int	2
	line	94
	colm	41
	synt	any
	invoke	1
	pnull
	int	2
	line	94
	colm	37
	synt	any
	invoke	3
	str	5
	line	94
	colm	32
	synt	any
	invoke	2
	line	94
	colm	25
	synt	any
	asgn
lab L22
	line	93
	colm	13
	synt	endifelse
	unmark
lab L20
	pnull
	var	0
	var	8
	line	95
	colm	15
	synt	any
	asgn
	line	78
	colm	10
	synt	endif
	line	70
	colm	9
	synt	any
	escan
	unmark
lab L10
	pnull
	line	98
	colm	7
	synt	any
	keywd	eventsource
	pnull
	var	20
	pnull
	var	21
	mark	L23
	var	22
	var	0
	pnull
	var	1
	var	2
	var	3
	line	98
	colm	55
	synt	any
	invoke	5
	line	98
	colm	79
	synt	any
	esusp
	goto	L24
lab L23
	line	98
	colm	81
	synt	any
	pfail
lab L24
	line	98
	colm	48
	synt	any
	asgn
	line	98
	colm	35
	synt	any
	asgn
	line	98
	colm	20
	synt	any
	asgn
	goto	L8
lab L7
	line	100
	colm	9
	synt	if
	mark0
	pnull
	var	14
	var	0
	line	100
	colm	16
	synt	any
	invoke	1
	str	6
	line	100
	colm	20
	synt	any
	lexeq
	unmark
	mark	L25
	line	101
	colm	7
	synt	every
	mark0
	pnull
	var	4
	pnull
	int	3
	pnull
	var	0
	line	101
	colm	23
	synt	any
	size
	push1
	line	101
	colm	20
	synt	any
	toby
	line	101
	colm	15
	synt	any
	asgn
	pop
	mark0
	mark	L28
	pnull
	var	7
	var	23
	var	0
	line	102
	colm	20
	synt	any
	invoke	1
	line	102
	colm	14
	synt	any
	asgn
	unmark
lab L28
	line	103
	colm	10
	synt	ifelse
	mark	L29
	pnull
	var	7
	str	4
	line	103
	colm	16
	synt	any
	eqv
	unmark
	line	104
	colm	13
	synt	ifelse
	mark	L31
	mark	L33
	pnull
	var	1
	var	19
	pnull
	var	0
	int	3
	line	104
	colm	36
	synt	any
	subsc
	line	104
	colm	34
	synt	any
	invoke	1
	line	104
	colm	27
	synt	any
	asgn
	unmark
	efail
lab L33
	pnull
	unmark
	var	24
	line	105
	colm	22
	synt	any
	keywd	errout
	str	7
	var	25
	mark	L34
	pnull
	var	0
	int	3
	line	106
	colm	29
	synt	any
	subsc
	line	106
	colm	32
	synt	any
	esusp
	goto	L35
lab L34
	str	8
lab L35
	line	106
	colm	27
	synt	any
	invoke	1
	line	105
	colm	21
	synt	any
	invoke	3
	goto	L32
lab L31
	pnull
	pnull
	var	0
	int	3
	line	107
	colm	19
	synt	any
	subsc
	line	107
	colm	26
	synt	any
	keywd	null
	line	107
	colm	23
	synt	any
	asgn
lab L32
	line	104
	colm	13
	synt	endifelse
	goto	L30
lab L29
	line	109
	colm	15
	synt	ifelse
	mark	L36
	pnull
	var	7
	str	9
	line	109
	colm	21
	synt	any
	eqv
	unmark
	line	110
	colm	13
	synt	ifelse
	mark	L38
	mark	L40
	pnull
	var	2
	var	19
	pnull
	var	0
	int	3
	line	110
	colm	37
	synt	any
	subsc
	str	5
	line	110
	colm	35
	synt	any
	invoke	2
	line	110
	colm	28
	synt	any
	asgn
	unmark
	efail
lab L40
	pnull
	unmark
	var	24
	line	111
	colm	22
	synt	any
	keywd	errout
	str	7
	var	25
	mark	L41
	pnull
	var	0
	int	3
	line	112
	colm	29
	synt	any
	subsc
	line	112
	colm	32
	synt	any
	esusp
	goto	L42
lab L41
	str	8
lab L42
	line	112
	colm	27
	synt	any
	invoke	1
	line	111
	colm	21
	synt	any
	invoke	3
	goto	L39
lab L38
	pnull
	pnull
	var	0
	int	3
	line	113
	colm	19
	synt	any
	subsc
	line	113
	colm	26
	synt	any
	keywd	null
	line	113
	colm	23
	synt	any
	asgn
lab L39
	line	110
	colm	13
	synt	endifelse
	goto	L37
lab L36
	line	115
	colm	15
	synt	if
	mark0
	var	26
	var	7
	line	115
	colm	24
	synt	any
	invoke	1
	unmark
	var	27
	var	0
	var	7
	line	115
	colm	38
	synt	any
	invoke	2
	line	115
	colm	15
	synt	endif
lab L37
	line	109
	colm	15
	synt	endifelse
lab L30
	line	103
	colm	10
	synt	endifelse
	unmark
lab L26
	efail
lab L27
	line	101
	colm	7
	synt	endevery
	unmark
lab L25
	pnull
	line	117
	colm	7
	synt	any
	keywd	eventsource
	pnull
	var	20
	pnull
	var	21
	mark	L43
	var	22
	pnull
	var	0
	int	3
	line	117
	colm	57
	synt	any
	subsc
	pnull
	var	0
	int	10
	int	2
	line	117
	colm	64
	synt	any
	synt	any
	sect
	var	1
	var	2
	var	3
	line	117
	colm	55
	synt	any
	invoke	5
	line	117
	colm	88
	synt	any
	esusp
	goto	L44
lab L43
	line	117
	colm	90
	synt	any
	pfail
lab L44
	line	117
	colm	48
	synt	any
	asgn
	line	117
	colm	35
	synt	any
	asgn
	line	117
	colm	20
	synt	any
	asgn
	line	100
	colm	9
	synt	endif
lab L8
	line	68
	colm	4
	synt	endifelse
	unmark
lab L6
	mark	L45
	mark	L46
	line	119
	colm	11
	synt	any
	keywd	eventsource
	line	119
	colm	4
	synt	any
	pret
lab L46
	synt	any
	pfail
	unmark
lab L45
	pnull
	line	120
	colm	1
	synt	any
	pfail
	end
proc MTEvGet
	local	0,001000,c
	local	1,001000,vmask
	local	2,001000,flag
	local	3,000020,e
	local	4,000040,lastcset
	local	5,000000,eventmask
	local	6,000000,Monitored
	local	7,000000,EventSource
	local	8,000000,MTEvGet
	con	0,020000,0
	declend
	line	122
	colm	11
	synt	any
lab L1
	init	L3
	mark	L2
	pnull
	var	4
	cset	0
	line	126
	colm	16
	synt	any
	asgn
	unmark
lab L2
	einit	L1
lab L3
	mark	L4
	line	129
	colm	4
	synt	if
	mark0
	pnull
	var	0
	var	4
	line	129
	colm	9
	synt	any
	neqv
	unmark
	mark	L5
	pnull
	var	4
	var	0
	line	130
	colm	15
	synt	any
	asgn
	unmark
lab L5
	var	5
	pnull
	mark	L6
	var	6
	line	131
	colm	28
	synt	any
	esusp
	goto	L7
lab L6
	var	7
lab L7
	line	131
	colm	16
	synt	any
	nonnull
	mark	L8
	pnull
	var	0
	line	131
	colm	44
	synt	any
	nonnull
	line	131
	colm	47
	synt	any
	esusp
	goto	L9
lab L8
	line	131
	colm	49
	synt	any
	keywd	cset
lab L9
	line	131
	colm	15
	synt	any
	invoke	2
	line	129
	colm	4
	synt	endif
	unmark
lab L4
	mark	L10
	line	133
	colm	4
	synt	if
	mark0
	pnull
	var	3
	var	8
	var	0
	var	1
	var	2
	line	133
	colm	19
	synt	any
	invoke	3
	line	133
	colm	9
	synt	any
	asgn
	unmark
	mark	L11
	var	3
	line	134
	colm	7
	synt	any
	pret
lab L11
	synt	any
	pfail
	line	133
	colm	4
	synt	endif
	unmark
lab L10
	mark	L12
	line	136
	colm	4
	synt	if
	mark0
	pnull
	line	136
	colm	7
	synt	any
	keywd	eventsource
	var	6
	line	136
	colm	20
	synt	any
	eqv
	unmark
	pnull
	line	136
	colm	39
	synt	any
	keywd	eventsource
	line	136
	colm	55
	synt	any
	keywd	null
	line	136
	colm	52
	synt	any
	asgn
	line	136
	colm	4
	synt	endif
	unmark
lab L12
	pnull
	line	137
	colm	1
	synt	any
	pfail
	end
proc EvQuit
	local	0,000000,EvSignal
	con	0,010000,4,161,165,151,164
	declend
	line	142
	colm	11
	synt	any
	mark	L1
	var	0
	str	0
	line	143
	colm	11
	synt	any
	invoke	1
	unmark
lab L1
	pnull
	line	144
	colm	1
	synt	any
	pfail
	end
proc EvSignal
	local	0,001000,x
	local	1,000000,type
	local	2,000000,write
	local	3,000000,image
	con	0,010000,4,143,163,145,164
	con	1,010000,9,105,166,123,151,147,156,141,154,050
	con	2,010000,15,051,040,151,163,040,141,155,142,151,147,165,157,165,163,056
	declend
	line	146
	colm	11
	synt	any
	mark	L1
	line	147
	colm	4
	synt	if
	mark0
	pnull
	var	1
	var	0
	line	147
	colm	11
	synt	any
	invoke	1
	str	0
	line	147
	colm	15
	synt	any
	lexeq
	unmark
	var	2
	line	148
	colm	13
	synt	any
	keywd	errout
	str	1
	var	3
	var	0
	line	148
	colm	40
	synt	any
	invoke	1
	str	2
	line	148
	colm	12
	synt	any
	invoke	4
	line	147
	colm	4
	synt	endif
	unmark
lab L1
	mark	L2
	mark	L3
	var	0
	line	149
	colm	15
	synt	any
	keywd	eventsource
	line	149
	colm	13
	synt	any
	coact
	line	149
	colm	4
	synt	any
	pret
lab L3
	synt	any
	pfail
	unmark
lab L2
	pnull
	line	150
	colm	1
	synt	any
	pfail
	end
