version	U12.1.00
uid	decay.u1-1786033003-0
record	Decay_Rec,5
	0,pipe
	1,tab
	2,proc
	3,gc1
	4,gc2
impl	error
global	3
	0,000011,Decay_Rec,5
	1,000005,dpipe,4
	2,000005,decay,2

proc dpipe
	local	0,001000,proc
	local	1,001000,length
	local	2,001000,gc1
	local	3,001000,gc2
	local	4,000000,Decay_Rec
	local	5,000000,list
	local	6,000000,table
	con	0,002000,1,0
	declend
	filen	decay.icn
	line	69
	colm	11
	synt	any
	mark	L1
	mark	L2
	var	4
	var	5
	var	1
	line	70
	colm	25
	synt	any
	invoke	1
	var	6
	int	0
	line	70
	colm	40
	synt	any
	invoke	1
	var	0
	var	2
	var	3
	line	70
	colm	20
	synt	any
	invoke	5
	line	70
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	71
	colm	1
	synt	any
	pfail
	end
proc decay
	local	0,001000,dp
	local	1,001000,i
	local	2,000020,j
	local	3,000000,get
	local	4,000000,put
	con	0,002000,1,1
	con	1,002000,1,0
	declend
	line	76
	colm	11
	synt	any
	mark	L1
	pnull
	var	2
	var	3
	pnull
	var	0
	line	78
	colm	15
	synt	any
	field	pipe
	line	78
	colm	12
	synt	any
	invoke	1
	line	78
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	line	79
	colm	4
	synt	if
	mark0
	pnull
	pnull
	pnull
	pnull
	var	0
	line	79
	colm	10
	synt	any
	field	tab
	pnull
	var	1
	line	79
	colm	15
	synt	any
	nonnull
	line	79
	colm	14
	synt	any
	subsc
	dup
	int	0
	line	79
	colm	19
	synt	any
	plus
	asgn
	int	0
	line	79
	colm	26
	synt	any
	numeq
	unmark
	pnull
	var	0
	line	80
	colm	9
	synt	any
	field	proc
	pnull
	var	0
	line	80
	colm	17
	synt	any
	field	gc1
	var	1
	line	80
	colm	14
	synt	any
	invoke	2
	line	79
	colm	4
	synt	endif
	unmark
lab L2
	mark	L3
	line	81
	colm	4
	synt	if
	mark0
	pnull
	pnull
	pnull
	pnull
	var	0
	line	81
	colm	10
	synt	any
	field	tab
	pnull
	var	2
	line	81
	colm	15
	synt	any
	nonnull
	line	81
	colm	14
	synt	any
	subsc
	dup
	int	0
	line	81
	colm	19
	synt	any
	minus
	asgn
	int	1
	line	81
	colm	26
	synt	any
	numeq
	unmark
	pnull
	var	0
	line	82
	colm	9
	synt	any
	field	proc
	pnull
	var	0
	line	82
	colm	17
	synt	any
	field	gc2
	var	2
	line	82
	colm	14
	synt	any
	invoke	2
	line	81
	colm	4
	synt	endif
	unmark
lab L3
	mark	L4
	var	4
	pnull
	var	0
	line	83
	colm	10
	synt	any
	field	pipe
	var	1
	line	83
	colm	7
	synt	any
	invoke	2
	unmark
lab L4
	pnull
	line	84
	colm	1
	synt	any
	pfail
	end
