й *)  
 ao12=out_port_a_12: PORT; 
   (* адреса комірки пам'яті, що відповідає за зберігання сезонної константи *) 
  END_VAR 
 (*==================================================================================*)
  (* реалізація програми роботи САУ водооборота *) 
  resetport (); (* Здійснює видалення інформації з буферів всіх портів введення / виводу *): IF ((statusport (di12)=TRUE)) AND (K=0) AND (statusport (di17)=TRUE)) (* якщо щит автоматики включений: « ; якщо порт - активний »і є сигнал з насосної станції про початок роботи *) (* звернення до буферу обміну порту - за допомогою символу« & »*) 
  THEN 
  setport (24, ao12); (* Запалити світлодіод «мережа», рівень Uвх=24 В, *) 
  (* функція setport: пар.1 - значення змінної, пар.2 - вказівка ??порту, 
  пар.3 - час впливу [мс], якщо параметр 3 - не зазначений, то 
  Стандарт. час=1 с, якщо вказано слово" infinite - сигнал посилається 
  весь час роботи контролера, режим утримання порту *) 
  i:=1; (* Для запобігання миготіння світлодіодним панелі *) 
  END_IF; 
  (* ======================== перевірка обраного режиму управління ============ ============== *) 
  hand_time =: 0; 
  IF (statusport (di13)=TRUE) (* якщо натиснута кнопка «ручний режим роботи» *) 
  THEN 
  hand_time=1; 
  JMP (MET_R1); 
  END_IF; 
				
				
				
				
			  (* ============================= установка роботи системи ======== ======================= *) 
  IF (statusport (di14)=TRUE) (* якщо натиснута кнопка пуску електроприводу ЗРК *) 
  THEN 
  OPEN_SHTORKA (di_0=di15; do_0=do5, ao_0=ao12); (* відкриття жалюзі воздуховходного вікна *) setport (24, do1, infinite); (* Включити електропривод ЗРК *) 
  setport (12, a01) (* відкрити заслінку ЗРК на половину *) 
  JMP (MET1); 
  END_IF; 
  ELSE 
  JMP (MET2); 
  END_ELSE; 
  END_IF; 
  (* ================= режим стабілізації температури води в градирні ================= ========= *): WHILE ((& ai10)> t_regulirovki +2) OR (& ao1 <> 24) DO (* регулювання по зниженню температури-подача більшої напруги, необхідна для збільшення кута відкриття заслінки клапана *) 
  & ao1:=(& ao1) +1; 
  setport (& ao1, ao1); 
  DELAY (5000); 
  END_WHILE; 
  WHILE ((& ai10) <(t_regulirovki)) OR (& ao1 <> 1) DO (* регулювання по зниженню температури-на відміну від першої умови, кут відкриття заслінки буде зменшений , тому що його буде вистачати для забезпечення заданих параметрів охолодження оборотної води *) 
  & ao1:=(& ao1) - 1; 
  setport (& a01, ao1); 
  DELAY (5000); 
  END_WHILE;