STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354120
	ESBR
	SORD	2
		LVAL	0	/o,-100,100,-100,100;Dummy data (%)
		MSGE	 	dummy message
			LITO	0
			LITO	0
		EMSG
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Send connection
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Time output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		GSYM	Output/#1	É ¥ #1/1/inst/É
		PRIM	S_tree/Test and read	É ¥ rslt/(conn)/inst/É
		BRFL	 	branch if no entry
			PRIM	Heap/Store self
		BRTR
		PRIM	List/Behead	É ¥ type/conn'/inst/É
		PRIM	Stack/Drop	É ¥ conn'/inst/É
		PRIM	List/Behead	É ¥ node#/conn''/inst/É
		PRIM	Stack/Drop	É ¥ conn''/inst/É
		PRIM	List/List to item	É ¥ MSGE/inst/É
		LITO	2	É ¥ 2/MSGE/inst/É
		LITO	2	É ¥ 2/2/MSGE/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Timer/Get PAT	É ¥ PAT/inst/É
		PRIM	Stack/Pop to aux	É/PAT ¥ inst/É
		PRIM	Heap/Name of self	É/PAT ¥ self/inst/É
		GSYM	Utility/Trigger	É/PAT ¥ Method/self/inst/É
		CALL	354060	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Utility/Trigger
		CMNT	 	Expects:  É ¥ inst/time_ref/É
		PRIM	Stack/Swap	É ¥ time_ref/inst/É
		TIME	500.000	É ¥ Æt/time_ref/inst/É
		GSYM	Utility/Trigger	É ¥ method/Æt/time_ref/inst/É
		CALL	354057	É ¥ inst/É
		LITO	0	É ¥ 0/inst/É
		LITO	2	É ¥ 2/0/inst/É
		PRIM	S_tree/Read	É ¥ list/inst/É
		PRIM	List/Remove	É ¥ list'/arg/inst/É
		PRIM	List/List to item	É ¥ MSGE/arg/inst/É
		PRIM	Heap/Name of self	É ¥ self/MSGE/arg/inst/É
		PRIM	Stack/Pop to aux	É/self ¥ MSGE/arg/inst/É
		PRIM	Timer/Get PAT	É/self ¥ PAT1/MSGE/arg/inst/É
		PRIM	Stack/Pop to aux	É/self/PAT1 ¥ MSGE/arg/inst/É
		PRIM	Misc/Execute	É/self/PAT1 ¥ inst/É
		PRIM	Timer/Get PAT	É/self/PAT1 ¥ PAT2/inst/É
		PRIM	Stack/Push from aux	É/self ¥ PAT1/PAT2/inst/É
		PRIM	Stack/Push from aux	É ¥ self/PAT1/PAT2/inst/É
		PRIM	Heap/Set self	É ¥ PAT1/PAT2/inst/É
		PRIM	Timer/Subtract	É ¥ Æt/inst/É
		PRIM	List/Behead	É ¥ PAT1/list/inst/É
		BRFL	 	branch unless time is really big
			PRIM	List/Behead	É ¥ PAT2/list'/inst/É
			BRFL	 	branch unless time is too big
				PRIM	List/List to item	É ¥ PAT3/inst/É
				PRIM	Ordinal/Right	É ¥ time/inst/É
				GSYM	Output/#2	É ¥ #2/time/inst/É
				PRIM	Misc/Send entry	É ¥ inst/É
				PRIM	Heap/Store self
			BRTR
			GSYM	OS error/Unexpected Data
		BRTR
		GSYM	OS error/Unexpected Data
	ESBR
	SGLB	Utility/Receive	/3v;Dummy method to catch data
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Xdrop	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
ESTR