version	U12.1.00
uid	soundex.u1-1788539917-0
impl	error
global	1
	0,000005,soundex,1

proc soundex
	local	0,001000,name
	local	1,000020,first
	local	2,000020,c
	local	3,000020,i
	local	4,000000,map
	local	5,000000,string
	local	6,000000,find
	local	7,000000,upto
	local	8,000000,left
	con	0,002000,1,1
	con	1,010000,26,101,102,103,104,105,106,107,110,111,112,113,114,115,116,117,120,121,122,123,124,125,126,127,130,131,132
	con	2,010000,26,056,061,062,063,056,061,062,056,056,062,062,064,065,065,056,061,062,066,062,063,056,061,056,062,056,062
	con	3,010000,6,061,062,063,064,065,066
	con	4,002000,1,2
	con	5,020000,1,056
	con	6,010000,0
	con	7,002000,1,4
	con	8,010000,1,060
	declend
	filen	soundex.icn
	line	23
	colm	11
	synt	any
	mark	L1
	pnull
	var	0
	var	4
	var	0
	var	5
	line	25
	colm	28
	synt	any
	keywd	lcase
	line	25
	colm	27
	synt	any
	invoke	1
	var	5
	line	25
	colm	43
	synt	any
	keywd	ucase
	line	25
	colm	42
	synt	any
	invoke	1
	line	25
	colm	15
	synt	any
	invoke	3
	line	25
	colm	9
	synt	any
	asgn
	unmark
lab L1
	mark	L2
	pnull
	var	1
	pnull
	var	0
	int	0
	line	26
	colm	17
	synt	any
	subsc
	line	26
	colm	10
	synt	any
	asgn
	unmark
lab L2
	mark	L3
	pnull
	var	0
	var	4
	var	0
	str	1
	str	2
	line	38
	colm	15
	synt	any
	invoke	3
	line	38
	colm	9
	synt	any
	asgn
	unmark
lab L3
	mark	L4
	line	44
	colm	4
	synt	every
	mark0
	pnull
	var	2
	pnull
	str	3
	line	44
	colm	15
	synt	any
	bang
	line	44
	colm	12
	synt	any
	asgn
	pop
	mark0
lab L7
	line	45
	colm	8
	synt	while
	mark0
	pnull
	var	3
	var	6
	pnull
	var	2
	var	2
	line	45
	colm	25
	synt	any
	cat
	var	0
	line	45
	colm	23
	synt	any
	invoke	2
	line	45
	colm	16
	synt	any
	asgn
	unmark
	mark	L7
	pnull
	pnull
	var	0
	var	3
	dup
	int	4
	line	46
	colm	18
	synt	any
	plus
	synt	any
	sect
	var	2
	line	46
	colm	23
	synt	any
	asgn
lab L8
	unmark
	goto	L7
lab L9
	line	45
	colm	8
	synt	endwhile
	unmark
lab L5
	efail
lab L6
	line	44
	colm	4
	synt	endevery
	unmark
lab L4
	mark	L10
	pnull
	pnull
	var	0
	int	0
	line	47
	colm	8
	synt	any
	subsc
	var	1
	line	47
	colm	12
	synt	any
	asgn
	unmark
lab L10
	mark	L11
lab L12
	line	51
	colm	4
	synt	while
	mark0
	pnull
	var	3
	var	7
	cset	5
	var	0
	line	51
	colm	19
	synt	any
	invoke	2
	line	51
	colm	12
	synt	any
	asgn
	unmark
	mark	L12
	pnull
	pnull
	var	0
	var	3
	line	51
	colm	37
	synt	any
	subsc
	str	6
	line	51
	colm	41
	synt	any
	asgn
lab L13
	unmark
	goto	L12
lab L14
	line	51
	colm	4
	synt	endwhile
	unmark
lab L11
	mark	L15
	mark	L16
	var	8
	var	0
	int	7
	str	8
	line	53
	colm	15
	synt	any
	invoke	3
	line	53
	colm	4
	synt	any
	pret
lab L16
	synt	any
	pfail
	unmark
lab L15
	pnull
	line	54
	colm	1
	synt	any
	pfail
	end
