' ----------------------------------------------
'  Commands to Theremino_Dictation
' ----------------------------------------------

Button 1 Label CmdRun
Button 2 Label CmdStop

Button 4 Label ClearAllText

Button 6 Label Clear_SpegniLedRosso
Button 7 Label Clear_Led

Button 10 Label ErrorTest


Button 17 Label Lang_English
Button 18 Label Lang_Inglese
Button 19 Label Lang_Eng
Button 20 Label Lang_Ing
Button 21 Label Lang_Italiano
Button 22 Label Lang_Italian
Button 23 Label Lang_Ita
Button 24 Label Lang_Chinese
Button 25 Label Lang_Chxxx
Button 26 Label Lang_Chi
Button 27 Label Lang_Japanese
Button 28 Label Lang_Jap



Variable Numeric Slot_Status = 2
Variable Numeric Slot_CommandsToDictation = 3
Loop
Stop

Label Loop
	Print SlotText(Slot_Status)
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 CmdRun
	SendCommand(Slot_CommandsToDictation)(Run)
Return
Label CmdStop
	SendCommand(Slot_CommandsToDictation)("Stop")
Return

Label ClearAllText
	SendCommand(Slot_CommandsToDictation)("ClearAllText")
Return

Label Clear_SpegniLedRosso
	SendCommand(Slot_CommandsToDictation)("Clear_Spegni_Led_Rosso")
Return
Label Clear_Led
	SendCommand(Slot_CommandsToDictation)("Clear_Led")
Return

Label ErrorTest
	SendCommand(Slot_CommandsToDictation)(zzzz)
Return

Label Lang_English
	SendCommand(Slot_CommandsToDictation)(Language_English)
Return
Label Lang_Inglese
	SendCommand(Slot_CommandsToDictation)(Language_Inglese)
Return
Label Lang_Eng
	SendCommand(Slot_CommandsToDictation)(Language_Eng)
Return
Label Lang_Ing
	SendCommand(Slot_CommandsToDictation)(Language_Ing)
Return
Label Lang_Italiano
	SendCommand(Slot_CommandsToDictation)(Language_Italiano)
Return
Label Lang_Italian
	SendCommand(Slot_CommandsToDictation)(Language_Italian)
Return
Label Lang_Ita
	SendCommand(Slot_CommandsToDictation)(Language_Ita)
Return
Label Lang_Chinese
	SendCommand(Slot_CommandsToDictation)(Language_Chinese)
Return
Label Lang_Chxxx
	SendCommand(Slot_CommandsToDictation)(Language_#######)
Return
Label Lang_Chi
	SendCommand(Slot_CommandsToDictation)(Language_Chi)
Return
Label Lang_Japanese
	SendCommand(Slot_CommandsToDictation)(Language_Japanese)
Return
Label Lang_Jap
	SendCommand(Slot_CommandsToDictation)(Language_Jap)
Return


'WATCH SewTo_Speed
'EXEC Button 5 Text Button5