и еще

var
ton_r:TON;
state:byte:=17;
end_var
ton_r(in:=not ton_r.q,pt:=t#2s);
state:=sel(ton_r.q,state,rol(state,1));
r1:=state.0;r2:=state.1;r3:=state.2;r4:=state.3;