

Eval "Gosub Test1"

For v1 = 1 To 10
	s1 = "Button 5 Text Button " + v1
	Eval s1
	Eval "Wait Seconds 0.3"
Next

For v1 = 1 To 10
	Eval "Button 5 Text Button " + v1
	Eval "Wait Seconds 0.3"
	Eval "Beep"
Next


Stop

Label Test1
	Print "pippo"
Return


'WATCH SewTo_Speed
'EXEC Button 5 Text Button5
