STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354227
	ESBR
	SORD	2
		LITO	1	/o,1,10;Delay (1-10)
	ESBR
	SGLB	Output/#1
		LCON	 	/*+0,400,72,45;Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Utility/Input	/3
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	1	É ¥ 1/inst/data/É
		LITO	2	É ¥ 2/1/inst/data/É
		PRIM	S_tree/Read	É ¥ count/inst/data/É
		PRIM	Stack/Rotate down	É ¥ data/count/inst/É
		LIST	 	É ¥ list/data/count/inst/É
			GSYM	Utility/Event
		ELST
		PRIM	Heap/Name of self	É ¥ self/list/data/count/inst/É
		PRIM	List/Splice	É ¥ list'/data/count/inst/É
		PRIM	Tags/Set delegate	É ¥ list''/data/count/inst/É
		PRIM	List/Item to list	É ¥ MSGE/data/count/inst/É
		PRIM	List/Add	É ¥ event/count/inst/É
		PRIM	Stack/Swap	É ¥ count/event/inst/É
		LCAL	loop	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Utility/Event	for internal class use only!
		CMNT	 	Expects:  É ¥ inst/data/É
		PRIM	Stack/Swap	É ¥ data/inst/É
		GSYM	Output/#1	É ¥ #1/data/inst/É
		PRIM	Misc/Send entry	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,418,162
	CMTL	3	0
		CMNT	24	0,0,72,45,0,0,;Utility/Input
	ECMT
	CMTL	7	0
		CMNT	18	198,95,0,2,1,;/u
	ECMT
	CMNT	8	0,0,400,144
	CMNT	8	100,30,305,110
	CMNT	12	120,30,120,105
	CMNT	12	140,30,140,105
	CMNT	12	160,30,160,105
	CMNT	12	240,30,240,105
	CMNT	12	260,30,260,105
	CMNT	12	280,30,280,105
	CMNT	12	65,62,85,72
	CMNT	12	15,72,85,72
	CMNT	12	65,82,85,72
	CMNT	12	360,62,380,72
	CMNT	12	315,72,380,72
	CMNT	12	360,82,380,72
ECMT
LDEF	loop
	CMNT	 	Generates and posts the delayed event
	CMNT	 	Input:  É ¥ count/event/É
	CMNT	 	Output:  É ¥ É
	PRIM	Ordinal/Decrement	É ¥ count-1/event/É
	PRIM	Stack/Duplicate	É ¥ count/count/event/É
	BRFL	 	branch if done
		PRIM	Misc/Name of node	É ¥ node/count/event/É
		PRIM	Stack/Rotate up	É ¥ count/event/node/É
		PRIM	Stack/Drop	É ¥ event/node/É
		PRIM	Misc/Post event
	BRTR
	LIST	 	É ¥ list/count/event/É
		PRIM	Misc/Post event
	ELST
	PRIM	Stack/Rotate down	É ¥ event/list/count/É
	PRIM	List/Splice	É ¥ event'/count/É
	PRIM	Misc/Name of node	É ¥ node/event'/count/É
	PRIM	List/Splice	É ¥ event''/count/É
	PRIM	Stack/Swap	É ¥ count/event''/É
	LCAL	loop
EDEF