STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354397
	ESBR
	SORD	2
		LITO	0	Last output
	ESBR
	SORD	3
		LITO	0	T input
		LITO	0	F input
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize	for internal class use only!!
		CMNT	 	Expects:  ÉÊ¥ inst/É
		LITO	5	É ¥ 5/inst/É
		CALL	354305	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Timer/Timeout	for internal class use only
		CMNT	 	Expects:  (handled by 'Timer/Receiver')
		CALL	354308	É/(time) ¥ ref/inst/É
		BRFL
			PRIM	Heap/Store self	É ¥ É
		BRTR
		PRIM	Stack/Drop from aux	É ¥ inst/É
		LITO	1
		LITO	2
		PRIM	S_tree/Read	É ¥ output/inst/É
		GSYM	Output/#1
		PRIM	Misc/Send entry	É ¥ inst/É
		TIME	250.000
		LITO	5
		CALL	354285	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	L5203/Input T	/3t12,False,True;Set Input T
		LITO	1	É ¥ index/inst/input/É
		LCAL	Set&Send	É ¥ É
	ESBR
	SGLB	L5203/Input F	/3t12,False,True;Set Input T
		LITO	2	É ¥ index/inst/input/É
		LCAL	Set&Send	É ¥ É
	ESBR
	SGLB	L5203/Get Input T	/2t4,false,true
		LITO	1
		CALL	354074
	ESBR
	SGLB	L5203/Get Input F	/2t4,false,true
		LITO	2
		CALL	354074
	ESBR
ESTR
LDEF	ShouldSend
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ should send/<if true what/>/inst/É
	LITO	3
	PRIM	S_tree/Entry to stack	É ¥ F/T/inst/É
	BRFL
		BRFL
			CMNT	 	F and T both false
			LITO	0	Output:  É ¥ no/inst/É
		BRTR
		CMNT	 	F false and T true
		LITO	1
		LITO	1	Output:  É ¥ yes/true/inst/É
	BRTR
	BRFL
		CMNT	 	F true and T false
		LITO	0
		LITO	1	Output:  É ¥ yes/false/inst/É
	BRTR
	CMNT	 	F and T both true
	LITO	0	Output:  É ¥ no/inst/É
EDEF
LDEF	Set&Send
	CMNT	 	Input:  É ¥ index/inst/input/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Xswap	É ¥ index/data/inst/É
	LITO	3	É ¥ key/index/data/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
	LCAL	ShouldSend
	BRFL
		LITO	5	É ¥ 5/inst/É
		CALL	354286	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	BRTR
	PRIM	Stack/Dup to aux	É/data ¥ data/inst/É
	GSYM	Output/#1
	PRIM	Misc/Send entry	É/data ¥ inst/É
	TIME	250.000
	LITO	5
	CALL	354285	É/data ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ data/inst/É
	PRIM	Stack/Swap	É ¥ inst/data/É
	LITO	1
	CALL	354073
EDEF