
Controls OpenTextBox
Button 1 Text Loop
Gosub Loop
Stop

Label Loop
	Print Rnd + CRLF
	Wait Seconds 0.01
Goto Loop

Label EventTimer
	If v1 = 0
		v1 = 1
		Button 1 Color Yellow
	Else
		v1 = 0
		Button 1 Color Red
	EndIf
	v2 = v2 + 1
	Print "==================================" + CRLF
Return


'WATCH v1
'WATCH v2
'EXEC Gosub 3
