STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354156
	ESBR
	SORD	2
		LITO	0	input
		LITO	0	/e,false-to-true,true-to-false,both;Which edge
	ESBR
	SGLB	Output/#1
		LCON	 	/*+0,150,36,45;Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+0,186,108,9;Inverted Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		LITO	0	É ¥ 0/inst/É
		GSYM	Output/#1	É ¥ #1/0/inst/É
		PRIM	Misc/Send entry	É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		GSYM	Output/#2	É ¥ #2/1/inst/É
		PRIM	Misc/Send entry	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Input	/3t5,false,true;Select...
		CMNT	 	Expects:  É ¥ inst/arg/É
		LITO	1	É ¥ 1/inst/arg/É
		LITO	2	É ¥ 2/1/inst/arg/É
		PRIM	S_tree/Read	É ¥ old/inst/arg/É
		PRIM	Stack/Rotate down	É ¥ arg/old/inst/É
		BRFL	 	branch if new is false
			BRFL	 	branch if old was false
				PRIM	Heap/Store self
			BRTR
			CMNT	 	negative edge!
			LITO	0	É ¥ 0/inst/É
			LCAL	DoIt
		BRTR
		BRFL	 	branch if old was false
			CMNT	 	positive edge!
			LITO	1	É ¥ 1/inst/É
			LCAL	DoIt
		BRTR
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Get Input	/2t4,false,true
		LITO	1
		CALL	354072
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,168,162
	CMTL	3	0
		CMNT	24	0,0,72,45,2,1,;Logic/Input
	ECMT
	CMTL	7	0
		CMNT	22	-10,64,1,2,1,Logic/Get Input;/u
		CMTL	15	0,0,0,2,2,;/c,0
			CMNT	12	20,99,35,99
			CMNT	12	35,45,35,99
			CMNT	12	35,45,50,45
			CMNT	12	100,63,130,63
			CMNT	12	115,18,115,63
		ECMT
		CMTL	15	0,0,0,2,2,;/c,1
			CMNT	12	20,45,35,45
			CMNT	12	35,45,35,99
			CMNT	12	35,99,50,99
			CMNT	12	100,63,130,63
			CMNT	12	115,18,115,63
		ECMT
		CMTL	15	0,0,0,2,2,;/c,2
			CMNT	12	20,99,35,99
			CMNT	12	35,45,35,99
			CMNT	12	35,45,50,45
			CMNT	12	50,45,50,99
			CMNT	12	50,99,65,99
			CMNT	12	95,63,130,63
			CMNT	12	105,18,105,63
			CMNT	12	120,18,120,63
		ECMT
	ECMT
	CMNT	8	0,0,150,144
	CMNT	44	150,90,186,126
ECMT
LDEF	DoIt
	CMNT	 	sends the outputs if nesc.
	CMNT	 	Input:  É ¥ input/inst/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Dup down	É ¥ input/inst/input/É
	LITO	1	É ¥ 1/input/inst/input/É
	LITO	2	É ¥ 2/1/input/inst/input/É
	PRIM	S_tree/Replace	É ¥ inst/input/É
	LITO	2	É ¥ 2/inst/input/É
	LITO	2	É ¥ 2/2/inst/input/É
	PRIM	S_tree/Read	É ¥ type/inst/input/É
	PRIM	Stack/Xswap	É ¥ type/input/inst/É
	STRE	 	type s-tree
		SORD	0	false-to-true
			BRFL	 	branch if true-to-false edge
				PRIM	Heap/Store self
			BRTR
			LCAL	Send
		ESBR
		SORD	1	true-to-false
			BRFL	 	branch if true-to-false edge
				LCAL	Send
			BRTR
			PRIM	Heap/Store self
		ESBR
		SORD	2	both
			PRIM	Stack/Drop	É ¥ inst/É
			LCAL	Send
		ESBR
	ESTR
EDEF
LDEF	Send
	CMNT	 	sends the outputs
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ É
	LITO	1	É ¥ 1/inst/É
	GSYM	Output/#1	É ¥ #1/1/inst/É
	PRIM	Misc/Send entry	É ¥ inst/É
	LITO	0	É ¥ 0/inst/É
	GSYM	Output/#2	É ¥ #2/0/inst/É
	PRIM	Misc/Send entry	É ¥ inst/É
	LITO	0	É ¥ 0/inst/É
	GSYM	Output/#1	É ¥ #1/0/inst/É
	PRIM	Misc/Send entry	É ¥ inst/É
	LITO	1	É ¥ 1/inst/É
	GSYM	Output/#2	É ¥ #2/1/inst/É
	PRIM	Misc/Send entry	É ¥ inst/É
	PRIM	Heap/Store self
EDEF