proc bold
	local	0,001000,s
	local	1,000020,c
	local	2,000040,labels
	local	3,000040,trans
	local	4,000040,max
	local	5,000000,repl
	local	6,000000,bold
	local	7,000000,string
	local	8,000000,map
	local	9,000000,left
	local	10,000000,right
	con	0,010000,1,061
	con	1,010000,2,061,010
	con	2,002000,4
	con	3,002000,9
	filen	[-.source]bold.icn
	declend
	line	10
	init	L1
	mark	L1
	mark	L2
	pnull
	var	2
	str	0
	line	14
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	3
	pnull
	var	5
	str	1
	int	2
	line	15
	invoke	2
	str	0
	cat
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	4
	pnull
	var	2
	line	16
	size
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	3
	var	6
	var	7
	line	17
	keywd	10
	invoke	1
	invoke	1
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	2
	var	7
	line	18
	keywd	10
	invoke	1
	asgn
	unmark
lab L6
	pnull
	var	4
	pnull
	var	2
	line	19
	size
	asgn
	unmark
lab L1
	mark	L7
	mark	L8
	pnull
	pnull
	var	0
	line	21
	size
	var	4
	numle
	unmark
	mark	L10
	var	8
	var	9
	var	3
	pnull
	int	3
	pnull
	var	0
	line	22
	size
	mult
	invoke	2
	var	9
	var	2
	pnull
	var	0
	size
	invoke	2
	var	0
	invoke	3
	pret
lab L10
	line	22
	pfail
	goto	L9
lab L8
	mark	L11
	pnull
	var	6
	var	9
	var	0
	pnull
	pnull
	var	0
	line	23
	size
	var	4
	minus
	invoke	2
	invoke	1
	var	8
	var	3
	var	2
	var	10
	var	0
	var	4
	line	24
	invoke	2
	invoke	3
	line	23
	cat
	pret
lab L11
	line	23
	pfail
lab L9
	unmark
lab L7
	pnull
	line	25
	pfail
	end
proc uscore
	local	0,001000,s
	local	1,000040,labels
	local	2,000040,trans
	local	3,000040,max
	local	4,000000,uscore
	local	5,000000,string
	local	6,000000,map
	local	7,000000,left
	local	8,000000,right
	con	0,010000,1,061
	con	1,010000,3,137,010,061
	con	2,002000,3
	filen	[-.source]bold.icn
	declend
	line	27
	init	L1
	mark	L1
	mark	L2
	pnull
	var	1
	str	0
	line	30
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	2
	str	1
	line	31
	asgn
	unmark
lab L3
	mark	L4
	pnull
	var	3
	pnull
	var	1
	line	32
	size
	asgn
	unmark
lab L4
	mark	L5
	pnull
	var	2
	var	4
	var	5
	line	33
	keywd	10
	invoke	1
	invoke	1
	asgn
	unmark
lab L5
	mark	L6
	pnull
	var	1
	var	5
	line	34
	keywd	10
	invoke	1
	asgn
	unmark
lab L6
	pnull
	var	3
	pnull
	var	1
	line	35
	size
	asgn
	unmark
lab L1
	mark	L7
	mark	L8
	pnull
	pnull
	var	0
	line	37
	size
	var	3
	numle
	unmark
	mark	L10
	var	6
	var	7
	var	2
	pnull
	int	2
	pnull
	var	0
	line	38
	size
	mult
	invoke	2
	var	7
	var	1
	pnull
	var	0
	size
	invoke	2
	var	0
	invoke	3
	pret
lab L10
	line	38
	pfail
	goto	L9
lab L8
	mark	L11
	pnull
	var	4
	var	7
	var	0
	pnull
	pnull
	var	0
	line	39
	size
	var	3
	minus
	invoke	2
	invoke	1
	var	6
	var	2
	var	1
	var	8
	var	0
	var	3
	line	40
	invoke	2
	invoke	3
	line	39
	cat
	pret
lab L11
	line	39
	pfail
lab L9
	unmark
lab L7
	pnull
	line	41
	pfail
	end