spinaci_hodiny {
    var cas,on,off,dd,den;
    if (sys[10]!=0)                    //spínáme jen v první vteřinu minuty
        goto nespiname;
        
    cas = sys[8] * 100 + sys[9];    //připravíme čas HHMM
    den = ((sys[4] / 86400) + 3) % 7;    //den v týdnu, 0=pondělí
    
    //RE1
    on = sys[140] / 10000;            //rozebereme sys[140] HHMMHHMM (on/off)
    off = sys[140] % 10000;
    dd = on / 10000;                //program pro den v týdnu ... 0-6=konkrétní den, 7=pracovní, 8=víkend, 9=každý den
    on = on % 10000;
    if (dd<7 && dd!=den)
        goto test2;
    if (dd==7 && den>4)
        goto test2;
    if (dd==8 && den<5)
        goto test2;
    //porovnáváme časy, pokud on=off (nebo 0), nic neděláme
    if (cas==on && sys[231]==0 && on!=off) { 
        sys[231]=1;
        echo('PRG1: RE1 zapnuto v ',sys[8],':',sys[9]);
    }
    if (cas==off && sys[231]!=0 && on!=off) { 
        sys[231]=0;
        echo('PRG1: RE1 vypnuto v ',sys[8],':',sys[9]);
    }

test2:
    on = sys[141] / 10000;            //rozebereme sys[141] HHMMHHMM (on/off)
    off = sys[141] % 10000;
    dd = on / 10000;                //program pro den v týdnu ... 0-6=konkrétní den, 7=pracovní, 8=víkend, 9=každý den
    on = on % 10000;
    if (dd<7 && dd!=den)
        goto test3;
    if (dd==7 && den>4)
        goto test3;
    if (dd==8 && den<5)
        goto test3;
    
    //porovnáváme časy, pokud on=off (nebo 0), nic neděláme
    if (cas==on && sys[231]==0 && on!=off) { 
        sys[231]=1;
        echo('PRG2: RE1 zapnuto v ',sys[8],':',sys[9]);
    }
    if (cas==off && sys[231]!=0 && on!=off) { 
        sys[231]=0;
        echo('PRG2: RE1 vypnuto v ',sys[8],':',sys[9]);
    }

test3:
    on = sys[142] / 10000;            //rozebereme sys[142] HHMMHHMM (on/off)
    off = sys[142] % 10000;
    dd = on / 10000;                //program pro den v týdnu ... 0-6=konkrétní den, 7=pracovní, 8=víkend, 9=každý den
    on = on % 10000;
    if (dd<7 && dd!=den)
        goto test4;
    if (dd==7 && den>4)
        goto test4;
    if (dd==8 && den<5)
        goto test4;

    //porovnáváme časy, pokud on=off (nebo 0), nic neděláme
    if (cas==on && sys[231]==0 && on!=off) { 
        sys[231]=1;
        echo('PRG3: RE1 zapnuto v ',sys[8],':',sys[9]);
    }
    if (cas==off && sys[231]!=0 && on!=off) { 
        sys[231]=0;
        echo('PRG3: RE1 vypnuto v ',sys[8],':',sys[9]);
    }

test4:
    on = sys[143] / 10000;            //rozebereme sys[143] HHMMHHMM (on/off)
    off = sys[143] % 10000;
    dd = on / 10000;                //program pro den v týdnu ... 0-6=konkrétní den, 7=pracovní, 8=víkend, 9=každý den
    on = on % 10000;
    if (dd<7 && dd!=den)
        goto test5;
    if (dd==7 && den>4)
        goto test5;
    if (dd==8 && den<5)
        goto test5;
    
    //porovnáváme časy, pokud on=off (nebo 0), nic neděláme
    if (cas==on && sys[231]==0 && on!=off) { 
        sys[231]=1;
        echo('PRG4: RE1 zapnuto v ',sys[8],':',sys[9]);
    }
    if (cas==off && sys[231]!=0 && on!=off) { 
        sys[231]=0;
        echo('PRG4: RE1 vypnuto v ',sys[8],':',sys[9]);
    }

test5:
    //RE2
    on = sys[144] / 10000;            //rozebereme sys[144] HHMMHHMM (on/off)
    off = sys[144] % 10000;
    dd = on / 10000;                //program pro den v týdnu ... 0-6=konkrétní den, 7=pracovní, 8=víkend, 9=každý den
    on = on % 10000;
    if (dd<7 && dd!=den)
        goto test6;
    if (dd==7 && den>4)
        goto test6;
    if (dd==8 && den<5)
        goto test6;

    //porovnáváme časy, pokud on=off (nebo 0), nic neděláme
    if (cas==on && sys[232]==0 && on!=off) { 
        sys[232]=1;
        echo('PRG5: RE2 zapnuto v ',sys[8],':',sys[9]);
    }
    if (cas==off && sys[232]!=0 && on!=off) { 
        sys[232]=0;
        echo('PRG5: RE2 vypnuto v ',sys[8],':',sys[9]);
    }

test6:
    on = sys[145] / 10000;            //rozebereme sys[145] HHMMHHMM (on/off)
    off = sys[145] % 10000;
    dd = on / 10000;                //program pro den v týdnu ... 0-6=konkrétní den, 7=pracovní, 8=víkend, 9=každý den
    on = on % 10000;
    if (dd<7 && dd!=den)
        goto test7;
    if (dd==7 && den>4)
        goto test7;
    if (dd==8 && den<5)
        goto test7;
    
    //porovnáváme časy, pokud on=off (nebo 0), nic neděláme
    if (cas==on && sys[232]==0 && on!=off) { 
        sys[232]=1;
        echo('PRG6: RE2 zapnuto v ',sys[8],':',sys[9]);
    }
    if (cas==off && sys[232]!=0 && on!=off) { 
        sys[232]=0;
        echo('PRG6: RE2 vypnuto v ',sys[8],':',sys[9]);
    }

test7:
    on = sys[146] / 10000;            //rozebereme sys[146] HHMMHHMM (on/off)
    off = sys[146] % 10000;
    dd = on / 10000;                //program pro den v týdnu ... 0-6=konkrétní den, 7=pracovní, 8=víkend, 9=každý den
    on = on % 10000;
    if (dd<7 && dd!=den)
        goto test8;
    if (dd==7 && den>4)
        goto test8;
    if (dd==8 && den<5)
        goto test8;

    //porovnáváme časy, pokud on=off (nebo 0), nic neděláme
    if (cas==on && sys[232]==0 && on!=off) { 
        sys[232]=1;
        echo('PRG7: RE2 zapnuto v ',sys[8],':',sys[9]);
    }
    if (cas==off && sys[232]!=0 && on!=off) { 
        sys[232]=0;
        echo('PRG7: RE2 vypnuto v ',sys[8],':',sys[9]);
    }

test8:
    on = sys[147] / 10000;            //rozebereme sys[147] HHMMHHMM (on/off)
    off = sys[147] % 10000;
    dd = on / 10000;                //program pro den v týdnu ... 0-6=konkrétní den, 7=pracovní, 8=víkend, 9=každý den
    on = on % 10000;
    if (dd<7 && dd!=den)
        goto nespiname;
    if (dd==7 && den>4)
        goto nespiname;
    if (dd==8 && den<5)
        goto nespiname;
    
    //porovnáváme časy, pokud on=off (nebo 0), nic neděláme
    if (cas==on && sys[232]==0 && on!=off) { 
        sys[232]=1;
        echo('PRG8: RE2 zapnuto v ',sys[8],':',sys[9]);
    }
    if (cas==off && sys[232]!=0 && on!=off) { 
        sys[232]=0;
        echo('PRG8: RE2 vypnuto v ',sys[8],':',sys[9]);
    }

nespiname:
}