
Button 1 Text Maniglia giu
Button 2 Text Maniglia su
Button 3 Text Ripeti
Button 4 Text Performance

Load Theremino_HAL\Theremino_Hal.exe

Gosub MainLoop

Stop

'Label EventStop
'	Load CloseApps Theremino_Hal.exe
'End

Label MainLoop
	If Slot(2) > 300
		Gosub Performance
	EndIf
Goto MainLoop


Label bussa
	Slot 6 = 900
	Wait Seconds 0.1
	Slot 6 = 200
	Wait Seconds 0.1
Return

Label Maniglia giu
	Slot 5 = 770
	Wait Seconds 0.1
Return

Label Maniglia su
	Slot 5 = 500
	Wait Seconds 0.1
Return

Label Centro
	Slot 5 = 800
	Wait Seconds 0.1
Return

Label mani trema
	Wait Seconds 0.05
	Slot 5 = 600
	Wait Seconds 0.05
	Slot 5 = 700
	Wait Seconds 0.05
	Slot 5 = 800
	Wait Seconds 0.05
	Slot 5 = 600
	Wait Seconds 0.05
	Slot 5 = 750
	Wait Seconds 0.05
	Slot 5 = 600
Return

Label Ripeti
	For v1 = 1 To 2
		Slot 1 = 1000
		Wait Seconds 0.11
		Slot 1 = 00
		Wait Seconds 0.1
	Next
Return

Label Performance
	' ---------------------- INFINITE LOOP
	For v2 = 1 To 9E99
		Gosub Ripeti
		Wait Seconds 1
		Slot 5 = 650
		Wait Seconds 0.1
		Slot 5 = 180
		Gosub Maniglia giu
		Wait Seconds 0.05
		Gosub Maniglia su
		Wait Seconds 0.05
		Gosub bussa
		Wait Seconds 0.05
		Slot 1 = 1
		Gosub Maniglia giu
		Wait Seconds 0.05
		Gosub Maniglia su
		Wait Seconds 0.04
		Gosub Ripeti
		Wait Seconds 0.05
		Gosub mani trema
		Wait Seconds 0.2
		Slot 5 = 550
		Wait Seconds 0.1
		Gosub Maniglia giu
		Wait Seconds 0.1
		Gosub Maniglia su
		Wait Seconds 0.8
		Gosub Maniglia giu
		Wait Seconds 0.1
		Gosub Centro
		Wait Seconds 0.05
		Gosub mani trema
		Wait Seconds 0.2
		Gosub Maniglia su
		Wait Seconds 0.1
		Gosub bussa
		Wait Seconds 0.05
		Slot 5 = 550
		Wait Seconds 0.1
		Gosub Maniglia su
		Wait Seconds 0.05
		Gosub mani trema
		Wait Seconds 0.1
		Gosub Maniglia giu
		Wait Seconds 0.1
		Gosub Maniglia su
		' ------------------- TEST SLOT FOR EXIT
		If Slot(2) < 300
			Exit
		EndIf
	Next
Return


'WATCH v1
'EXEC DestX = 12
