STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354413
	ESBR
	SORD	2
		PVAL	-1	/o,-100,100;Support low (%)
		PVAL	-1	/o,-100,100;Core low (%)
		PVAL	1	/o,-100,100;Core high (%)
		PVAL	1	/o,-100,100;Support high (%)
	ESBR
	SORD	8
		LVAL	0	input
		LVAL	0	output
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354115
	ESBR
	SGLB	R&D/Input	/3v7,-100,100;Enter data (-100% to 100%)
		CMNT	 	Expects:  É ¥ inst/arg/É
		CALL	354113	É ¥ inst/arg/É
		LCAL	Region?	É ¥ output/inst/É
		CALL	354114
	ESBR
	SGLB	R&D/Support Low	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	1
		CALL	354073
	ESBR
	SGLB	R&D/Core low	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	2
		CALL	354073
	ESBR
	SGLB	R&D/Core high	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	3
		CALL	354073
	ESBR
	SGLB	R&D/Support high	/3v7,-100,100;Enter data (-100% to 100%)
		LITO	4
		CALL	354073
	ESBR
	SGLB	R&D/Get support low	/2v6,-100,100;%3.1f%%
		LITO	1
		CALL	354072
	ESBR
	SGLB	R&D/Get core low	/2v6,-100,100;%3.1f%%
		LITO	2
		CALL	354072
	ESBR
	SGLB	R&D/Get core high	/2v6,-100,100;%3.1f%%
		LITO	3
		CALL	354072
	ESBR
	SGLB	R&D/Get support high	/2v6,-100,100;%3.1f%%
		LITO	4
		CALL	354072
	ESBR
ESTR
LDEF	Region?
	CMNT	 	Input:  É ¥ inst/arg/É
	CMNT	 	Output:  É ¥ output/inst/É
	PRIM	Stack/Second to aux	É/arg ¥ inst/É
	LITO	2	É/arg ¥ 2/inst/É
	PRIM	S_tree/Entry to stack	É/arg ¥ sh/ch/cl/sl/inst/É
	PRIM	Stack/Push from aux	É ¥ arg/sh/ch/cl/sl/inst/É
	PRIM	Stack/Xover	É ¥ ch/arg/sh/ch/cl/sl/inst/É
	PRIM	Value/Compare	É ¥ rslt/arg/sh/ch/cl/sl/inst/É
	BRFL	 	É ¥ arg/sh/ch/cl/sl/inst/É
		CMNT	 	arg ² ch
		PRIM	Stack/Xdrop	É ¥ arg/ch/cl/sl/inst/É
		PRIM	Stack/Xdrop	É ¥ arg/cl/sl/inst/É
		PRIM	Stack/Over	É ¥ cl/arg/cl/sl/inst/É
		PRIM	Value/Compare	É ¥ rslt/arg/cl/sl/inst/É
		BRFL	 	É ¥ arg/cl/sl/inst/É
			CMNT	 	arg ² cl
			PRIM	Stack/Xover	É ¥ sl/arg/cl/sl/inst/É
			PRIM	Value/Compare	É ¥ rslt/arg/cl/sl/inst/É
			BRFL	 	É ¥ arg/cl/sl/inst/É
				CMNT	 	arg ² sl
				PRIM	Stack/Drop	É ¥ cl/sl/inst/É
				PRIM	Stack/Drop	É ¥ sl/inst/É
				PRIM	Stack/Drop	É ¥ inst/É
				LVAL	0
			BRTR
			CMNT	 	sl < arg ² cl
			PRIM	Stack/Xover	É ¥ sl/arg/cl/sl/inst/É
			PRIM	Value/Subtract	É ¥ arg-sl/cl/sl/inst/É
			PRIM	Stack/Switch	É ¥ sl/cl/arg-sl/inst/É
			PRIM	Value/Subtract	É ¥ cl-sl/arg-sl/inst/É
			PRIM	Value/Divide	É ¥ (arg-sl)Ö(cl-sl)/inst/É
		BRTR
		CMNT	 	cl < arg ² ch
		PRIM	Stack/Drop	É ¥ cl/sl/inst/É
		PRIM	Stack/Drop	É ¥ sl/inst/É
		PRIM	Stack/Drop	É ¥ inst/É
		LVAL	1
	BRTR
	CMNT	 	arg > ch
	PRIM	Stack/Over	É ¥ sh/arg/sh/ch/cl/sl/inst/É
	PRIM	Value/Compare	É ¥ rslt/arg/sh/ch/cl/sl/inst/É
	BRFL	 	É ¥ arg/sh/ch/cl/sl/inst/É
		CMNT	 	sh ³ arg > ch
		PRIM	Stack/Over	É ¥ sh/arg/sh/ch/cl/sl/inst/É
		PRIM	Value/Subtract	É ¥ arg-sh/sh/ch/cl/sl/inst/É
		PRIM	Stack/Rotate up	É ¥ sh/ch/arg-sh/cl/sl/inst/É
		PRIM	Value/Subtract	É ¥ ch-sh/arg-sh/cl/sl/inst/É
		PRIM	Value/Divide	É ¥ (arg-sh)Ö(ch-sh)/cl/sl/inst/É
		PRIM	Stack/Xdrop	É ¥ (arg-sh)Ö(ch-sh)/sl/inst/É
		PRIM	Stack/Xdrop	É ¥ (arg-sh)Ö(ch-sh)/inst/É
	BRTR
	CMNT	 	arg > sh
	PRIM	Stack/Drop	É ¥ sh/ch/cl/sl/inst/É
	PRIM	Stack/Drop	É ¥ ch/cl/sl/inst/É
	PRIM	Stack/Drop	É ¥ cl/sl/inst/É
	PRIM	Stack/Drop	É ¥ sl/inst/É
	PRIM	Stack/Drop	É ¥ inst/É
	LVAL	0
EDEF