$Drying_Sequence

################## Regenerering Tørker B ##################

#Trinn1 Inn/utløpsventiler tørker A åpnes   

if(Timer1_time eq 1)
	20_KV1001_set_open = 1;
	20_KV1006_set_open = 1;
	Fans_Svitch = 0;
	Step_Number_value_ot = 1;
end;

#Trinn2 Regenereringskompressor startes

if(Timer1_time eq 60)
	20_KV1007_set_close = 1;
	20_KV1012_set_close = 1;
	20_KV1019_set_close = 1;
	20_KB101M_start_duty = 1;
	Step_Number_value_ot = 2;
	
end;

if(Timer1_time eq 70)
	20_PV1015_Svitch2_in = 0;
end;

#Trinn3 Tørker B trykkavlastes

if(Timer1_time eq 120)
	20_KV1018_set_open = 1;
	20_TIC1006_mode = 0;
	20_TIC1006B_mode = 0;
	Step_Number_value_ot = 3;
end; 

#Trinn4 Innen 5 min er tørker B trykkavlastet

if(Timer1_time eq 120)
	Step_Number_value_ot = 4;
end;

#Trinn5 Ventiler for varm regenerering av tørker B åpnes

if(Timer1_time eq 480)
	20_KV1009_set_open = 1;
	20_KV1011_set_open = 1;
	20_KV1013_set_open = 1;
	20_TC1011_setp = 30;
	Step_Number_value_ot = 5;
end; 

#Trinn6 Trykkavlastningsventil tørker B stenges

if(Timer1_time eq 540)
	20_KV1018_set_close = 1;
	Step_Number_value_ot = 6;
end;

#Trinn7 Temperatur i regenereringsgasforvarmeren må være over 35 grader

if(Timer1_time eq 600)
	Step_Number_value_ot = 7;
end;

#Trinn8 En time gjennomspyling med kald reg. gass

if(Timer1_time eq 900)
	Step_Number_value_ot = 8;
end;

#Trinn9 Settpunkt regenereringsgassforvarmer settes til 240 grader

if(Timer1_time eq 4500)
	20_TC1011_setp = 240;
	Step_Number_value_ot = 9;
end;

#Trinn10 Varm regenerering 12 timer

if(Timer1_time eq 4560)
	Step_Number_value_ot = 10;
end;

#Trinn11 Ventiler for kald regenerering åpnes

if(Timer1_time eq 47760)
	20_KV1008_set_open = 1;
	20_KV1010_set_open = 1;
	20_KV1014_set_open = 1;
	Step_Number_value_ot = 11;
end;

#Trinn12 Ventiler for varm regenerering tørker B stenges

if(Timer1_time eq 47820)
	20_KV1009_set_close = 1;
	20_KV1011_set_close = 1;
	20_KV1013_set_close = 1;
	20_TC1011_setp = 30;
	Step_Number_value_ot = 12;
end;

#Trinn13 Tørker B blir nedkjølt til under 30 grader på syv timer

if(Timer1_time eq 47880)
	Step_Number_value_ot = 13;
end;

#Trinn14 Regenereringsgasskompressor og vifter stoppes

if(Timer1_time eq 73080)
	20_KB101M_stop_duty = 1;
	20_PV1015_Svitch2_in = 1;
	20_KV1010_set_close =1;
	Fans_Svitch = 1;
	Step_Number_value_ot = 14;
end;

#Trinn15 Driftsklar

if(Timer1_time eq 73140)
	20_TIC1006_mode = 1;
	20_TIC1006B_mode = 1;
	20_TIC1006_ot = 0.3;
	20_TIC1006B_ot = 0.3;
	Step_Number_value_ot = 15;
end;

#Trinn16 Driftsklar

if(Timer1_time eq 159540)
	Step_Number_value_ot = 16;
end;

#Trinn17 Driftsklar

if(Timer1_time eq 245940)
	Step_Number_value_ot = 17;
end;

#Trinn18 Driftsklar

if(Timer1_time eq 332340)
	Step_Number_value_ot = 18;
end;

#Trinn19 Stenger ventiler for kald regenerering tørker B

if(Timer1_time eq 346740)
	20_KV1008_set_close = 1;
	20_KV1014_set_close = 1;
	Step_Number_value_ot = 19;
end;

#Trinn20 Ventil for opptrykking av tørker B åpner

if(Timer1_time eq 346800)
	20_KV1017_set_open = 1;
	Step_Number_value_ot = 20;
end;

#Trinn21 5 min. opptrykking

if(Timer1_time eq 346860)
	Step_Number_value_ot = 21;
end;

################## Regenerering Tørker A ##################

#Trinn22 Inn/utløpsventiler tørker B åpnes   

if(Timer2_time eq 1)
	20_KV1007_set_open = 1;
	20_KV1012_set_open = 1;
	Fans_Svitch = 0;
	Step_Number_value_ot = 22;
end;

#Trinn23 Regenereringskompressor startes

if(Timer2_time eq 60)
	20_KV1001_set_close = 1;
	20_KV1006_set_close = 1;
	20_KV1017_set_close = 1;
	20_KB101M_start_duty = 1;
	Step_Number_value_ot = 23;
	
end;

if(Timer2_time eq 70)
	20_PV1015_Svitch2_in = 0;
end;

#Trinn24 Tørker A trykkavlastes

if(Timer2_time eq 120)
	20_KV1016_set_open = 1;
	20_TIC1006_mode = 0;
	20_TIC1006B_mode = 0;
	Step_Number_value_ot = 24;
end; 

#Trinn25 Innen 5 min er tørker A trykkavlastet

if(Timer2_time eq 180)
	Step_Number_value_ot = 25;
end;

#Trinn26 Ventiler for varm regenerering av tørker A åpnes

if(Timer2_time eq 480)
	20_KV1003_set_open = 1;
	20_KV1005_set_open = 1;
	20_KV1013_set_open = 1;
	20_TC1011_setp = 30;
	Step_Number_value_ot = 26;
end; 

#Trinn27 Trykkavlastningsventil tørker A stenges

if(Timer2_time eq 540)
	20_KV1016_set_close = 1;
	Step_Number_value_ot = 27;
end;

#Trinn28 Temperatur i regenereringsgasforvarmeren må være over 35 grader

if(Timer2_time eq 600)
	Step_Number_value_ot = 28;
end;

#Trinn29 En time gjennomspyling med kald reg. gass

if(Timer2_time eq 900)
	Step_Number_value_ot = 29;
end;

#Trinn30 Settpunkt regenereringsgassforvarmer settes til 240 grader

if(Timer2_time eq 4500)
	20_TC1011_setp = 240;
	Step_Number_value_ot = 30;
end;

#Trinn31 Varm regenerering 12 timer

if(Timer2_time eq 4560)
	Step_Number_value_ot = 31;
end;

#Trinn32 Ventiler for kald regenerering åpnes

if(Timer2_time eq 47760)
	20_KV1002_set_open = 1;
	20_KV1004_set_open = 1;
	20_KV1014_set_open = 1;
	Step_Number_value_ot = 32;
end;

#Trinn33 Ventiler for varm regenerering tørker A stenges

if(Timer2_time eq 47820)
	20_KV1003_set_close = 1;
	20_KV1005_set_close = 1;
	20_KV1013_set_close = 1;
	Step_Number_value_ot = 33;
end;

#Trinn34 Tørker A blir nedkjølt til under 30 grader på syv timer

if(Timer2_time eq 47880)
	Step_Number_value_ot = 34;
end;

#Trinn35 Regenereringsgasskompressor og vifter stoppes

if(Timer2_time eq 73080)
	20_KB101M_stop_duty = 1;
	20_PV1015_Svitch2_in = 1;
	20_KV1004_set_close = 1;
	Fans_Svitch = 1;
	Step_Number_value_ot = 35;
end;

#Trinn36 Driftsklar

if(Timer2_time eq 73140)
	20_TIC1006_mode = 1;
	20_TIC1006B_mode = 1;
	20_TIC1006_ot = 0.3;
	20_TIC1006B_ot = 0.3;
	Step_Number_value_ot = 36;
end;

#Trinn37 Driftsklar

if(Timer2_time eq 159140)
	Step_Number_value_ot = 37;
end;

#Trinn38 Driftsklar

if(Timer2_time eq 245940)
	Step_Number_value_ot = 38;
end;

#Trinn39 Driftsklar

if(Timer2_time eq 332340)
	Step_Number_value_ot = 39;
end;

#Trinn40 Stenger ventiler for kald regenerering tørker A

if(Timer2_time eq 346740)
	20_KV1002_set_close = 1;
	20_KV1014_set_close = 1;
	Step_Number_value_ot = 40;
end;

#Trinn41 Ventil for opptrykking av tørker A åpner

if(Timer2_time eq 346800)
	20_KV1019_set_open = 1;
	Step_Number_value_ot = 41;
end;

#Trinn42 5 min. opptrykking

if(Timer2_time eq 346860)
	Step_Number_value_ot = 42;
end;