version	U12.1.00
uid	signed.u1-1786291387-0
impl	error
global	1
	0,000005,signed,1

proc signed
	local	0,001000,s
	local	1,000020,i
	local	2,000000,ord
	local	3,000000,ior
	local	4,000000,ishift
	con	0,002000,1,1
	con	1,002000,3,128
	con	2,002000,1,0
	con	3,002000,1,8
	declend
	filen	signed.icn
	line	39
	colm	11
	synt	any
	mark	L1
	pnull
	var	1
	line	41
	colm	9
	synt	ifelse
	mark	L2
	pnull
	var	2
	pnull
	var	0
	int	0
	line	41
	colm	17
	synt	any
	subsc
	line	41
	colm	15
	synt	any
	invoke	1
	int	1
	line	41
	colm	22
	synt	any
	numge
	unmark
	pnull
	int	0
	line	41
	colm	34
	synt	any
	neg
	goto	L3
lab L2
	int	2
lab L3
	line	41
	colm	9
	synt	endifelse
	line	41
	colm	6
	synt	any
	asgn
	unmark
lab L1
	mark	L4
	line	42
	colm	4
	synt	every
	mark0
	pnull
	var	1
	var	3
	var	2
	pnull
	var	0
	line	42
	colm	23
	synt	any
	bang
	line	42
	colm	22
	synt	any
	invoke	1
	var	4
	var	1
	int	3
	line	42
	colm	33
	synt	any
	invoke	2
	line	42
	colm	18
	synt	any
	invoke	2
	line	42
	colm	12
	synt	any
	asgn
	pop
lab L5
	efail
lab L6
	line	42
	colm	4
	synt	endevery
	unmark
lab L4
	mark	L7
	mark	L8
	var	1
	line	43
	colm	4
	synt	any
	pret
lab L8
	synt	any
	pfail
	unmark
lab L7
	pnull
	line	44
	colm	1
	synt	any
	pfail
	end
