STRE
	SGLB	Misc/Class Reference
		CLAS	354050
	ESBR
	SORD	2	main data
		LITO	0	started
		LVAL	0	held diameter
		PVAL	0.00500504	/o;Inc/Dec Amount
	ESBR
	SORD	3	diameter select
		LITO	0	/e,Diameter A,Diameter B;Diameter Select
	ESBR
	SORD	4	started data
		LITO	0	Start A
		LITO	0	Start B
	ESBR
	SGLB	Output/#1
		LCON	 	/*+Selected Diameter
	ESBR
	SGLB	Output/#2
		LCON	 	/*+Modified Diameter
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	Winders/Increment	/3 Trigger
		LITO	0	get all
		LITO	2	main data
		PRIM	S_tree/Read	other data/inst/data/É
		PRIM	List/Behead	started/list/inst/data/É
		BRFL	 	only incr if not started
			PRIM	Stack/Rotate down	data/list/inst/É
			LVAL	0.500015	.5/data/list/inst/É
			PRIM	Value/Compare	rslt/data/list/inst/É
			BRFL	 	branch if not on
				PRIM	Stack/Drop	list/inst/É
				PRIM	Stack/Drop	inst/É
				PRIM	Heap/Store self
			BRTR
			PRIM	Stack/Drop	list/inst/É
			PRIM	List/Remove	held dia/inst/É
			PRIM	List/List to item	incr/held dia/inst/É
			PRIM	Value/Add	new dia/inst/É
			PRIM	Stack/Dup to aux	É/dia ¥ dia/inst/É
			GSYM	Output/#2
			PRIM	Misc/Send entry	É/dia ¥ inst/É
			PRIM	Stack/Push from aux	É ¥ dia/inst/É
			LITO	2	held index
			LITO	2	main data
			PRIM	S_tree/Replace	inst/É
			PRIM	Heap/Store self
		BRTR
		PRIM	Stack/Drop	inst/data/É
		PRIM	Stack/Xdrop	inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Decrement	/3 Trigger
		LITO	0	get all
		LITO	2	main data
		PRIM	S_tree/Read	other data/inst/data/É
		PRIM	List/Behead	started/list/inst/data/É
		BRFL	 	only incr if not started
			PRIM	Stack/Rotate down	data/list/inst/É
			LVAL	0.500015	.5/data/list/inst/É
			PRIM	Value/Compare	rslt/data/list/inst/É
			BRFL	 	branch if not on
				PRIM	Stack/Drop	list/inst/É
				PRIM	Stack/Drop	inst/É
				PRIM	Heap/Store self
			BRTR
			PRIM	Stack/Drop	list/inst/É
			PRIM	List/Remove	held dia/inst/É
			PRIM	List/List to item	decr/held dia/inst/É
			PRIM	Value/Subtract	new dia/inst/É
			PRIM	Stack/Dup to aux	É/dia ¥ dia/inst/É
			GSYM	Output/#2
			PRIM	Misc/Send entry	É/dia ¥ inst/É
			PRIM	Stack/Push from aux	É ¥ dia/inst/É
			LITO	2	held index
			LITO	2	main data
			PRIM	S_tree/Replace	inst/É
			PRIM	Heap/Store self
		BRTR
		PRIM	Stack/Drop	inst/data/É
		PRIM	Stack/Xdrop	inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Amount	/3
		LITO	3	amount index
		LITO	2	main data
		PRIM	S_tree/Replace	save new amount
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Diameter A	/3
		LITO	1	select index
		LITO	3	select data
		PRIM	S_tree/Read	select/inst/dia/É
		BRFL	 	branch if Dia A selected
			LCAL	Diameter
		BRTR
		PRIM	Stack/Xdrop	inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Diameter B	/3
		LITO	1	select index
		LITO	3	select data
		PRIM	S_tree/Read	select/inst/dia/É
		BRFL	 	branch if Dia A selected
			PRIM	Stack/Xdrop	inst/É
			PRIM	Heap/Store self
		BRTR
		LCAL	Diameter
	ESBR
	SGLB	Winders/Diameter Select	/3
		PRIM	Stack/Swap
		LITO	1	diameter select
		LITO	3	diameter data structure
		PRIM	S_tree/Replace	save new diameter
		PRIM	Heap/Store self
	ESBR
	SGLB	Winders/Start A	/3
		PRIM	Stack/Over	start/inst/start/É
		LITO	1	Start A index
		LITO	4	start data
		PRIM	S_tree/Replace	inst/start/É
		LITO	2	Start B index
		LCAL	Start
	ESBR
	SGLB	Winders/Start B	/3
		PRIM	Stack/Over	start/inst/start/É
		LITO	2	Start B index
		LITO	4	start data
		PRIM	S_tree/Replace	inst/start/É
		LITO	1	Start A index
		LCAL	Start
	ESBR
ESTR
LDEF	Diameter	inst/dia/É
	PRIM	Stack/Swap	dia/inst/É
	PRIM	Stack/Dup to aux	É/dia ¥ dia/inst/É
	GSYM	Output/#1
	PRIM	Misc/Send entry	É/dia ¥ inst/É
	LITO	1	started index
	LITO	2	main data
	PRIM	S_tree/Read
	BRFL	 	branch if not started
		PRIM	Stack/Drop from aux	inst/É
		PRIM	Heap/Store self
	BRTR
	PRIM	Stack/Push from aux	É ¥ dia/inst/É
	LITO	2	held index
	LITO	2	main data
	PRIM	S_tree/Replace	inst/É
	PRIM	Heap/Store self
EDEF
LDEF	Start	index/inst/data/É
	LITO	4	start data
	PRIM	S_tree/Read	other data/inst/data/É
	PRIM	Stack/Xswap	other data/data/inst/É
	PRIM	Ordinal/Ior	started/inst/É
	LITO	1	started index
	LITO	2	main data
	PRIM	S_tree/Replace
	PRIM	Heap/Store self
EDEF