
Button 1 Label _RUN
Button 2 Label _STOP

Button 4 Label LoadGarden
Button 5 Label LoadHouse


Variable Numeric Slot_CommandsToVoiceCommands = 2

Stop

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

' =============================================================
'  COMMANDS TO GPS
' =============================================================
Label _RUN
	SendCommand(Slot_CommandsToVoiceCommands)("Run")
Return
Label _STOP
	SendCommand(Slot_CommandsToVoiceCommands)("Stop")
Return

Label LoadGarden
	SendCommand(Slot_CommandsToVoiceCommands)("Load ENG_garden.txt")
Return
Label LoadHouse
	SendCommand(Slot_CommandsToVoiceCommands)("Load ENG_house.txt")
Return


'WATCH SewTo_Speed
'EXEC Button 5 Text Button5
