s1 = "Rednnn"
Print ""
Select1
s1 = "Greennn"
Select1
s1 = "Bluennn"
Select1
Stop

Label Select1
	Select s1
		Case "Red"
			Beep 1000 10
		Case "Green"
			Beep 1000 10
		Case "Blue"
			Beep 1000 10
		'CaseElse
			'Print "Invalid QRcode " + s1 + CRLF
	EndSelect
Return

Label Select2
	Select s2
		Case "RedON"
			Beep 1000 10
		CaseElse
			Print " Unrecognized command: " + s2 + CRLF
			Beep
	EndSelect
	Beep
	Wait Seconds 0.5
Return


'WATCH ttsvoices
