
Button 1 Text Loop
'Controls OpenTextBox
'Gosub Loop
Stop

Label Loop
	Print Rnd + CRLF
	Wait Seconds 0.01
	If Key("Space")
		Return
	EndIf
Goto Loop

Label EventTimer
	Gosub EventTimer2
Return

Label EventTimer2
	If v1 = 0
		v1 = 1
		Button 1 Color Green9 
	Else
		v1 = 0
		Button 1 Color Yellow8 
	EndIf
	v2 = v2 + 1
	Print "=====================================" + CRLF
Return


'WATCH v1
'WATCH v2
'EXEC Gosub 3
