version	U12.1.00
uid	randfigs.u1-1786350284-0
impl	error
link	gobject.u
global	2
	0,000005,random_points,2
	1,000005,random_lines,2

proc random_points
	local	0,001000,width
	local	1,001000,height
	local	2,000000,Point
	con	0,002000,1,1
	declend
	filen	randfigs.icn
	line	32
	colm	11
	synt	any
	mark	L1
	line	34
	colm	4
	synt	suspend
	mark0
lab L4
	mark0
	var	2
	pnull
	pnull
	var	0
	line	34
	colm	19
	synt	any
	random
	int	0
	line	34
	colm	26
	synt	any
	minus
	pnull
	pnull
	var	1
	line	34
	colm	31
	synt	any
	random
	int	0
	line	34
	colm	39
	synt	any
	minus
	line	34
	colm	18
	synt	any
	invoke	2
	chfail	L4
	esusp
	line	34
	colm	4
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	34
	colm	4
	synt	endsuspend
	unmark
lab L1
	pnull
	line	36
	colm	1
	synt	any
	pfail
	end
proc random_lines
	local	0,001000,width
	local	1,001000,height
	local	2,000000,Line
	local	3,000000,Point
	con	0,002000,1,1
	declend
	line	43
	colm	11
	synt	any
	mark	L1
	line	45
	colm	4
	synt	suspend
	mark0
lab L4
	mark0
	var	2
	var	3
	pnull
	pnull
	var	0
	line	45
	colm	24
	synt	any
	random
	int	0
	line	45
	colm	31
	synt	any
	minus
	pnull
	pnull
	var	1
	line	45
	colm	36
	synt	any
	random
	int	0
	line	45
	colm	44
	synt	any
	minus
	line	45
	colm	23
	synt	any
	invoke	2
	var	3
	pnull
	pnull
	var	0
	line	46
	colm	13
	synt	any
	random
	int	0
	line	46
	colm	20
	synt	any
	minus
	pnull
	pnull
	var	1
	line	46
	colm	25
	synt	any
	random
	int	0
	line	46
	colm	33
	synt	any
	minus
	line	46
	colm	12
	synt	any
	invoke	2
	line	45
	colm	17
	synt	any
	invoke	2
	chfail	L4
	esusp
	line	45
	colm	4
	synt	any
	psusp
	pop
lab L2
	efail
lab L3
	line	45
	colm	4
	synt	endsuspend
	unmark
lab L1
	pnull
	line	48
	colm	1
	synt	any
	pfail
	end
