
' ----------------------------------------- BUTTONS
Button 1 Text "RUN TEST"
Button 5 Text "ROTATE HORZ"

Stop


Label RUN TEST
	For v9 = 1 To 30
		Gosub ROTATE HORZ
		Gosub ROTATE VERT
	Next
Return


Label ROTATE HORZ
	Wait Seconds 0.3
	For v1 = 1 To 10       ' <<< 1000 = 10 sec timeout (approx)
		Wait Seconds 0.009
		Button 5 Text "ROTATE VERT"
		If False
			Return
		EndIf
	Next
	Button 5 Text "ROTATE VERT"
Return

Label ROTATE VERT
	Wait Seconds 0.3
	For v1 = 1 To 10       ' <<< 1000 = 10 sec timeout (approx)
		Wait Seconds 0.009
		Button 5 Text "ROTATE HORZ"
		If False
			Return
		EndIf
	Next
	Button 5 Text "ROTATE HORZ"
Return


