%DeclareBeg  $$
%New KChek
%New KSrtich
%New odynychka
%New Zatrymka
%New Vid
%New Do
%DeclareEnd

%Set $$KChek="1"
%Set $$odynychka="1"
%Set $$Vid="5000"
%Set $$Do="15000"
%Print $$KChek

%While($$odynychka == 1)
%Oper(2,8,7,$$KChek)
%Oper(5000,100000,7,$$Zatrymka)
%Print $$Zatrymka
%While($$KChek > 0)
%Oper(3,10,7,$$KSrtich)
%Print $$KSrtich
60000000;
61000000; , , ;
%While($$KSrtich > 0)
;FP-320;40;--__-__-//123456789||987654321\\-__-__--;0;
;61000000;;
61000000;;
%Oper($$KSrtich,1,1,$$KSrtich)
%EndWhile
65000000;0;
%Oper($$KChek,1,1,$$KChek)
%EndWhile
%While($$Zatrymka > 0)
%Delay 1000
%Oper($$Zatrymka,1000,1,$$Zatrymka)
%EndWhile
%EndWhile