(*Running modes*)

IF b_TIMECHANNEL THEN 
	iRunLevel1 :=1;
ELSE	
	iRunLevel1 :=0;
END_IF;

IF b_TIMECHANNEL AND b_PRESCENSE AND b_VAVOK THEN
	iRunLevel2 :=2;
ELSE	
	iRunLevel2 :=0;
END_IF;

IF b_NIGHTCOOL OR b_OVK THEN
	iRunLevel3 :=3;
ELSE	
	iRunLevel3 :=0;
END_IF;

(*Write Values*)

IF NOT b_FIRE THEN
	iRunningMode := MAX(iRunLevel1 + iRunLevel2 + iRunLevel3);
ELSE
	iRunningMode := 0;
END_IF;

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;