s1 = "Redon"
Select1
's1 = "Redon"
'Select1
's1 = "RgbOff"
'Select1
Stop

Label Select1
	Select s1
		Case "Red"
			RedOn
		Case "Green"
			GreenOn
		Case "Blue"
			BlueOn
		CaseElse
			Print "Invalid QRcode " + s1 + CRLF
			Stop
	EndSelect
Return

Label Select2
	Select s2
		Case "RedON"
			RedOn
		Case "GreenON"
			GreenOn
		Case "BlueOn"
			BlueOn
		Case "RgbOFF"
			RgbOff
		CaseElse
			Print " Unrecognized command: " + s2 + CRLF
			Beep
			Stop
	EndSelect
	Beep
	Wait Seconds 0.5
Return

' ╔════════════════════════════════════════════╗
' ║ LED ON OFF                                 ║
' ╚════════════════════════════════════════════╝
Variable Numeric Slot_LedR = 1
Variable Numeric Slot_LedG = 2
Variable Numeric Slot_LedB = 3

Label RedOn
	Slot Slot_LedR = 1000
Return

Label GreenOn
	Slot Slot_LedG = 1000
Return

Label BlueOn
	Slot Slot_LedB = 1000
Return

Label RgbOff
	Slot Slot_LedR = 0
	Slot Slot_LedG = 0
	Slot Slot_LedB = 0
Return


'WATCH ttsvoices
