var
Tmr_1s:ton;
end_var


Tmr_1s(In:=not(Tmr_1s.Q),Pt:=t#1s);
if Tmr_1s.Q then
Your_program;
end_if