proc segment
	local	0,001000,line
	local	1,001000,dlms
	local	2,000000,any
	local	3,000000,ndlms
	local	4,000000,tab
	local	5,000000,many
	local	6,000000,pos
	con	0,002000,1
	con	1,002000,0
	filen	[-.source]segment.icn
	declend
	line	10
	mark	L1
	pnull
	var	1
	var	2
	var	1
	pnull
	var	0
	int	0
	line	11
	subsc
	invoke	2
	pop
	pnull
	var	1
	compl
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	3
	pnull
	var	1
	line	12
	compl
	asgn
	unmark
lab L2
	mark	L3
	var	0
	line	13
	bscan
lab L4
	line	13
	mark	L4
	mark	L7
	mark0
	int	0
	line	14
	limit
	var	4
	var	5
	var	3
	invoke	1
	invoke	1
	lsusp
	psusp
	efail
	unmark
lab L7
	mark	L8
	mark0
	int	0
	line	15
	limit
	var	4
	var	5
	var	1
	invoke	1
	invoke	1
	lsusp
	psusp
	efail
	unmark
lab L8
	var	6
	int	1
	line	16
	invoke	1
	pop
	unmark
	pnull
	goto	L6
lab L5
	unmark
	goto	L4
lab L6
	line	13
	escan
	unmark
lab L3
	pnull
	line	18
	pfail
	end