STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354176
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Time output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	R&D/Start Timer	/1
		CMNT	 	Expects:  É ¥ inst/É
		LITO	2	É ¥ 2/inst/É
		PRIM	S_tree/Test for entry	É ¥ rslt/2/inst/É
		BRFL	 	branch if no such entry
			PRIM	Timer/Get PAT	É ¥ PAT/2/inst/É
			PRIM	S_tree/Put	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		PRIM	Stack/Drop	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	R&D/Stop TImer	/1
		CMNT	 	Expects:  É ¥ inst/É
		LITO	2	É ¥ 2/inst/É
		PRIM	S_tree/Test for entry	É ¥ rslt/2/inst/É
		BRFL	 	branch if no such entry
			PRIM	Stack/Drop	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		PRIM	S_tree/Get exact	É ¥ PAT1/2/inst/É
		PRIM	Stack/Xdrop	É ¥ PAT1/inst/É
		PRIM	Timer/Get PAT	É ¥ PAT2/PAT1/inst/É
		PRIM	Stack/Swap	É ¥ PAT1/PAT2/inst/É
		PRIM	Timer/Subtract	É ¥ ÆPAT/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/#1	É ¥ #1/time/inst/É
				PRIM	Misc/Send entry	É ¥ inst/É
				PRIM	Heap/Store self
			BRTR
			GSYM	OS error/Unexpected Data
		BRTR
		GSYM	OS error/Unexpected Data
	ESBR
ESTR