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