#52=#50-555;
IF (+#52) THEN
#50=555;
#51=#5021;
ENDIF;
IF (-#52) THEN
#53=#5021-#51
#54=#53/2
#50=0
SETWK(X#54);
MESSAGEBOX(Xгɹ!)
ENDIF;
RETURN;