STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354359
	ESBR
	SORD	2
		LITO	101	current state
		PORD	0	games played
		PORD	0	games won
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;State
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;TM
	ESBR
	SGLB	Output/#3
		LCON	 	/*+;TR
	ESBR
	SGLB	Output/#4
		LCON	 	/*+;ML
	ESBR
	SGLB	Output/#5
		LCON	 	/*+;MM
	ESBR
	SGLB	Output/#6
		LCON	 	/*+;MR
	ESBR
	SGLB	Output/#7
		LCON	 	/*+;BL
	ESBR
	SGLB	Output/#8
		LCON	 	/*+;BM
	ESBR
	SGLB	Output/#9
		LCON	 	/*+;BR
	ESBR
	SGLB	Output/#10
		LCON	 	/*+;Blink
	ESBR
	SGLB	Output/#11	games played
		LCON	 	/*+;Played
	ESBR
	SGLB	Output/#12	games won
		LCON	 	/*+;Won
	ESBR
	SORD	101
		LITO	0
		GSYM	Output/#5
		GSYM	Output/#9
		GSYM	Output/#3
		GSYM	Output/#3
		GSYM	Output/#3
		GSYM	Output/#3
		GSYM	Output/#3
		GSYM	Output/#3
		LITO	0
		LITO	102
		LITO	119
		LITO	111
		LITO	103
		LITO	106
		LITO	116
		LITO	117
		LITO	118
	ESBR
	SORD	102
		LITO	0
		LITO	0
		GSYM	Output/#9
		GSYM	Output/#9
		LITO	0
		GSYM	Output/#9
		GSYM	Output/#9
		GSYM	Output/#9
		GSYM	Output/#7
		LITO	0
		LITO	0
		LITO	123
		LITO	123
		LITO	0
		LITO	123
		LITO	123
		LITO	123
		LITO	120
	ESBR
	SORD	103
		LITO	0
		GSYM	Output/#8
		LITO	0
		GSYM	Output/#2
		LITO	0
		GSYM	Output/#2
		GSYM	Output/#2
		GSYM	Output/#2
		GSYM	Output/#2
		LITO	0
		LITO	104
		LITO	0
		LITO	123
		LITO	0
		LITO	123
		LITO	123
		LITO	123
		LITO	123
	ESBR
	SORD	104
		LITO	0
		LITO	0
		LITO	0
		GSYM	Output/#6
		LITO	0
		GSYM	Output/#4
		GSYM	Output/#9
		LITO	0
		GSYM	Output/#7
		LITO	0
		LITO	0
		LITO	0
		LITO	108
		LITO	0
		LITO	105
		LITO	109
		LITO	0
		LITO	110
	ESBR
	SORD	105
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		GSYM	Output/#9
		LITO	0
		GSYM	Output/#7
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	122
		LITO	0
		LITO	123
	ESBR
	SORD	106
		LITO	0
		GSYM	Output/#5
		LITO	0
		GSYM	Output/#2
		GSYM	Output/#2
		LITO	0
		GSYM	Output/#2
		GSYM	Output/#2
		GSYM	Output/#2
		LITO	0
		LITO	107
		LITO	0
		LITO	123
		LITO	123
		LITO	0
		LITO	123
		LITO	123
		LITO	123
	ESBR
	SORD	107
		LITO	0
		LITO	0
		LITO	0
		GSYM	Output/#9
		LITO	0
		LITO	0
		GSYM	Output/#9
		GSYM	Output/#9
		GSYM	Output/#7
		LITO	0
		LITO	0
		LITO	0
		LITO	123
		LITO	0
		LITO	0
		LITO	123
		LITO	123
		LITO	123
	ESBR
	SORD	108
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		GSYM	Output/#9
		LITO	0
		GSYM	Output/#7
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	123
		LITO	0
		LITO	122
	ESBR
	SORD	109
		LITO	0
		LITO	0
		LITO	0
		GSYM	Output/#6
		LITO	0
		GSYM	Output/#4
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	123
		LITO	0
		LITO	122
		LITO	0
		LITO	0
		LITO	0
	ESBR
	SORD	110
		LITO	0
		LITO	0
		LITO	0
		GSYM	Output/#6
		LITO	0
		GSYM	Output/#4
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	122
		LITO	0
		LITO	123
		LITO	0
		LITO	0
		LITO	0
	ESBR
	SORD	111
		LITO	0
		GSYM	Output/#5
		LITO	0
		LITO	0
		GSYM	Output/#2
		GSYM	Output/#2
		GSYM	Output/#2
		GSYM	Output/#2
		GSYM	Output/#2
		LITO	0
		LITO	112
		LITO	0
		LITO	0
		LITO	123
		LITO	123
		LITO	123
		LITO	123
		LITO	123
	ESBR
	SORD	112
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		GSYM	Output/#9
		GSYM	Output/#9
		GSYM	Output/#9
		GSYM	Output/#7
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	123
		LITO	123
		LITO	123
		LITO	123
	ESBR
	SORD	113
		LITO	0
		LITO	0
		LITO	0
		GSYM	Output/#6
		GSYM	Output/#6
		GSYM	Output/#5
		LITO	0
		GSYM	Output/#6
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	123
		LITO	123
		LITO	123
		LITO	0
		LITO	123
		LITO	0
	ESBR
	SORD	114
		LITO	0
		LITO	0
		LITO	0
		GSYM	Output/#5
		GSYM	Output/#4
		GSYM	Output/#4
		LITO	0
		GSYM	Output/#4
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	123
		LITO	123
		LITO	123
		LITO	0
		LITO	123
		LITO	0
	ESBR
	SORD	115
		LITO	0
		LITO	0
		LITO	0
		GSYM	Output/#9
		LITO	0
		GSYM	Output/#9
		GSYM	Output/#9
		LITO	0
		GSYM	Output/#7
		LITO	0
		LITO	0
		LITO	0
		LITO	123
		LITO	0
		LITO	123
		LITO	123
		LITO	0
		LITO	123
	ESBR
	SORD	116
		LITO	0
		GSYM	Output/#9
		LITO	0
		GSYM	Output/#2
		GSYM	Output/#2
		GSYM	Output/#2
		LITO	0
		GSYM	Output/#2
		GSYM	Output/#2
		LITO	0
		LITO	113
		LITO	0
		LITO	123
		LITO	123
		LITO	123
		LITO	0
		LITO	123
		LITO	123
	ESBR
	SORD	117
		LITO	0
		GSYM	Output/#5
		LITO	0
		GSYM	Output/#2
		GSYM	Output/#2
		GSYM	Output/#2
		GSYM	Output/#2
		LITO	0
		GSYM	Output/#2
		LITO	0
		LITO	115
		LITO	0
		LITO	123
		LITO	123
		LITO	123
		LITO	123
		LITO	0
		LITO	123
	ESBR
	SORD	118
		LITO	0
		GSYM	Output/#7
		LITO	0
		GSYM	Output/#2
		GSYM	Output/#2
		GSYM	Output/#2
		GSYM	Output/#2
		GSYM	Output/#2
		LITO	0
		LITO	0
		LITO	114
		LITO	0
		LITO	123
		LITO	123
		LITO	123
		LITO	123
		LITO	123
		LITO	0
	ESBR
	SORD	119
		LITO	0
		GSYM	Output/#5
		LITO	0
		GSYM	Output/#5
		GSYM	Output/#7
		GSYM	Output/#5
		GSYM	Output/#5
		GSYM	Output/#5
		LITO	0
		LITO	0
		LITO	123
		LITO	0
		LITO	123
		LITO	121
		LITO	123
		LITO	123
		LITO	123
		LITO	0
	ESBR
	SORD	120
		LITO	0
		LITO	0
		GSYM	Output/#4
		GSYM	Output/#3
		LITO	0
		GSYM	Output/#3
		LITO	0
		GSYM	Output/#3
		LITO	0
		LITO	0
		LITO	0
		LITO	123
		LITO	123
		LITO	0
		LITO	123
		LITO	0
		LITO	123
		LITO	0
	ESBR
	SORD	121
		LITO	0
		GSYM	Output/#8
		LITO	0
		GSYM	Output/#8
		LITO	0
		GSYM	Output/#8
		LITO	0
		GSYM	Output/#4
		LITO	0
		LITO	0
		LITO	123
		LITO	0
		LITO	123
		LITO	0
		LITO	123
		LITO	0
		LITO	123
		LITO	0
	ESBR
	SORD	122
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
	ESBR
	SORD	123
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
		LITO	0
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	TTD/Reset	/3t12,Disable,Enable;Select...
		PRIM	Stack/Swap	É ¥ push/inst/É
		BRFL	 	branch if release
			PRIM	Heap/Store self	É ¥ É
		BRTR
		GSYM	Output/#11	É ¥ output/inst/É
		PRIM	Stack/Pop to aux	É/output ¥ inst/É
		LCAL	Reset
	ESBR
	SGLB	TTD/TM	/3t12,Disable,Enable;Select...
		LITO	2
		LCAL	Play
	ESBR
	SGLB	TTD/TR	/3t12,Disable,Enable;Select...
		LITO	3
		LCAL	Play
	ESBR
	SGLB	TTD/ML	/3t12,Disable,Enable;Select...
		LITO	4
		LCAL	Play
	ESBR
	SGLB	TTD/MM	/3t12,Disable,Enable;Select...
		LITO	5
		LCAL	Play
	ESBR
	SGLB	TTD/MR	/3t12,Disable,Enable;Select...
		LITO	6
		LCAL	Play
	ESBR
	SGLB	TTD/BL	/3t12,Disable,Enable;Select...
		LITO	7
		LCAL	Play
	ESBR
	SGLB	TTD/BM	/3t12,Disable,Enable;Select...
		LITO	8
		LCAL	Play
	ESBR
	SGLB	TTD/BR	/3t12,Disable,Enable;Select...
		LITO	9
		LCAL	Play
	ESBR
ESTR
LDEF	Play	É ¥ index/inst/input/É
	PRIM	Stack/Switch	É ¥ input/inst/index/É
	BRFL	 	brach if false input (do nothing)
		PRIM	Stack/Xdrop	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	BRTR
	CMNT	 	get current state
	LITO	1	current state
	LITO	2	main data
	PRIM	S_tree/Read	É ¥ state/inst/index/É
	PRIM	Stack/Dup to aux	É/state ¥ state/inst/index/É
	PRIM	Stack/Xover	É/state ¥ index/state/inst/index/É
	PRIM	Stack/Swap	É/state ¥ state/index/inst/index/É
	CMNT	 	get output for specified input (index)
	PRIM	S_tree/Read	É/state ¥ output/inst/index/É
	PRIM	Stack/Dup down	É/state ¥ output/inst/output/index/É
	BRFL	 	branch if invalid input for this state
		PRIM	Stack/Drop from aux	É ¥ inst/output/index/É
		PRIM	Stack/Xdrop	É ¥ inst/index/É
		PRIM	Stack/Xdrop	É ¥ inst/É
		PRIM	Heap/Store self	É ¥ É
	BRTR
	PRIM	Stack/Xover	É/state ¥ index/inst/output/index/É
	CMNT	 	set O for button pushed
	LITO	3	É/state ¥ 3/index/inst/output/index/É
	PRIM	Stack/Swap	É/state ¥ index/3/inst/output/index/É
	LITO	15	É/state ¥ out#0/index/3/inst/output/index/É
	PRIM	Ordinal/Add	É/state ¥ output#/3/inst/output/index/É
	PRIM	Misc/Send entry	É/state ¥ inst/output/index/É
	CMNT	 	set X for our response
	LITO	2	É/state ¥ 2/inst/output/index/É
	PRIM	Stack/Rotate down	É/state ¥ output/2/inst/index/É
	PRIM	Misc/Send entry	É/state ¥ inst/index/É
	PRIM	Stack/Swap	É/state ¥ index/inst/É
	LITO	9	É/state ¥ 9/index/inst/É
	PRIM	Ordinal/Add	É/state ¥ offset/inst/É
	PRIM	Stack/Push from aux	É ¥ state/offset/inst/É
	CMNT	 	get new state for current state and specified input (index)
	PRIM	S_tree/Read	É ¥ new state/inst/É
	CMNT	 	test to see if tie
	LITO	122	É ¥ 122/new state/inst/É
	PRIM	Ordinal/Test equal	É ¥ tie?/new state/inst/É
	BRFL	 	branch if not tie
		CMNT	 	test for win
		LITO	123	É ¥ 123/new state/inst/É
		PRIM	Ordinal/Test equal	É ¥ win?/new state/inst/É
		BRFL	 	branch if not win
			CMNT	 	still playing, just save new state
			LITO	1	current state
			LITO	2	main data
			PRIM	S_tree/Replace	É ¥ inst/É
			PRIM	Heap/Store self	É ¥ É
		BRTR
		CMNT	 	win, save new state and show win message
		LITO	2	É ¥ 2/new state/inst/É
		LCAL	End
		CMNT	 	increament games won
		LITO	3	games won
		LCAL	Count
		PRIM	Heap/Store self	É ¥ É
	BRTR
	CMNT	 	tie, save new state and show tie message
	LITO	3	É ¥ 3/new state/inst/É
	LCAL	End
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	Reset	É/output ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ output/inst/É
	PRIM	Ordinal/Decrement	É ¥ output-1/inst/É
	PRIM	Stack/Dup to aux	É/output' ¥ output'/inst/É
	LITO	15	É/output' ¥ #0/output'/inst/É
	PRIM	Ordinal/Test equal	É/output' ¥ #1?/output'/inst/É
	BRFL	 	branch if not done
		LITO	1	É/output' ¥ 1/output'/inst/É
		PRIM	Stack/Swap	É/output' ¥ output'/1/inst/É
		PRIM	Misc/Send entry	É/output' ¥ inst/É
		LCAL	Reset
	BRTR
	PRIM	Stack/Drop	É/output' ¥ inst/É
	PRIM	Stack/Drop from aux	É ¥ inst/É
	LITO	101	reset to initial state
	LITO	1	current state
	LITO	2	main data
	PRIM	S_tree/Replace	É ¥ inst/É
	PRIM	Heap/Store self	É ¥ É
EDEF
LDEF	End	É ¥ heading/new state/inst/É
	PRIM	Stack/Rotate up	É ¥ new state/inst/heading/É
	LITO	1	current state
	LITO	2	main data
	PRIM	S_tree/Replace	É ¥ inst/heading/É
	LITO	2	index of # games played
	LCAL	Count	É ¥ heading/inst/É
	PRIM	Stack/Swap	É ¥ heading/inst/É
	GSYM	Output/#1
	PRIM	Misc/Send entry	É ¥ inst/É
	LITO	2	blink
	GSYM	Output/#10
	PRIM	Misc/Send entry	É ¥ inst/É
EDEF
LDEF	Count	É ¥ index/inst/É
	PRIM	Stack/Dup down	É ¥ index/inst/index/É
	LITO	2	main data
	PRIM	S_tree/Read	É ¥ count/inst/index/É
	PRIM	Ordinal/Increment	É ¥ count+1/inst/index/É
	PRIM	Stack/Dup to aux	É/count+1 ¥ count+1/inst/index/É
	PRIM	Stack/Xover	É/count+1 ¥ index/count+1/inst/index/É
	LITO	2	main data
	PRIM	S_tree/Replace	É/count+1 ¥ inst/index/É
	PRIM	Stack/Push from aux	É ¥ count+1/inst/index/É
	PRIM	Stack/Rotate down	É ¥ index/count+1/inst/É
	GSYM	Output/#9
	PRIM	Ordinal/Add	É ¥ out #/count+1/inst/É
	PRIM	Misc/Send entry	É ¥ inst/É
EDEF