' ----------------------------------------------
'  Commands to Theremino_CNC
' ----------------------------------------------

Button 1 Label SearchWeb1
Button 2 Label SearchWeb2
Button 3 Label SearchWeb3
Button 4 Label SearchWeb4
Button 5 Label SearchWeb5
Button 6 Label SearchWeb6
Button 7 Label PlayStream1
Button 8 Label PlayStream2
Button 9 Label PlayStream3
Button 10 Label PlayStream4
Button 11 Label PlayStream5
Button 12 Label PlayStream6

Button 17 Label PlayWeb1
Button 18 Label PlayWeb2
Button 19 Label PlayWeb3
Button 20 Label PlayWeb4
Button 21 Label PlayWeb5
Button 22 Label PlayWeb6
Button 23 Label PlayWeb7
Button 24 Label PlayWeb8
Button 25 Label PlayWeb9
Button 26 Label PlayWeb10
Button 27 Label PlayWeb11
Button 28 Label PlayWeb12

Button 30 Label ErrorTest

Button 33 Label PlayWeb13
Button 34 Label PlayWeb14
Button 35 Label PlayWeb15
Button 36 Label PlayWeb16
Button 37 Label PlayWeb17
Button 38 Label PlayWeb18
Button 39 Label PlayWeb19
Button 40 Label PlayWeb20
Button 41 Label PlayWeb21
Button 42 Label PlayWeb22
Button 43 Label PlayWeb23
Button 44 Label PlayWeb24

Button 49 Label SearchLocal1
Button 50 Label SearchLocal2
Button 51 Label SearchLocal3
Button 52 Label SearchLocal4
Button 53 Label SearchLocal5

Button 55 Label SearchFavorites1
Button 56 Label SearchFavorites2
Button 57 Label SearchFavorites3
Button 58 Label SearchFavorites4
Button 59 Label SearchFavorites5

Button 65 Label PlayFavorites
Button 66 Label AddToFavorites
Button 67 Label DeleteFromFav.
Button 68 Label EditFavorites

Button 70 Label Forward
Button 71 Label Backward

Button 73 Label Next
Button 74 Label Previous

Button 76 Label FullScreen
Button 77 Label Maximized
Button 78 Label Normal
Button 79 Label Minimized

Variable Numeric Slot_Commands = 6
Variable Numeric Slot_Responses = 7

Controls OpenTextBox
'Loop
Stop

Label Loop
	If SlotText(Slot_Responses) <> ""
		Print SlotText(Slot_Responses) + CRLF + CRLF
		SlotText(Slot_Responses) = ""
	EndIf
Goto Loop

' =============================================================
'  SEND COMMAND (default timeout = 0.5 Sec)
' =============================================================
Label SendCommand
	Variable Numeric SC1       '<-- Parameter Destinat.-Slot
	Variable String  SC2       '<-- Parameter Command-String
	Variable Numeric SC3 = 0.5 '<-- The timeout in seconds
	Variable Numeric SC4
	SlotText SC1 = SC2
	For SC4 = 0.1 To SC3 Step 0.1
		If SlotText(SC1) = ""
			Exit
		EndIf
		Wait Seconds 0.1
	Next
Return

Label SearchWeb1
	SendCommand(Slot_Commands)("SearchWeb Boz Scaggs - Thanks To You - Jay's Audio Lab")
Return
Label SearchWeb2
	SendCommand(Slot_Commands)("SearchWeb Boz Scaggs")
Return
Label SearchWeb3
	SendCommand(Slot_Commands)("SearchWeb Norah Jones")
Return
Label SearchWeb4
	SendCommand(Slot_Commands)("SearchWeb Candy Dulfer")
Return
Label SearchWeb5
	SendCommand(Slot_Commands)("SearchWeb Angelina Jordan - Fly Me to the Moon")
Return
Label SearchWeb6
	SendCommand(Slot_Commands)("SearchWeb Pino Daniele")
Return
Label PlayStream1
	SendCommand(Slot_Commands)("PlayWeb http://radio.streemlion.com:1430/stream")
Return
Label PlayStream2
	SendCommand(Slot_Commands)("PlayWeb http://c30.radioboss.fm:8119/autodj")
Return
Label PlayStream3
	SendCommand(Slot_Commands)("PlayWeb http://igor.torontocast.com:2840/stream")
Return
Label PlayStream4
	SendCommand(Slot_Commands)("PlayWeb http://streams.radiomast.io/4fdf004c-c2f3-49c1-bdb1-22e208d48780")
Return
Label PlayStream5
	SendCommand(Slot_Commands)("PlayWeb https://soulcitythebeat.stream.laut.fm/soulcitythebeat")
Return
Label PlayStream6
	SendCommand(Slot_Commands)("PlayWeb http://quincy.torontocast.com:2580/stream")
Return

Label ErrorTest
	SendCommand(Slot_Commands)("Error Test")
Return

Label PlayWeb1
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/tgD5SJka07M") ' Boz Scaggs Thanks To You
Return
Label PlayWeb2
	'SendCommand(Slot_Commands)("PlayWeb https://youtu.be/rO59UO-YXrc")' Boz Scaggs Thanks To You LIVE
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/HCBVwdS1Mt0")' Boz Scaggs at Home
Return
Label PlayWeb3
	SendCommand(Slot_Commands)("PlayWeb https://www.youtube.com/watch?v=GILHv2R4UR8")
Return
Label PlayWeb4
	SendCommand(Slot_Commands)("PlayWeb https://www.youtube.com/watch?v=P59LcdjcxMs")
Return
Label PlayWeb5
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/GcYRKgsr53E")
	'SendCommand(Slot_Commands)("PlayWeb https://youtu.be/iI7DLKNJguw")
    'SendCommand(Slot_Commands)("PlayWeb https://youtu.be/3okPYG9zU0I")
	'SendCommand(Slot_Commands)("PlayWeb https://www.youtube.com/@CozyJazzMusjc/videos") ' COZY OFFICIAL SITE
Return
Label PlayWeb6
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/nO3QY2UOU-M")' jazz
Return
Label PlayWeb7
	SendCommand(Slot_Commands)("PlayWeb https://www.youtube.com/watch?v=EOAPMhaCtuw")' jazz
Return
Label PlayWeb8
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/YVm5_eyocKo")' jazz
Return
Label PlayWeb9
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/4X2b7qE9AFY")' jazz
Return
Label PlayWeb10
	SendCommand(Slot_Commands)("PlayWeb https://www.youtube.com/watch?v=5WSulenOUb0")' Jethro Tull
Return
Label PlayWeb11
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/gf6v59c5yuY") ' Hotel California
Return
Label PlayWeb12
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/DWO_eojWezg") ' Santana
Return

Label PlayWeb13
	SendCommand(Slot_Commands)("PlayWeb https://www.youtube.com/watch?v=jh4C7w-dvho") 'Caffè Music relax in jazz
	'https://www.youtube.com/watch?v=b4puhonCebE 'Caffè Music relax in jazz
    'https://youtu.be/IRyJe-0Uie0 'Caffè Music relax in jazz
    'https://youtu.be/az8T-ED6tgs 'Caffè Music relax in jazz
Return
Label PlayWeb14
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/Wyzqmfu1W14") ' Hammond
Return
Label PlayWeb15
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/v8I5vDewcZo")' Little dream of me
Return
Label PlayWeb16
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/SZiods4xwmM")' Erik Clapton
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/bk50SoNkvhw") ' Boz We are all alone
Return
Label PlayWeb17
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/vQegbgyBYFY")' Bossanova
Return
Label PlayWeb18
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/9wxkkt5g0gg")' Bossanova
Return
Label PlayWeb19
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/q6_kkJZCj4I")' Bossanova
Return
Label PlayWeb20
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/fnv5i9rXkSc") ' Brasil
Return
Label PlayWeb21
	SendCommand(Slot_Commands)("PlayWeb https://www.youtube.com/watch?v=5WSulenOUb0")' Jethro Tull
Return
Label PlayWeb22
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/gf6v59c5yuY") ' Hotel California
Return
Label PlayWeb23
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/DWO_eojWezg")  ' Santana
Return
Label PlayWeb24
	SendCommand(Slot_Commands)("PlayWeb https://youtu.be/3XbEUv_MCj0")' Radio Live
Return

Label SearchLocal1
	SendCommand(Slot_Commands)("SearchLocal sade")
Return
Label SearchLocal2
	SendCommand(Slot_Commands)("SearchLocal gino vannelli")
Return
Label SearchLocal3
	SendCommand(Slot_Commands)("SearchLocal sinatra fly me to the moon")
Return
Label SearchLocal4
	SendCommand(Slot_Commands)("SearchLocal the great gig in the sky")
	'SendCommand(Slot_Commands)("SearchLocal The bird and the bee mp4")
Return
Label SearchLocal5
	SendCommand(Slot_Commands)("SearchLocal Gabriella Quevedo")
	'SendCommand(Slot_Commands)("SearchLocal Here Comes The Sun - Gabriella Quevedo")
	'SendCommand(Slot_Commands)("SearchLocal Another brick - Gabriella Quevedo")
Return

Label SearchFavorites1
	SendCommand(Slot_Commands)("SearchFavorites")
Return
Label SearchFavorites2
	SendCommand(Slot_Commands)("SearchFavorites music")
Return
Label SearchFavorites3
	SendCommand(Slot_Commands)("SearchFavorites Funny animals")
Return
Label SearchFavorites4
	SendCommand(Slot_Commands)("SearchFavorites Cave")
Return
Label SearchFavorites5
	SendCommand(Slot_Commands)("SearchFavorites Sade")
Return
Label SearchFavorites6
	SendCommand(Slot_Commands)("SearchFavorites Parrot")
Return


Label PlayFavorites
	SendCommand(Slot_Commands)("PlayFavorites")
Return
Label AddToFavorites
	SendCommand(Slot_Commands)("AddToFavorites")
Return
Label DeleteFromFav.
	SendCommand(Slot_Commands)("DeleteFromFavorites")
Return
Label EditFavorites
	SendCommand(Slot_Commands)("EditFavorites")
Return


Label Forward
	SendCommand(Slot_Commands)("Forward")
Return
Label Backward
	SendCommand(Slot_Commands)("Backward")
Return

Label Next
	SendCommand(Slot_Commands)("Next")
Return
Label Previous
	SendCommand(Slot_Commands)("Previous")
Return

Label FullScreen
	SendCommand(Slot_Commands)("FullScreen")
Return
Label Maximized
	SendCommand(Slot_Commands)("Maximized")
Return
Label Normal
	SendCommand(Slot_Commands)("Normal")
Return
Label Minimized
	SendCommand(Slot_Commands)("Minimized")
Return


'WATCH SewTo_Speed
'EXEC Button 5 Text Button5
