STRE
	SGLB	Misc/Class Reference
		CLAS	354700	Selection Band
	ESBR
	SORD	1	Button 1
		ICAL	Button 1	/o,354688,354690;Button 1
	ESBR
	SORD	2	Button 2
		ICAL	Button 2	/o,354688,354690;Button 2
	ESBR
	SORD	3	Button 3
		ICAL	Button 3	/o,354688,354690;Button 3
	ESBR
	SORD	4	Button 4
		ICAL	Button 4	/o,354688,354690;Button 4
	ESBR
	SORD	7	internal stuff
		LITO	1	last button touched
		LITO	128	video ref
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354694	SuperOpStn
	ESBR
	SGLB	OpStn/Init
		CMNT	 	Expects:  É ¥ inst/index/base/É
		CMNT	 	------ initialize video reference number
		PRIM	Stack/Rotate up	É ¥ index/base/inst/É
		PRIM	Stack/Xdrop	É ¥ index/inst/É
		PRIM	Ordinal/Left
		PRIM	Ordinal/Left
		PRIM	Ordinal/Left	É ¥ video/inst/É
		PRIM	Stack/Dup to aux	É/video ¥ video/inst/É
		LITO	2	É/video ¥ index/video/inst/É
		LITO	7	É/video ¥ key/index/video/inst/É
		PRIM	S_tree/Replace	É/video ¥ inst/É
		CMNT	 	---- Initialize the video band
		LITO	0	É/video ¥ 0/inst/É
		LITO	0	É/video ¥ 0/0/inst/É
		LITO	0	É/video ¥ 0/0/0/inst/É
		LITO	0	É/video ¥ 0/0/0/0/inst/É
		LITO	0	É/video ¥ 0/0/0/0/0/inst/É
		LITO	0	É/video ¥ 0/0/0/0/0/0/inst/É
		LITO	4	É/video ¥ 4/0/0/0/0/0/0/inst/É
		PRIM	Stack/Dup from aux	É/video ¥ video/4/0/0/0/0/0/0/inst/É
		ASIO	OpStn/INIT_VIDOBJ	É/video ¥ inst/É
		CMNT	 	---- Initialize the buttons
		PRIM	Heap/Name of self	É/video ¥ name/inst/É
		PRIM	Stack/Swap	É/video ¥ inst/name/É
		LITO	4	É/video ¥ 4/inst/name/É
		PRIM	Stack/Push from aux	É ¥ video/4/inst/name/É
		PRIM	Stack/Rotate up	É ¥ 4/inst/video/name/É
		CALL	354088	É ¥ inst/name/É
		PRIM	Stack/Swap	É ¥ name/inst/É
		PRIM	Heap/Set self	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	OpStn/Clear
		CMNT	 	Expects:  É ¥ inst/É
		CMNT	 	---- Clear the bands
		PRIM	Heap/Name of self	É ¥ name/inst/É
		PRIM	Stack/Swap	É ¥ inst/name/É
		LITO	4	É ¥ 4/inst/name/É
		CALL	354692	É ¥ inst/name/É
		PRIM	Stack/Swap	É ¥ name/inst/É
		PRIM	Heap/Set self	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	OpStn/Touch Screen
		CMNT	 	Expects:  É ¥ inst/horiz/É
		LITO	1	É ¥ 1/inst/horiz/É
		LITO	7	É ¥ 7/1/inst/horiz/É
		PRIM	S_tree/Read	É ¥ last/inst/horiz/É
		PRIM	Stack/Rotate down	É ¥ horiz/last/inst/É
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Increment	É ¥ new/last/inst/É
		PRIM	Stack/Over	É ¥ last/new/last/inst/É
		PRIM	Ordinal/Test equal	É ¥ rslt/new/last/inst/É
		BRFL	 	branch if old­new
			PRIM	Stack/Swap	É ¥ last/new/inst/É
			BRFL	 	branch if old=0
				CMNT	 	if old­new & old=0 then store new and send push to new
				PRIM	Stack/Dup down	É ¥ new/inst/new/É
				LITO	1	É ¥ 1/new/inst/new/É
				LITO	7	É ¥ 7/1/new/inst/new/É
				PRIM	S_tree/Replace	É ¥ inst/new/É
				PRIM	Stack/Swap	É ¥ new/inst/É
				LCAL	get	É ¥ name/inst/É
				LITO	0	É ¥ 0/name/inst/É
				PRIM	Stack/Swap	É ¥ name/0/inst/É
				GSYM	OpStn/Touch Screen	É ¥ method/name/0/inst/É
				CALL	354769	É ¥ inst/É
				PRIM	Heap/Store self
			BRTR
			CMNT	 	If old­new & old­0 then do nothing
			PRIM	Stack/Drop	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		PRIM	Stack/Drop	É ¥ last/inst/É
		PRIM	Stack/Drop	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
	SGLB	OpStn/Touch Release
		CMNT	 	Expects:  É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		LITO	7	É ¥ 7/1/inst/É
		PRIM	S_tree/Read	É ¥ last_band/inst/É
		LCAL	get	É ¥ name/inst/É
		GSYM	OpStn/Touch Release	É ¥ method/name/inst/É
		CALL	354059	É ¥ inst/É
		LITO	0	É ¥ 0/inst/É
		LITO	1	É ¥ 1/0/inst/É
		LITO	7	É ¥ 7/1/0/inst/É
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,738,434
	CMNT	3	0
	CMTL	7	0
		CMNT	14	108,170,0,1,1,;/i;%s
		CMNT	14	108,240,0,2,1,;/i;%s
		CMNT	14	108,310,0,3,1,;/i;%s
		CMNT	14	108,380,0,4,1,;/i;%s
	ECMT
	CMNT	8	0,0,720,416
	CMNT	18	360,70,BUTTON BAND
	CMNT	14	24,170,1:
	CMNT	14	24,240,2:
	CMNT	14	24,310,3:
	CMNT	14	24,380,4:
ECMT
LDEF	get
	CMNT	 	given a band ref, gets the instance name
	CMNT	 	Input:  É ¥ band/inst/É
	CMNT	 	Output:  É ¥ name/inst/É
	LITO	1	É ¥ 1/band/inst/É
	PRIM	Stack/Swap	É ¥ band/1/inst/É
	PRIM	S_tree/Read	É ¥ name/inst/É
EDEF