version	U12.1.00
uid	lindgen.u1-1786350163-0
impl	error
global	2
	0,000005,lindgen,3
	1,000005,lindgenx,3

proc lindgen
	local	0,001000,c
	local	1,001000,rewrite
	local	2,001000,gener
	local	3,000000,lindgen
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	filen	lindgen.icn
	line	26
	colm	11
	synt	any
	mark	L1
	line	28
	colm	4
	synt	ifelse
	mark	L2
	pnull
	var	2
	int	0
	line	28
	colm	13
	synt	any
	numeq
	unmark
	line	28
	colm	22
	synt	suspend
	mark0
	var	0
	line	28
	colm	22
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	28
	colm	22
	synt	endsuspend
	goto	L3
lab L2
	line	29
	colm	9
	synt	suspend
	mark0
	var	3
	pnull
	pnull
	var	1
	var	0
	line	29
	colm	33
	synt	any
	subsc
	line	29
	colm	25
	synt	any
	bang
	var	1
	pnull
	var	2
	int	1
	line	29
	colm	53
	synt	any
	minus
	line	29
	colm	24
	synt	any
	invoke	3
	line	29
	colm	9
	synt	any
	psusp
	pop
lab L6
	efail
lab L7
	line	29
	colm	9
	synt	endsuspend
lab L3
	line	28
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	31
	colm	1
	synt	any
	pfail
	end
proc lindgenx
	local	0,001000,c
	local	1,001000,rewrite
	local	2,001000,gener
	local	3,000020,k
	local	4,000000,lindgenx
	con	0,002000,1,0
	con	1,002000,1,1
	declend
	line	33
	colm	11
	synt	any
	mark	L1
	line	36
	colm	4
	synt	ifelse
	mark	L2
	pnull
	var	2
	int	0
	line	36
	colm	13
	synt	any
	numeq
	unmark
	line	36
	colm	22
	synt	suspend
	mark0
	var	0
	line	36
	colm	22
	synt	any
	psusp
	pop
lab L4
	efail
lab L5
	line	36
	colm	22
	synt	endsuspend
	goto	L3
lab L2
	line	37
	colm	9
	synt	every
	mark0
	pnull
	var	3
	pnull
	var	0
	line	37
	colm	20
	synt	any
	bang
	line	37
	colm	17
	synt	any
	asgn
	pop
	mark0
	mark	L8
	pnull
	var	3
	pnull
	pnull
	var	1
	var	3
	line	38
	colm	20
	synt	any
	subsc
	line	38
	colm	12
	synt	any
	nonnull
	line	38
	colm	9
	synt	any
	asgn
	unmark
lab L8
	line	39
	colm	7
	synt	suspend
	mark0
	var	4
	pnull
	var	3
	line	39
	colm	24
	synt	any
	bang
	var	1
	pnull
	var	2
	int	1
	line	39
	colm	43
	synt	any
	minus
	line	39
	colm	23
	synt	any
	invoke	3
	line	39
	colm	7
	synt	any
	psusp
	pop
lab L9
	efail
lab L10
	line	39
	colm	7
	synt	endsuspend
	unmark
lab L6
	efail
lab L7
	line	37
	colm	9
	synt	endevery
lab L3
	line	36
	colm	4
	synt	endifelse
	unmark
lab L1
	pnull
	line	42
	colm	1
	synt	any
	pfail
	end
