version	U12.1.00
uid	joinpair.u1-1786033007-0
impl	error
link	gobject.u
link	turtle.u
global	1
	0,000005,joinpair,2

proc joinpair
	local	0,001000,points1
	local	1,001000,points2
	local	2,000020,j
	local	3,000020,k
	local	4,000020,p1
	local	5,000020,p2
	local	6,000000,TGoto
	local	7,000000,TDrawto
	declend
	filen	joinpair.icn
	line	33
	colm	11
	synt	any
	mark	L1
	line	36
	colm	4
	synt	every
	mark0
	pnull
	var	4
	pnull
	var	0
	line	36
	colm	16
	synt	any
	bang
	line	36
	colm	13
	synt	any
	asgn
	pop
	mark0
	line	37
	colm	7
	synt	every
	mark0
	pnull
	var	5
	pnull
	var	1
	line	37
	colm	19
	synt	any
	bang
	line	37
	colm	16
	synt	any
	asgn
	pop
	mark0
	mark	L6
	var	6
	pnull
	var	4
	line	38
	colm	18
	synt	any
	field	x
	pnull
	var	4
	line	38
	colm	24
	synt	any
	field	y
	line	38
	colm	15
	synt	any
	invoke	2
	unmark
lab L6
	var	7
	pnull
	var	5
	line	39
	colm	20
	synt	any
	field	x
	pnull
	var	5
	line	39
	colm	26
	synt	any
	field	y
	line	39
	colm	17
	synt	any
	invoke	2
	unmark
lab L4
	efail
lab L5
	line	37
	colm	7
	synt	endevery
	unmark
lab L2
	efail
lab L3
	line	36
	colm	4
	synt	endevery
	unmark
lab L1
	mark	L7
	mark	L8
	pnull
	line	42
	colm	4
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	44
	colm	1
	synt	any
	pfail
	end
