STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354229
	ESBR
	SORD	2
		STRE	 	preset s-tree
			SORD	0
				PVAL	0	/o,-100,100;Default output (-100% to +100%)
			ESBR
			SORD	1	/*/O,1,255;Recipe number
				PVAL	0	/o,-100,100;Output (-100% to +100%)
			ESBR
		ESTR
	ESBR
	SORD	3
		LITO	0	current recipe (0 if using default)
		LVAL	0	working value
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Recipe/Default	/3v7,-100,100;Enter data (-100% to +100%)
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Over	É ¥ arg/inst/arg/É
		PRIM	Stack/Pop to aux	É/arg ¥ inst/arg/É
		LITO	2	É/arg ¥ 2/inst/arg/É
		PRIM	S_tree/Get exact	É/arg ¥ tree/2/inst/arg/É
		PRIM	Stack/Push from aux	É ¥ arg/tree/2/inst/arg/É
		LITO	1	É ¥ 1/arg/tree/2/inst/arg/É
		LITO	0	É ¥ 0/1/arg/tree/2/inst/arg/É
		PRIM	S_tree/Replace	É ¥ tree/2/inst/arg/É
		PRIM	S_tree/Put	É ¥ inst/arg/É
		LITO	1	É ¥ 1/inst/arg/É
		LITO	3	É ¥ 3/1/inst/arg/É
		PRIM	S_tree/Read	É ¥ select/inst/arg/É
		BRFL	 	branch if currently using default
			GSYM	Recipe/Input	É ¥ method/inst/arg/É
			PRIM	Heap/Delegate to self
		BRTR
		PRIM	Stack/Xdrop	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Recipe/Input	/3v7,-100,100;Enter data (-100% to +100%)
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Over	É ¥ arg/inst/arg/É
		GSYM	Output/#1	É ¥ #1/arg/inst/arg/É
		PRIM	Misc/Send entry	É ¥ inst/arg/É
		LITO	2	É ¥ 2/inst/arg/É
		CALL	354075
	ESBR
	SGLB	Recipe/Get Default	/2v6,-100,100;%3.2f%%
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	0	É ¥ 0/inst/route/É
		PRIM	Stack/Swap	É ¥ inst/0/route/É
		GSYM	Recipe/Get Preset	É ¥ method/inst/0/route/É
		PRIM	Heap/Delegate to self
	ESBR
	SGLB	Recipe/Get Select	/2u2
		LITO	1
		CALL	354074
	ESBR
	SGLB	Recipe/Get Output	/2v6,-100,100;%3.2f%%
		LITO	2
		CALL	354074
	ESBR
	SGLB	Recipe/Get Preset	/4u,1,255;Recipe number|v,-100,100;%3.2f%%
		CMNT	 	Expects:  É ¥ inst/ref/route/É
		PRIM	Stack/Second to aux	É/ref ¥ inst/route/É
		LITO	2	É/recipe ¥ 2/inst/route/É
		PRIM	S_tree/Get exact	É/recipe ¥ tree/2/inst/route/É
		LITO	1	É/recipe ¥ 1/tree/2/inst/route/É
		PRIM	Stack/Push from aux	É ¥ recipe/1/tree/2/inst/route/É
		PRIM	S_tree/Test and read	É ¥ rslt/(preset)/tree/2/inst/route/É
		BRFL	 	branch if no such entry
			PRIM	S_tree/Put	É ¥ inst/route/É
			PRIM	Stack/Xdrop	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		PRIM	Stack/Pop to aux	É/preset ¥ tree/2/inst/route/É
		PRIM	S_tree/Put	É/preset ¥ inst/route/É
		PRIM	Stack/Push from aux	É ¥ preset/inst/route/É
		CALL	354056
	ESBR
	SGLB	Recipe/Select	for internal class use only!!
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Second to aux	É/arg ¥ inst/É
		LITO	2	É/arg ¥ 2/inst/É
		PRIM	S_tree/Get exact	É/arg ¥ tree/2/inst/É
		LITO	1	É/arg ¥ 1/tree/2/inst/É
		PRIM	Stack/Dup from aux	É/arg ¥ arg/1/tree/2/inst/É
		PRIM	S_tree/Test and read	É/arg ¥ rslt/(data)/tree/2/inst/É
		BRFL	 	branch if no such entry
			PRIM	Stack/Drop from aux	É ¥ tree/2/inst/É
			LITO	1	É ¥ 1/tree/2/inst/É
			LITO	0	É ¥ 0/1/tree/2/inst/É
			PRIM	Stack/Dup to aux	É/select ¥ 0/1/tree/2/inst/É
			PRIM	S_tree/Read	É/select ¥ data/tree/2/inst/É
			LCAL	EndIt
		BRTR
		LCAL	EndIt
	ESBR
	SGLB	Recipe/Store	for internal class use only!!
		CMNT	 	Expects:  É ¥ inst/É
		LITO	3	É ¥ 3/inst/É
		PRIM	S_tree/Entry to stack	É ¥ working/current/inst/É
		PRIM	Stack/Pop to aux	É/working ¥ current/inst/É
		PRIM	Stack/Dup to aux	É/working/current ¥ current/inst/É
		BRFL	 	branch if currently using default
			PRIM	Stack/Drop from aux	É/working ¥ inst/É
			PRIM	Stack/Drop from aux	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		LITO	2	É/working/current ¥ 2/inst/É
		PRIM	S_tree/Get exact	É/working/current ¥ tree/2/inst/É
		PRIM	Stack/Push from aux	É/working ¥ current/tree/2/inst/É
		PRIM	Stack/Push from aux	É ¥ working/current/tree/2/inst/É
		LITO	1	É ¥ 1/working/current/tree/2/inst/É
		PRIM	Stack/Rotate down	É ¥ current/1/working/tree/2/inst/É
		PRIM	S_tree/Replace	É ¥ tree/2/inst/É
		PRIM	S_tree/Put	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Recipe/Recall	for internal class use only!!
		CMNT	 	Expects:  É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		LITO	3	É ¥ 3/1/inst/É
		PRIM	S_tree/Read	É ¥ current/inst/É
		PRIM	Stack/Swap	É ¥ inst/current/É
		GSYM	Recipe/Select	É ¥ method/inst/current/É
		PRIM	Heap/Delegate to self
	ESBR
ESTR
LDEF	EndIt
	CMNT	 	Completes the select method
	CMNT	 	Input:  É/select ¥ data/tree/2/inst/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Pop to aux	É/select/data ¥ tree/2/inst/É
	PRIM	S_tree/Put	É/select/data ¥ inst/É
	PRIM	Stack/Aux swap	É/data/select ¥ inst/É
	PRIM	Stack/Push from aux	É/data ¥ select/inst/É
	LITO	1	É/data ¥ 1/select/inst/É
	LITO	3	É/data ¥ 3/1/select/inst/É
	PRIM	S_tree/Replace	É/data ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ data/inst/É
	PRIM	Stack/Swap	É ¥ inst/data/É
	GSYM	Recipe/Input	É ¥ method/inst/data/É
	PRIM	Heap/Delegate to self
EDEF