%DeclareBeg  $$
%New KTSykl
%New KSrtich
%DeclareEnd

%Set $$KTSykl="3"

81000000;0;0;0;
;%While($$KTSykl > 0)
81000000;0;0;0;
;81000000;1;0;2345678901234567890;
81000000;1;0; ;
81000000;2;0; ;
;%Oper($$KTSykl,1,1,$$KTSykl)
%Delay 1000
;%EndWhile
81000000;0;0;0;