%
% calculate hypotenuse from zero point
%
_Scope.X _Scope.ZeroX sub dup mul
_Scope.Y _Scope.ZeroY sub dup mul
add sqr 12 left @!Param4