(*Running modes*)
IF b_FIRE THEN
	iRunningMode :=0;
ELSIF b_NIGHTCOOL OR b_OVK THEN
	iRunningMode :=3;
ELSIF b_TIMECHANNEL AND b_PRESCENSE AND b_VAVOK THEN
	iRunningMode :=2;
ELSIF b_TIMECHANNEL THEN
	iRunningMode :=1;
END_IF;

(*Write Values*)

CASE iRunningMode OF
	0 : iTemp := SetDigitalPointF(Value:=0, LockState:=1, Name:= 'LB01_GT104_SP');
		iTemp := SetDigitalPointF(Value:=0, LockState:=1, Name:= 'LB01_GK104_SP');

	1 : iTemp := SetDigitalPointF(Value:=1, LockState:=1, Name:= 'LB01_GT104_SP');
		rTemp := SetControlParameterF(Mode:=254,Value:=r_TEMPMIN, LockState:=1,'LB01_GT104_SP');
		rTemp := SetControlParameterF(Mode:=255,Value:=r_TEMPMIN, LockState:=1,'LB01_GT104_SP');
		iTemp := SetDigitalPointF(Value:=1, LockState:=1, Name:= 'LB01_GK104_SP');
		rTemp := SetControlParameterF(Mode:=254,Value:=r_TEMPMIN, LockState:=1,'LB01_GK104_SP');
		rTemp := SetControlParameterF(Mode:=255,Value:=r_TEMPMIN, LockState:=1,'LB01_GK104_SP');

	2 : iTemp := SetDigitalPointF(Value:=1, LockState:=1, Name:= 'LB01_GT104_SP');
		rTemp := SetControlParameterF(Mode:=255,Value:=r_TEMPMIN, LockState:=1,'LB01_GT104_SP');
		rTemp := SetControlParameterF(Mode:=254,Value:=r_TEMPMAX, LockState:=1,'LB01_GT104_SP');
		iTemp := SetDigitalPointF(Value:=1, LockState:=1, Name:= 'LB01_GK104_SP');
		rTemp := SetControlParameterF(Mode:=255,Value:=r_TEMPMIN, LockState:=1,'LB01_GK104_SP');
		rTemp := SetControlParameterF(Mode:=254,Value:=r_TEMPMAX, LockState:=1,'LB01_GK104_SP');

	3 : rTemp := SetControlParameterF(Mode:=254,Value:=r_TEMPMAX, LockState:=1,'LB01_GT104_SP');
		iTemp := SetDigitalPointF(Value:=0, LockState:=1, Name:= 'LB01_GT104_SP');
		rTemp := SetControlParameterF(Mode:=254,Value:=r_TEMPMAX, LockState:=1,'LB01_GK104_SP');
END_CASE;