
Load Theremino_VideoColors.exe
Gosub MainLoop
Stop

Variable Numeric NewColor
Variable Numeric OldColor = -1

Label MainLoop
	NewColor = Slot(7)
	If NewColor <> OldColor Or Not MediaPlaying
		OldColor = NewColor
		Select NewColor
			Case 0 ' nero
			Case 1 ' rosso
				Load relee.wav
			Case 2 ' arancio
			Case 3 ' giallo
			Case 4 ' verde
			Case 5 ' cyan
			Case 6 ' blu
				Load Risonatore - solo.wav
			Case 7 ' viola
				Load sky.wav
			Case 8 ' bianco
		EndSelect
	EndIf
Goto MainLoop


'WATCH v1
'EXEC DestX = 12
