Hello Aerostar all right
IM sorry
I fix the program even so it hangs when they procure I send commands to the relay of the drive has time to work and time not
thank you

[CODELOOP_PRINCIPAL:

Serin2 RX_IN,84,1000,TIMEOUT,[WAIT("CMD"),RX]

SELECT CASE RX
CASE "A"
HIGH RELE1
CASE "B"
LOW RELE1
CASE "C"
HIGH rele2
CASE "D"
LOW rele2
END SELECT
PAUSE 300
GOTO LOOP_PRINCIPAL


TIMEOUT:

'DS18B20
OWOUT DQ,1,[$CC, $44] 'Start temperature conversion
pause 1000
OWOUT DQ,1,[$CC, $BE] 'Read the temperature
OWIN DQ,0,[temperature.LOWBYTE,temperature.HIGHBYTE]
temperature = temperature*/1600
Serout2 XT_OUT,84,[DEC2 (temperature/100),".",DEC2 temperature,13,10]
GOTO LOOP_PRINCIPAL