#VB
'rem Modified may/19/2022 by CNC4PC

exec.AddStatusmessage("Parameters: P<thc delay> E<setpoint> q<height> H<hys>")

if Pvar IsNot Nothing then
AS3.Setfield(Pvar, 234) 'THC Delay
end if

if Evar IsNot Nothing then
AS3.Setfield(Evar, 20004) 'Setpoint
end if

if Qvar IsNot Nothing then
AS3.Setfield(Qvar, 2010) 'Height
end if

if Hvar IsNot Nothing then
AS3.Setfield(Hvar, 20007) 'HYS
end if



