
Key Right	Gosub MoveRight
Key Left	Gosub MoveLeft

Button 1 Text Loop

'Gosub loop

Stop

Label MoveRight
	v1 = v1 + 1
	Wait Seconds 0.5
	Print v1
Return

Label MoveLeft
	v1 = v1 - 1
	Print v1
Return


Label Loop
	Select True
		Case False
			Beep
	EndSelect
Goto Loop


'WATCH Incrocio
'WATCH LastKeyPressed
'EXEC Slot(2) = 0
