version	U12.1.00
uid	tclass.u1-1788539919-0
impl	error
global	1
	0,000005,tclass,1

proc tclass
	local	0,001000,x
	local	1,000000,type
	con	0,010000,4,156,165,154,154
	con	1,010000,7,151,156,164,145,147,145,162
	con	2,010000,4,162,145,141,154
	con	3,010000,6,163,164,162,151,156,147
	con	4,010000,4,143,163,145,164
	con	5,010000,6,141,164,157,155,151,143
	con	6,010000,9,143,157,155,160,157,163,151,164,145
	declend
	filen	tclass.icn
	line	21
	colm	11
	synt	any
	mark	L1
	mark	L2
	line	23
	colm	11
	synt	case
	mark0
	var	1
	var	0
	line	23
	colm	20
	synt	any
	invoke	1
	eret
	mark	L4
	ccase
	mark	L5
	str	0
	line	24
	colm	14
	synt	any
	esusp
	goto	L6
lab L5
	mark	L7
	str	1
	line	25
	colm	17
	synt	any
	esusp
	goto	L8
lab L7
	mark	L9
	str	2
	line	26
	colm	14
	synt	any
	esusp
	goto	L10
lab L9
	mark	L11
	str	3
	line	27
	colm	16
	synt	any
	esusp
	goto	L12
lab L11
	str	4
lab L12
lab L10
lab L8
lab L6
	line	28
	colm	13
	synt	any
	eqv
	unmark
	pop
	str	5
	goto	L3
lab L4
	pop
	str	6
lab L3
	line	23
	colm	11
	synt	endcase
	line	23
	colm	4
	synt	any
	pret
lab L2
	synt	any
	pfail
	unmark
lab L1
	pnull
	line	32
	colm	1
	synt	any
	pfail
	end
