' ---------------------------------------------- ' 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