STRE
	SGLB	Misc/Class Reference
		CLAS	350762
	ESBR
	SORD	1
		ICAL	band 1	/o,350763,350765,350840,350841,350842,354103,354249,354290,354424,354495;Band 1
	ESBR
	SORD	2
		ICAL	band 2	/o,350763,350765,350840,350841,350842,354103,354249,354290,354424,354495;Band 2
	ESBR
	SORD	3
		ICAL	band 3	/o,350763,350765,350840,350841,350842,354103,354249,354290,354424,354495;Band 3
	ESBR
	SORD	4
		ICAL	band 4	/o,350763,350765,350840,350841,350842,354103,354249,354290,354424,354495;Band 4
	ESBR
	SORD	5
		ICAL	band 5	/o,350763,350765,350840,350841,350842,354103,354249,354290,354424,354495;Band 5
	ESBR
	SORD	6
		ICAL	band 6	/o,350763,350765,350840,350841,350842,354103,354249,354290,354424,354495;Band 6
	ESBR
	SORD	7
		LITO	0
		PERS	1
		PERS	2
		PERS	3
		PERS	4
		PERS	5
		PERS	6
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		CMNT	 	---- Initialize the video hardware
		ASIO	OpStn/INIT_VID	É ¥ inst/É
		CMNT	 	---- Initialize the bands
		PRIM	Heap/Name of self	É ¥ name/inst/É
		LITO	0	É ¥ 0/name/inst/É
		PRIM	Stack/Rotate down	É ¥ inst/0/name/É
		LITO	6	É ¥ 6/inst/0/name/É
		CALL	354088	É ¥ inst/name/É
		PRIM	Stack/Swap	É ¥ name/inst/É
		PRIM	Heap/Set self	É ¥ inst/É
		CMNT	 	---- Initialize the touch screen
		LITO	0	index
		LITO	7	key
		PRIM	S_tree/Read	É ¥ list/inst/É
		PRIM	List/Behead	É ¥ last/list/inst/É
		PRIM	Stack/Drop	É ¥ list/inst/É
		ASIO	OpStn/INIT_TOUCH	É ¥ list/inst/É
		PRIM	Stack/Drop	É ¥ inst/É
		CMNT	 	---- start the loop
		PRIM	Timer/Get PAT	É ¥ time/inst/É
		PRIM	Stack/Swap	É ¥ inst/time/É
		GSYM	OpStn/Trigger	É ¥ method/inst/time/É
		CLAS	350762	delegate to OpStn:Trigger
	ESBR
	SGLB	OpStn/Trigger
		CMNT	 	Expects:  É ¥ inst/time/É
		CMNT	 	---- requeue trigger
		PRIM	Stack/Swap	É ¥ time/inst/É
		TIME	200.000	É ¥ Æt/time/inst/É
		GSYM	OpStn/Trigger	É ¥ method/Æt/time/inst/É
		CALL	354057	É ¥ inst/É
		CMNT	 	---- process touch
		LCAL	touch	É ¥ touch?/y/x/inst/É
		ASIO	OpStn/SCREEN_SPRITE	É ¥ touch?/y/x/inst/É
		BRFL	 	branch if no touch
			PRIM	Stack/Drop	É ¥ x/inst/É
			PRIM	Stack/Drop	É ¥ inst/É
			LITO	1
			LITO	7
			PRIM	S_tree/Read	É ¥ last band/inst/É
			PRIM	Stack/Duplicate	É ¥ last band/last band/inst/É
			BRFL	 	branch if last_band=0
				CMNT	 	*** if new=0 and old=0 then do nothing
				PRIM	Stack/Drop	É ¥ inst/É
				PRIM	Heap/Store self	É ¥ É
			BRTR
			CMNT	 	*** if new=0 and old­0 then send release to last band
			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
		BRTR
		PRIM	Stack/Second to aux	É/x ¥ y/inst/É
		PRIM	Stack/Swap	É/x ¥ inst/y/É
		LITO	1
		LITO	7
		PRIM	S_tree/Read	É/x ¥ last band/inst/y/É
		PRIM	Stack/Rotate down	É/x ¥ y/last band/inst/É
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Increment	É/horiz ¥ new_band/last_band/inst/É
		PRIM	Stack/Over	É/horiz ¥ last_band/new_band/last_band/inst/É
		PRIM	Ordinal/Test equal	É/horiz ¥ rslt/new_band/last_band/inst/É
		BRFL	 	branch if not equal
			PRIM	Stack/Over	É/horiz ¥ last_band/new_band/last_band/inst/É
			BRFL	 	branch if old=0
				CMNT	 	*** if new­0 and old=0 then store new & send push to new
				PRIM	Stack/Xdrop	É/horiz ¥ new_band/inst/É
				PRIM	Stack/Dup down	É/horiz ¥ new_band/inst/new_band/É
				LITO	1	É/horiz ¥ 1/new_band/inst/new_band/É
				LITO	7	É/horiz ¥ 7/1/new_band/inst/new_band/É
				PRIM	S_tree/Replace	É/horiz ¥ inst/new_band/É
				PRIM	Stack/Swap	É/horiz ¥ new_band/inst/É
				LCAL	get	É/horiz ¥ name/inst/É
				GSYM	OpStn/Touch Screen	É/horiz ¥ method/name/inst/É
				CALL	354060	É ¥ inst/É
				PRIM	Heap/Store self	É ¥ É
			BRTR
			CMNT	 	*** if new­0 and old­0 then send push to last
			PRIM	Stack/Drop	É/horiz ¥ last_band/inst/É
			LCAL	get	É/horiz ¥ name/inst/É
			GSYM	OpStn/Touch Screen	É/horiz ¥ method/name/inst/É
			CALL	354060	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		CMNT	 	*** if new=old then send push to new
		PRIM	Stack/Xdrop	É/horiz ¥ new_band/inst/É
		LCAL	get	É/horiz ¥ name/inst/É
		GSYM	OpStn/Touch Screen	É/horiz ¥ method/name/inst/É
		CALL	354060	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	OpStn/Touch mode	/3t12,Disabled,Enabled;Set Mode É
		CMNT	 	Expects:  É ¥ inst/mode/É
		CMNT	 	if entry 8 exists, the touch screen is disabled
		PRIM	Stack/Swap	É ¥ mode/inst/É
		BRFL	 	branch if screen is to be disabled
			LIST	 	É ¥ list/inst/É
				LITO	0
			ELST
			LITO	0	É ¥ index/list/inst/É
			LITO	8	É ¥ key/index/list/inst/É
			PRIM	S_tree/Replace	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		LITO	8	É ¥ 8/inst/É
		PRIM	S_tree/Test for entry	É ¥ exists?/8/inst/É
		BRFL	 	branch if entry does not exist
			PRIM	Stack/Drop	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		PRIM	S_tree/Get exact	É ¥ list/8/inst/É
		PRIM	Stack/Drop	É ¥ 8/inst/É
		PRIM	Stack/Drop	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,738,644
	CMTL	3	0
		CMNT	24	16,0,144,45,0,0,TOUCH MODE;OpStn/Touch mode
	ECMT
	CMTL	7	0
		CMNT	14	108,240,0,1,1,;/i;%s
		CMNT	14	108,310,0,2,1,;/i;%s
		CMNT	14	108,380,0,3,1,;/i;%s
		CMNT	14	108,450,0,4,1,;/i;%s
		CMNT	14	108,520,0,5,1,;/i;%s
		CMNT	14	108,590,0,6,1,;/i;%s
	ECMT
	CMNT	8	0,0,720,626
	CMNT	18	360,70,DISPLAY HANDLER
	CMNT	14	24,240,1:
	CMNT	14	24,310,2:
	CMNT	14	24,380,3:
	CMNT	14	24,450,4:
	CMNT	14	24,520,5:
	CMNT	14	24,590,6:
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
LDEF	touch
	CMNT	 	determines if a touch ocurred
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ touch?/y/x/inst/É
	LITO	8	É ¥ 8/inst/É
	PRIM	S_tree/Test for entry	É ¥ exists?/8/inst/É
	BRFL	 	branch if touchscreen is enabled
		PRIM	Stack/Drop	É ¥ inst/É
		ASIO	OpStn/READ_SCREEN	É ¥ touch?/raw y/raw x/inst/É
		ASIO	OpStn/GET_TOUCH	(converts x & y to pixels from ULC)
	BRTR
	PRIM	Stack/Drop	É ¥ inst/É
	LITO	0	É ¥ 0/inst/É
	LITO	0	É ¥ 0/0/inst/É
	LITO	0	É ¥ 0/0/0/inst/É
EDEF