version	U12.1.00
uid	empgsup.u1-1786032980-0
impl	error
global	1
	0,000005,_Initialize,1

proc _Initialize
	local	0,001000,limit
	local	1,000020,itime
	local	2,000020,t1
	local	3,000020,t3
	con	0,002000,1,1
	con	1,002000,1,2
	declend
	filen	empgsup.icn
	line	22
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	25
	colm	13
	synt	any
	keywd	time
	line	25
	colm	10
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	27
	colm	4
	synt	every
	mark0
	pnull
	int	0
	var	0
	push1
	line	27
	colm	12
	synt	any
	toby
	pop
	mark0
	line	28
	colm	7
	synt	any
	keywd	null
	unmark
lab L3
	efail
lab L4
	line	27
	colm	4
	synt	endevery
	unmark
lab L2
	mark	L5
	pnull
	var	2
	pnull
	line	31
	colm	11
	synt	any
	keywd	time
	var	1
	line	31
	colm	17
	synt	any
	minus
	line	31
	colm	7
	synt	any
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	1
	line	33
	colm	13
	synt	any
	keywd	time
	line	33
	colm	10
	synt	any
	asgn
	unmark
lab L6
	mark	L7
	line	35
	colm	4
	synt	every
	mark0
	pnull
	int	0
	var	0
	push1
	line	35
	colm	12
	synt	any
	toby
	pop
	mark0
	line	36
	colm	7
	synt	any
	keywd	null
	pop
	line	36
	colm	15
	synt	any
	keywd	null
	unmark
lab L8
	efail
lab L9
	line	35
	colm	4
	synt	endevery
	unmark
lab L7
	mark	L10
	pnull
	var	3
	pnull
	line	39
	colm	11
	synt	any
	keywd	time
	var	1
	line	39
	colm	17
	synt	any
	minus
	line	39
	colm	7
	synt	any
	asgn
	unmark
lab L10
	mark	L11
	mark	L12
	pnull
	pnull
	var	2
	var	3
	line	41
	colm	15
	synt	any
	plus
	int	1
	line	41
	colm	21
	synt	any
	div
	line	41
	colm	4
	synt	any
	pret
lab L12
	synt	any
	pfail
	unmark
lab L11
	pnull
	line	43
	colm	1
	synt	any
	pfail
	end
