proc lmap
	local	0,001000,a1
	local	1,001000,a2
	local	2,001000,a3
	local	3,000040,lmem2
	local	4,000040,lmem3
	local	5,000040,lmaptbl
	local	6,000040,tdefault
	local	7,000020,i
	local	8,000000,type
	local	9,000000,stop
	local	10,000000,table
	con	0,010000,4,154,151,163,164
	con	1,010000,20,151,154,154,145,147,141,154,040,164,171,160,145,040,151,156,040,154,155,141,160
	con	2,010000,67,122,165,156,055,164,151,155,145,040,145,162,162,157,162,072,012,123,145,143,157,156,144,040,141,156,144,040,164,150,151,162,144,040,141,162,147,165,155,145,156,164,163,040,157,146,040,154,155,141,160,040,144,151,146,146,145,162,040,151,156,040,154,145,156,147,164,150
	con	3,002000,1
	filen	[-.source]lmap.icn
	declend
	line	23
	init	L1
	mark	L1
	pnull
	var	6
	pnull
	line	26
	llist	0
	asgn
	unmark
lab L1
	mark	L2
	mark0
	mark	L3
	pnull
	pnull
	pnull
	var	8
	var	0
	line	27
	invoke	1
	var	8
	var	1
	invoke	1
	lexeq
	var	8
	var	2
	invoke	1
	lexeq
	str	0
	lexeq
	unmark
	efail
lab L3
	pnull
	unmark
	var	9
	str	1
	line	28
	invoke	1
	unmark
lab L2
	mark	L4
	mark0
	mark	L5
	pnull
	pnull
	var	1
	line	29
	size
	pnull
	var	2
	size
	numeq
	unmark
	efail
lab L5
	pnull
	unmark
	var	9
	str	2
	line	30
	invoke	1
	unmark
lab L4
	mark	L6
	mark0
	mark	L7
	pnull
	var	3
	var	1
	line	31
	eqv
	pop
	pnull
	var	4
	var	2
	eqv
	unmark
	efail
lab L7
	pnull
	unmark
	mark	L8
	pnull
	var	3
	var	1
	line	32
	asgn
	unmark
lab L8
	mark	L9
	pnull
	var	4
	var	2
	line	33
	asgn
	unmark
lab L9
	mark	L10
	pnull
	var	5
	var	10
	var	6
	line	34
	invoke	1
	asgn
	unmark
lab L10
	mark0
	pnull
	var	7
	pnull
	int	3
	pnull
	var	1
	line	35
	size
	push1
	toby
	asgn
	pop
	mark0
	pnull
	pnull
	var	5
	pnull
	var	1
	var	7
	line	36
	subsc
	subsc
	pnull
	var	2
	var	7
	subsc
	asgn
	unmark
lab L11
	efail
lab L12
	unmark
lab L6
	mark	L13
	mark0
	pnull
	var	7
	pnull
	int	3
	pnull
	var	0
	line	38
	size
	push1
	toby
	asgn
	pop
	mark0
	pnull
	pnull
	var	0
	var	7
	line	39
	subsc
	pnull
	var	6
	pnull
	var	5
	pnull
	var	0
	var	7
	subsc
	subsc
	neqv
	asgn
	unmark
lab L14
	efail
lab L15
	unmark
lab L13
	mark	L16
	mark	L17
	var	0
	line	40
	pret
lab L17
	line	40
	pfail
	unmark
lab L16
	pnull
	line	41
	pfail
	end