proc isort
	local	0,001000,x
	local	1,001000,keyproc
	local	2,001000,y
	local	3,000020,items
	local	4,000020,item
	local	5,000020,key
	local	6,000020,result
	local	7,000000,integer
	local	8,000000,proc
	local	9,000000,table
	local	10,000000,put
	local	11,000000,sort
	local	12,000000,get
	con	0,010000,2,133,135
	con	1,002000,1,2
	con	2,002000,1,1
	con	3,002000,1,3
	declend
	filen	isort.icn
	line	39
	colm	11
	mark	L1
	mark	L2
	pnull
	var	2
	var	7
	var	1
	line	41
	colm	19
	invoke	1
	line	41
	colm	9
	asgn
	unmark
	pnull
	var	1
	var	8
	str	0
	int	1
	line	42
	colm	25
	invoke	2
	line	42
	colm	18
	asgn
	goto	L3
lab L2
	pnull
	pnull
	var	1
	line	43
	colm	9
	null
	int	2
	line	43
	colm	18
	asgn
lab L3
	unmark
lab L1
	mark	L4
	pnull
	var	3
	var	9
	line	44
	colm	18
	invoke	0
	line	44
	colm	10
	asgn
	unmark
lab L4
	mark	L5
	mark0
	pnull
	var	4
	pnull
	var	0
	line	45
	colm	18
	bang
	line	45
	colm	15
	asgn
	pop
	mark0
	mark	L8
	pnull
	var	5
	var	1
	var	4
	var	2
	line	46
	colm	21
	invoke	2
	line	46
	colm	11
	asgn
	unmark
lab L8
	mark	L9
	pnull
	pnull
	pnull
	var	3
	var	5
	line	47
	colm	14
	subsc
	line	47
	colm	8
	null
	pnull
	var	4
	line	47
	colm	23
	llist	1
	line	47
	colm	20
	asgn
	esusp
	goto	L10
lab L9
	var	10
	pnull
	var	3
	var	5
	line	47
	colm	42
	subsc
	var	4
	line	47
	colm	36
	invoke	2
lab L10
	unmark
lab L6
	efail
lab L7
	unmark
lab L5
	mark	L11
	pnull
	var	3
	var	11
	var	3
	int	3
	line	49
	colm	17
	invoke	2
	line	49
	colm	10
	asgn
	unmark
lab L11
	mark	L12
	pnull
	var	6
	pnull
	line	50
	colm	14
	llist	0
	line	50
	colm	11
	asgn
	unmark
lab L12
	mark	L13
lab L14
	mark0
	var	12
	var	3
	line	51
	colm	13
	invoke	1
	unmark
	mark	L14
	mark0
	var	10
	var	6
	pnull
	var	12
	var	3
	line	51
	colm	45
	invoke	1
	line	51
	colm	41
	bang
	line	51
	colm	33
	invoke	2
	pop
lab L17
	efail
lab L18
lab L15
	unmark
	goto	L14
lab L16
	unmark
lab L13
	mark	L19
	mark	L20
	var	6
	line	52
	colm	4
	pret
lab L20
	pfail
	unmark
lab L19
	pnull
	line	53
	colm	1
	pfail
	end
