STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354694	SuperOpStn
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008	Object
	ESBR
	SGLB	OpStn/Clear	for internal class use only!
		CMNT	 	Expects:  É ¥ instÉ
		LITO	128
		LITO	2	É ¥ index/video ref/inst/É
		LITO	2	É ¥ key/index/video ref/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	OpStn/Highlight	/3e20,Off,On,Blink;Highlighting
		CMNT	 	Expects:  É ¥ inst/data/É
		LCAL	state	É ¥ blink/inst/data/É
		PRIM	Stack/Rotate down	É ¥ data/blink/inst/É
		STRE	 	request s-tree
			SORD	0	lowlight request
				STRE	 	blink state s-tree
					SORD	0	else
						PRIM	Stack/Drop	É ¥ inst/É
						CALL	354093	É ¥ ref/inst/É
						ASIO	OpStn/LOWLIGHT	É ¥ inst/É
						LITO	1	É ¥ 1/inst/É
						LCAL	set
					ESBR
					SORD	1	lowlight
						PRIM	Heap/Store self
					ESBR
				ESTR
			ESBR
			SORD	1	highlight request
				STRE	 	blink state s-tree
					SORD	0	else
						PRIM	Stack/Drop	É ¥ inst/É
						CALL	354093	É ¥ ref/inst/É
						ASIO	OpStn/HIGHLIGHT	É ¥ inst/É
						LITO	2	É ¥ 2/inst/É
						LCAL	set
					ESBR
					SORD	2	highlight
						PRIM	Heap/Store self
					ESBR
				ESTR
			ESBR
			SORD	2	blink request
				STRE	 	blink state s-tree
					SORD	0	else
						PRIM	Stack/Drop	É ¥ inst/É
						PRIM	Heap/Store self
					ESBR
					SORD	1	lowlight
						PRIM	Timer/Get PAT	É ¥ time/inst/É
						LITO	3	É ¥ 3/time/inst/É
						PRIM	Stack/Xswap	É ¥ 3/inst/time/É
						LCAL	s&rq
					ESBR
					SORD	2	highlight
						PRIM	Timer/Get PAT	É ¥ time/inst/É
						LITO	4	É ¥ 4/time/inst/É
						PRIM	Stack/Xswap	É ¥ 4/inst/time/É
						LCAL	s&rq
					ESBR
				ESTR
				CMNT	 	É ¥ ref/inst/É
			ESBR
		ESTR
	ESBR
	SGLB	OpStn/Trigger	for internal class use only!
		CMNT	 	Expects:  É ¥ inst/time/É
		LCAL	state	É ¥ blink/inst/time/É
		STRE	 	blink state s-tree
			SORD	0	else
				PRIM	Stack/Drop	É ¥ inst/time/É
				PRIM	Stack/Xdrop	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	3	blink low
				CALL	354093	É ¥ ref/inst/time/É
				ASIO	OpStn/HIGHLIGHT	É ¥ inst/time/É
				LITO	4	É ¥ 4/inst/time/É
				LCAL	s&rq
			ESBR
			SORD	4	blink high
				CALL	354093	É ¥ ref/inst/time/É
				ASIO	OpStn/LOWLIGHT	É ¥ inst/time/É
				LITO	3	É ¥ 3/inst/time/É
				LCAL	s&rq
			ESBR
		ESTR
	ESBR
ESTR
LDEF	state
	CMNT	 	Gets the current blink state
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ state/inst/É
	LITO	3	É ¥ 3/inst/time/É
	LITO	2	É ¥ 2/3/inst/time/É
	PRIM	S_tree/Read	É ¥ blink/inst/time/É
EDEF
LDEF	s&rq
	CMNT	 	Sets the new blink state and resends the trigger
	CMNT	 	Input:  É ¥ state/inst/time/É
	CMNT	 	Output:  É ¥ É
	PRIM	Stack/Switch	É ¥ time/inst/state/É
	TIME	650.000	É ¥ Æt/time/inst/state/É
	GSYM	OpStn/Trigger	É ¥ method/Æt/time/inst/state/É
	CALL	354057	É ¥ inst/state/É
	PRIM	Stack/Swap	É ¥ state/inst/É
	LCAL	set
EDEF
LDEF	set
	CMNT	 	Sets the new blink state
	CMNT	 	Input:  É ¥ state/inst/É
	CMNT	 	Output:  É ¥ É
	LITO	3	É ¥ 3/state/inst/É
	LITO	2	É ¥ 2/3/state/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
	PRIM	Heap/Store self
EDEF