STRE
	SGLB	Misc/Class Reference
		CLAS	354515	Display Handler SS
	ESBR
	SORD	1
		ICAL	band 1	/o,350763,350765,350840,350841,350842,354103,354249,354290,354424,354495,354541;Band 1
	ESBR
	SORD	2
		ICAL	band 2	/o,350763,350765,350840,350841,350842,354103,354249,354290,354424,354495,354541;Band 2
	ESBR
	SORD	3
		ICAL	band 3	/o,350763,350765,350840,350841,350842,354103,354249,354290,354424,354495,354541;Band 3
	ESBR
	SORD	4
		ICAL	band 4	/o,350763,350765,350840,350841,350842,354103,354249,354290,354424,354495,354541;Band 4
	ESBR
	SORD	5
		ICAL	band 5	/o,350763,350765,350840,350841,350842,354103,354249,354290,354424,354495,354541;Band 5
	ESBR
	SORD	6
		ICAL	band 6	/o,350763,350765,350840,350841,350842,354103,354249,354290,354424,354495,354541;Band 6
	ESBR
	SORD	7	State & touch mode
		LITO	0	last band
		LITO	1	/t,Disabled,Enabled;Touch Screen
	ESBR
	SORD	8	INIT_TOUCH parameters
		PERS	1
		PERS	2
		PERS	3
		PERS	4
		PERS	5
		PERS	6
	ESBR
	SORD	9	screen saver data
		LVAL	0.0111087	/o,-900,900,0.1,900;Screen Saver Delay (mins)
		LITO	0	/t,Disabled,Enabled;Screen Saver
	ESBR
	CMNT	 	Entry 10 used by screen saver timer
	CMNT	 	Entry 11 used by touch timer
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008	Object
	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	8	key
		PRIM	S_tree/Get exact	É ¥ list/8/inst/É
		ASIO	OpStn/INIT_TOUCH	É ¥ list/8/inst/É
		PRIM	S_tree/Put	É ¥ inst/É
		CMNT	 	---- initialize the timers
		LITO	11	É ¥ 11/inst/É
		CALL	354305	É ¥ inst/É
		LITO	10	É ¥ 10/inst/É
		CALL	354305	É ¥ inst/É
		CMNT	 	---- start the touch timer
		TIME	1000.000	É ¥ Æt/inst/É
		LITO	11	É ¥ 11/Æt/inst/É
		CALL	354285	Start Delta
		CMNT	 	---- start the screen saver timer
		LCAL	SSrestart
		PRIM	Heap/Store self
	ESBR
	SGLB	OpStn/Touch mode	/3t12,Disabled,Enabled;Set Mode É
		LITO	2
		CALL	354083	Method 7 Set
	ESBR
	SGLB	OpStn/Get Touch Mode	/2t11,Disabled,Enabled
		LITO	2
		CALL	354082	Method 7 Get
	ESBR
	SGLB	OpStn/Screen Saver	/3t12,Disabled,Enabled;Set ModeÉ
		CMNT	 	Expects:  É ¥ inst/arg/É
		PRIM	Stack/Over	É ¥ arg/inst/arg/É
		LITO	2	É ¥ 2/arg/inst/arg/É
		LITO	9	É ¥ 9/2/arg/inst/arg/É
		PRIM	S_tree/Replace	É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
		BRFL	 	branch if SS disabled
			LITO	10	É ¥ 10/inst/É
			CALL	354286	É ¥ inst/É
			LCAL	Show	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		LCAL	SSrestart	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	OpStn/Get Screen Saver	/2t11,Disabled,Enabled
		LITO	2
		CALL	354130	Method 9 Get
	ESBR
	SGLB	Timer/Timeout	For internal class use only!
		CALL	354308	É/(time) ¥ key/inst/É
		STRE
			SORD	0	no action required
				PRIM	Heap/Store self
			ESBR
			SORD	10	screen saver timer
				PRIM	Stack/Drop from aux	É ¥ inst/É
				LCAL	Hide	É ¥ inst/É
				PRIM	Heap/Store self
			ESBR
			SORD	11	touch timer
				PRIM	Stack/Drop from aux	É ¥ inst/É
				CMNT	 	---- requeue trigger
				TIME	200.000	É ¥ Æt/inst/É
				LITO	11	É ¥ 11/Æt/inst/É
				CALL	354285	É ¥ inst/É
				CMNT	 	---- process touch
				ASIO	OpStn/READ_SCREEN	É ¥ touch?/raw y/raw x/inst/É
				ASIO	OpStn/GET_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/É
					LCAL	NoTouch
				BRTR
				PRIM	Stack/Switch	É ¥ inst/x/y/É
				LITO	2	É ¥ 2/inst/x/y/É
				LITO	9	É ¥ 9/2/inst/x/y/É
				PRIM	S_tree/Read	É ¥ enable/inst/x/y/É
				BRFL	 	branch if screen saver disabled
					LCAL	Touch
				BRTR
				LITO	10	É ¥ 10/inst/x/y/É
				CALL	354287	É ¥ state/inst/x/y/É
				BRFL	 	branch if idle (timed-out)
					PRIM	Stack/Xdrop	É ¥ inst/y/É
					PRIM	Stack/Xdrop	É ¥ inst/É
					LCAL	Show	É ¥ inst/É
					LCAL	SSrestart	É ¥ inst/É
					TIME	2000.000	É ¥ Æt/inst/É
					LITO	11	É ¥ 11/Æt/inst/É
					CALL	354285	É ¥ inst/É
					PRIM	Heap/Store self
				BRTR
				LCAL	SSrestart	É ¥ inst/x/y/É
				LCAL	Touch
			ESBR
		ESTR
	ESBR
ESTR
CMTL	5	graphic info
	CMNT	4	-18,-18,758,714
	CMTL	3	0
		CMNT	24	16,0,134,45,7,2,Touch Screen;OpStn/Touch mode
		CMNT	24	16,0,214,45,9,2,Screen Saver :;OpStn/Screen Saver
	ECMT
	CMTL	7	0
		CMNT	22	-10,130,0,7,2,OpStn/Get Touch Mode;/t,DIS,EN
		CMNT	22	-10,210,0,9,2,OpStn/Get Screen Saver;/t,DIS,EN
		CMNT	14	410,240,0,9,1,;/v,-900,900; %3.1f mins
		CMNT	14	108,310,0,1,1,;/i;%s
		CMNT	14	108,380,0,2,1,;/i;%s
		CMNT	14	108,450,0,3,1,;/i;%s
		CMNT	14	108,520,0,4,1,;/i;%s
		CMNT	14	108,590,0,5,1,;/i;%s
		CMNT	14	108,660,0,6,1,;/i;%s
	ECMT
	CMNT	8	0,0,740,696
	CMNT	18	370,70,DISPLAY HANDLER
	CMNT	14	24,310,1:
	CMNT	14	24,380,2:
	CMNT	14	24,450,3:
	CMNT	14	24,520,4:
	CMNT	14	24,590,5:
	CMNT	14	24,660,6:
ECMT
CMTL	 	FB Exclusions
	CLAS	354803	/~
	CLAS	354691	/~
	CLAS	354688	/~
	CLAS	354801	/~
	CLAS	354704	/~
	CLAS	354695	/~
	CLAS	354706	/~
	CLAS	354705	/~
	CLAS	354703	/~
	CLAS	354702	/~
	CLAS	354687	/~
	CLAS	354699	/~
	CLAS	354696	/~
	CLAS	354690	/~
	CLAS	354802	/~
ECMT
LDEF	SSrestart
	CMNT	 	Restarts the screen saver timer
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	9	É ¥ 9/inst/É
	PRIM	S_tree/Entry to stack	É ¥ enable/time/inst/É
	BRFL	 	branch if disabled
		PRIM	Stack/Drop
	BRTR
	TIME	54000000.000	É ¥ 1m/time/inst/É
	PRIM	Stack/Swap	É ¥ time/1m/inst/É
	PRIM	Timer/Multiply	É ¥ Æt/inst/É
	LITO	10	É ¥ 10/Æt/inst/É
	CALL	354285	É ¥ inst/É
EDEF
LDEF	NoTouch
	CMNT	 	Cleans up state if there is no current touch
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ É
	LITO	1	É ¥ 1/inst/É
	LITO	7	É ¥ 7/1/inst/É
	PRIM	S_tree/Read	É ¥ prev/inst/É
	PRIM	Stack/Dup down	É ¥ prev/inst/prev/É
	BRFL	 	branch if no previous touch
		PRIM	Stack/Xdrop
		PRIM	Heap/Store self
	BRTR
	LITO	1	É ¥ 1/inst/prev/É
	PRIM	Stack/Rotate down	É ¥ prev/1/inst/É
	PRIM	S_tree/Read	É ¥ 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
EDEF
LDEF	Touch
	CMNT	 	Handles a touch on the screen
	CMNT	 	Input: É ¥ inst/x/y/É
	CMNT	 	Output: É ¥ É
	LITO	2	É ¥ 2/inst/x/y/É
	LITO	7	É ¥ 7/2/inst/x/y/É
	PRIM	S_tree/Read	É ¥ enable/inst/x/y/É
	BRFL	 	branch if touch screen disabled
		PRIM	Stack/Xdrop	É ¥ inst/y/É
		PRIM	Stack/Xdrop	É ¥ inst/É
		LCAL	NoTouch
	BRTR
	PRIM	Stack/Second to aux	É/x ¥ inst/y/É
	LITO	1	É/x ¥ 1/inst/y/É
	LITO	7	É/x ¥ 7/1/inst/y/É
	PRIM	S_tree/Read	É/x ¥ prev/inst/y/É
	PRIM	Stack/Dup down	É/x ¥ prev/inst/prev/y/É
	BRFL	 	branch if new touch
		PRIM	Stack/Xdrop	É/x ¥ inst/y/É
		PRIM	Stack/Swap	É/x ¥ y/inst/É
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Right
		PRIM	Ordinal/Increment	É/x ¥ band/inst/É
		PRIM	Stack/Dup down	É/x ¥ band/inst/band/É
		LITO	1	É/x ¥ 1/band/inst/band/É
		LITO	7	É/x ¥ 7/1/band/inst/band/É
		PRIM	S_tree/Replace	É/x ¥ inst/band/É
		LITO	1	É/x ¥ 1/inst/band/É
		PRIM	Stack/Rotate down	É/x ¥ band/1/inst/É
		PRIM	S_tree/Read	É/x ¥ name/inst/É
		GSYM	OpStn/Touch Screen	É/x ¥ method/name/inst/É
		CALL	354060	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	BRTR
	LITO	1	É/x ¥ 1/inst/prev/y/É
	PRIM	Stack/Rotate down	É/x ¥ prev/1/inst/y/É
	PRIM	S_tree/Read	É/x ¥ name/inst/y/É
	GSYM	OpStn/Touch Screen	É/x ¥ method/name/inst/y/É
	CALL	354060	É ¥ inst/y/É
	PRIM	Stack/Xdrop	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	Show
	ASIO	OpStn/VID_ENABLE
EDEF
LDEF	Hide
	ASIO	OpStn/VID_DISABLE
EDEF