var limit, hystereze;
var teplota;

teplota_ok
{
    //sem se daji doplnit dalsi funkce, napr. ovladani rele (zapnout topeni = zvysovat teplotu)
  sys[231] = 1;
}

hlasim_prekroceno
{
  //volano po celou dobu, kdy je teplota nad limitem
  //sem se daji doplnit dalsi funkce, napr. ovladani rele (vypnout topeni = snizovat teplotu)
  sys[231] = 0;
}

main
{

  //nastavime limit teploty (st.C)
  limit = 25;

  //nastavime hodnotu hystereze pro urceni navratu (st.C)
  hystereze = 2;

    //pockame 10 sekund, az nabehne cely system
  wait(10000);


  //------------------------------------------------------------

  //hlavni smycka, ve ktere se vykonava proces
label smycka_rizeni:


  //teplota je brana z cidla
  teplota = (sys[310] / 100);  //musime delit 100 aby to byly cele stupne Celsia

  //podle aktualni teploty se rozhodnu
   if (teplota < limit - hystereze) teplota_ok();
   if (teplota > limit) hlasim_prekroceno();

  //a porad dokola
  goto smycka_rizeni;
}