STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354228
	ESBR
	SORD	2	main data structure
		PORD	1	/o,1,255;Initial recipe
		LITO	0	state of store input
		LITO	0	state of recall input
	ESBR
	SORD	3	/e,,,,Recipe channels;Channel List
		ICAL	Dummy	/*/O,354229;Channel name
		ICAL	Dummy	/o,354229;Channel name
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize	for internal class use only !!!
		CMNT	 	Expects:  É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		LITO	2	É ¥ 2/1/inst/É
		PRIM	S_tree/Read	É ¥ select/inst/É
		PRIM	Stack/Swap	É ¥ inst/select/É
		LITO	0	É ¥ 0/inst/select/É
		LITO	1	É ¥ 1/0/inst/select/É
		LITO	2	É ¥ 2/1/0/inst/select/É
		PRIM	S_tree/Replace	É ¥ inst/select/É
		GSYM	Recipe/Select	É ¥ method/inst/select/É
		PRIM	Heap/Delegate to self
	ESBR
	SGLB	Recipe/Select	/3u19,1,255;Select Recipe
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Over	É ¥ arg/inst/arg/É
		BRFL	 	branch if arg is 0
			PRIM	Stack/Xdrop	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		LITO	1	É ¥ 1/inst/arg/É
		LITO	2	É ¥ 2/1/inst/arg/É
		PRIM	S_tree/Read	É ¥ cur/inst/arg/É
		PRIM	Stack/Xswap	É ¥ cur/arg/inst/É
		PRIM	Ordinal/Test equal	É ¥ rslt/arg/inst/É
		BRFL	 	branch if not equal
			PRIM	Stack/Dup down	É ¥ arg/inst/arg/É
			LITO	1	É ¥ 1/arg/inst/arg/É
			LITO	2	É ¥ 2/1/arg/inst/arg/É
			PRIM	S_tree/Replace	É ¥ inst/arg/É
			LITO	0	É ¥ 0/inst/arg/É
			LITO	3	É ¥ 3/0/inst/arg/É
			PRIM	S_tree/Read	É ¥ list/inst/arg/É
			GSYM	Recipe/Select	É ¥ method/list/inst/arg/É
			PRIM	Stack/Pop to aux	É/method ¥ list/inst/arg/É
			PRIM	Stack/Rotate down	É/method ¥ arg/list/inst/É
			PRIM	Stack/Swap	É/method ¥ list/arg/inst/É
			LCAL	inform	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		PRIM	Stack/Drop	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Recipe/Get Select	/2u2
		LITO	1
		CALL	354072
	ESBR
	SGLB	Recipe/Store	/3t5,false,true;Select...
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	2	É ¥ 2/inst/arg/É
		LITO	2	É ¥ 2/2/inst/arg/É
		CALL	354236	É ¥ rslt/inst/É
		BRFL	 	branch if not a positive edge
			PRIM	Heap/Store self
		BRTR
		LITO	0	É ¥ 0/inst/É
		LITO	3	É ¥ 3/0/inst/É
		PRIM	S_tree/Read	É ¥ list/inst/É
		GSYM	Recipe/Store	É ¥ method/list/inst/É
		PRIM	Stack/Pop to aux	É/method ¥ list/inst/É
		LCAL	inform2
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Recipe/Recall	/3t5,false,true;Select...
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	3	É ¥ 3/inst/arg/É
		LITO	2	É ¥ 2/3/inst/arg/É
		CALL	354236	É ¥ rslt/inst/É
		BRFL	 	branch if not a positive edge
			PRIM	Heap/Store self
		BRTR
		LITO	0	É ¥ 0/inst/É
		LITO	3	É ¥ 3/0/inst/É
		PRIM	S_tree/Read	É ¥ list/inst/É
		GSYM	Recipe/Recall	É ¥ method/list/inst/É
		PRIM	Stack/Pop to aux	É/method ¥ list/inst/É
		LCAL	inform2
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	Recipe/Get Store	/2t4,false,true
		LITO	2
		CALL	354072
	ESBR
	SGLB	Recipe/Get Recall	/2t4,false,true
		LITO	3
		CALL	354072
	ESBR
ESTR
LDEF	inform
	CMNT	 	Sends to all the channels
	CMNT	 	Input:  É/method ¥ list/arg/É
	CMNT	 	Output:  É ¥ É
	PRIM	List/Test for leaf	É/method ¥ rslt/list/arg/É
	BRFL	 	branch if not a leaf
		PRIM	List/Behead	É/method ¥ channel/list/arg/É
		PRIM	Stack/Xover	É/method ¥ arg/channel/list/arg/É
		PRIM	Stack/Dup from aux	É/method ¥ method/arg/channel/list/arg/É
		PRIM	Stack/Second to aux	É/method/arg ¥ method/channel/list/arg/É
		CALL	354060	É/method ¥ list/arg/É
		LCAL	inform	É ¥ É
	BRTR
	PRIM	List/List to item	É/method ¥ channel/arg/É
	PRIM	Stack/Push from aux	É ¥ method/channel/arg/É
	PRIM	Stack/Rotate down	É ¥ arg/method/channel/É
	PRIM	Stack/Pop to aux	É/arg ¥ method/channel/É
	CALL	354060	É ¥ É
EDEF
LDEF	inform2
	CMNT	 	Sends to all the channels
	CMNT	 	Input:  É/method ¥ list/É
	CMNT	 	Output:  É ¥ É
	PRIM	List/Test for leaf	É/method ¥ rslt/list/É
	BRFL	 	branch if not a leaf
		PRIM	List/Behead	É/method ¥ channel/list/É
		PRIM	Stack/Dup from aux	É/method ¥ method/channel/list/É
		CALL	354059	É/method ¥ list/É
		LCAL	inform2
	BRTR
	PRIM	List/List to item	É/method ¥ channel/É
	PRIM	Stack/Push from aux	É ¥ method/channel/É
	CALL	354059
EDEF