proc strcpx
	local	0,001000,s
	local	1,000000,i
	local	2,000000,upto
	local	3,000000,complex
	con	0,020000,2,053,055
	con	1,002000,2
	con	2,002000,1
	filen	[-.source]complex.icn
	declend
	line	12
	mark	L1
	pnull
	var	1
	var	2
	cset	0
	var	0
	int	1
	line	13
	invoke	3
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	3
	pnull
	pnull
	var	0
	int	2
	var	1
	line	14
	sect
	number
	pnull
	pnull
	var	0
	var	1
	pnull
	int	2
	neg
	sect
	number
	invoke	2
	pret
lab L3
	line	14
	pfail
	unmark
lab L2
	pnull
	line	15
	pfail
	end
proc cpxstr
	local	0,001000,x
	con	0,002000,0
	con	1,010000,1,151
	con	2,010000,1,053
	filen	[-.source]complex.icn
	declend
	line	17
	mark	L1
	mark	L2
	pnull
	pnull
	var	0
	line	18
	field	ipart
	int	0
	numlt
	unmark
	mark	L4
	pnull
	pnull
	pnull
	var	0
	field	rpart
	pnull
	var	0
	field	ipart
	cat
	str	1
	cat
	pret
lab L4
	line	18
	pfail
	goto	L3
lab L2
	mark	L5
	pnull
	pnull
	pnull
	pnull
	var	0
	line	19
	field	rpart
	str	2
	cat
	pnull
	var	0
	field	ipart
	cat
	str	1
	cat
	pret
lab L5
	line	19
	pfail
lab L3
	unmark
lab L1
	pnull
	line	20
	pfail
	end
proc cpxadd
	local	0,001000,x1
	local	1,001000,x2
	local	2,000000,complex
	filen	[-.source]complex.icn
	declend
	line	22
	mark	L1
	mark	L2
	var	2
	pnull
	pnull
	var	0
	line	23
	field	rpart
	pnull
	var	1
	field	rpart
	plus
	pnull
	pnull
	var	0
	field	ipart
	pnull
	var	1
	field	ipart
	plus
	invoke	2
	pret
lab L2
	line	23
	pfail
	unmark
lab L1
	pnull
	line	24
	pfail
	end
proc cpxsub
	local	0,001000,x1
	local	1,001000,x2
	local	2,000000,complex
	filen	[-.source]complex.icn
	declend
	line	26
	mark	L1
	mark	L2
	var	2
	pnull
	pnull
	var	0
	line	27
	field	rpart
	pnull
	var	1
	field	rpart
	minus
	pnull
	pnull
	var	0
	field	ipart
	pnull
	var	1
	field	ipart
	minus
	invoke	2
	pret
lab L2
	line	27
	pfail
	unmark
lab L1
	pnull
	line	28
	pfail
	end
proc cpxmul
	local	0,001000,x1
	local	1,001000,x2
	local	2,000000,complex
	filen	[-.source]complex.icn
	declend
	line	30
	mark	L1
	mark	L2
	var	2
	pnull
	pnull
	pnull
	var	0
	line	31
	field	rpart
	pnull
	var	1
	field	rpart
	mult
	pnull
	pnull
	var	0
	field	ipart
	pnull
	var	1
	field	ipart
	mult
	minus
	pnull
	pnull
	pnull
	var	0
	line	32
	field	rpart
	pnull
	var	1
	field	ipart
	mult
	pnull
	pnull
	var	0
	field	ipart
	pnull
	var	1
	field	rpart
	mult
	plus
	line	31
	invoke	2
	pret
lab L2
	line	31
	pfail
	unmark
lab L1
	pnull
	line	33
	pfail
	end
proc cpxdiv
	local	0,001000,x1
	local	1,001000,x2
	local	2,000000,denom
	local	3,000000,complex
	con	0,002000,2
	filen	[-.source]complex.icn
	declend
	line	35
	mark	L1
	pnull
	var	2
	pnull
	pnull
	pnull
	var	1
	line	36
	field	rpart
	int	0
	power
	pnull
	pnull
	var	1
	field	ipart
	int	0
	power
	plus
	asgn
	unmark
lab L1
	mark	L2
	mark	L3
	var	3
	pnull
	pnull
	pnull
	pnull
	var	0
	line	37
	field	rpart
	pnull
	var	1
	field	rpart
	mult
	pnull
	pnull
	var	0
	field	ipart
	pnull
	var	1
	field	ipart
	mult
	plus
	var	2
	div
	pnull
	pnull
	pnull
	pnull
	var	0
	line	38
	field	ipart
	pnull
	var	1
	field	rpart
	mult
	pnull
	pnull
	var	0
	field	rpart
	pnull
	var	1
	field	ipart
	mult
	minus
	var	2
	div
	line	37
	invoke	2
	pret
lab L3
	line	37
	pfail
	unmark
lab L2
	pnull
	line	40
	pfail
	end