STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354676	Lookup
	ESBR
	SORD	2
		LITO	0	/t,false,true;Initial output
		LITO	0	/*/O;Ordinal List
	ESBR
	SGLB	Output/#1
		LCON	 	/*+0,300,36,45;Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+0,336,108,9;Inverted Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354031	SuperLogic
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		GSYM	Logic/Initialize	É ¥ method/inst/É
		PRIM	Heap/Delegate to self
	ESBR
	SGLB	Logic/Input	/3u
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Second to aux	É/key ¥ inst/É
		LITO	0
		LITO	2
		PRIM	S_tree/Read	É/key ¥ list/inst/É
		PRIM	List/Test for leaf	É/key ¥ leaf?/list/inst/É
		BRFL	 	branch if not leaf (test items)
			PRIM	List/Remove	É/key ¥ list/old/inst/É
			LCAL	test	É ¥ É
		BRTR
		CMNT	 	no items, output false
		PRIM	List/List to item	É/key ¥ old/inst/É
		PRIM	Stack/Drop from aux	É ¥ old/inst/É
		LITO	0	É ¥ 0/old/inst/É
		CALL	354090	É ¥ É
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,318,162
	CMTL	3	0
		CMNT	24	20,0,72,45,0,1,LOOKUP;Logic/Input
	ECMT
	CMTL	7	0
		CMNT	14	320,28,1,2,1,Logic/Get Output;/t,F,T
	ECMT
	CMNT	8	0,0,300,144
	CMNT	44	300,90,336,126
ECMT
LDEF	test
	CMNT	 	on input:  É/key ¥ list/old/inst/É
	PRIM	List/Test for leaf	É/key ¥ leaf?/list/old/inst/É
	BRFL	 	branch if not a leaf
		PRIM	List/Behead	É/key ¥ state/list/old/inst/É
		PRIM	Stack/Dup from aux	É/key ¥ key/state/list/old/inst/É
		PRIM	Ordinal/Subtract	É/key ¥ !=?/list/old/inst/É
		BRFL	 	branch if equal (found match)
			PRIM	Stack/Drop	É/key ¥ old/inst/É
			PRIM	Stack/Drop from aux	É ¥ old/inst/É
			LITO	1	É ¥ 1/old/inst/É
			CALL	354090	É ¥ É
		BRTR
		LCAL	test	not equal, process next item
	BRTR
	PRIM	List/List to item	É/key ¥ state/old/inst/É
	PRIM	Stack/Push from aux	É ¥ key/state/old/inst/É
	PRIM	Ordinal/Subtract	É ¥ !=?/old/inst/É
	PRIM	Ordinal/Test zero	É ¥ =?/old/inst/É
	CALL	354090	É ¥ É
EDEF