anchor.diff:    temp : string;
   begin
     temp := LowerCase(functionName);
  -  Result := (temp=mP_intfunc_trunc) or (temp=mP_intfunc_sin) or (temp=mP_intfunc_cos) or (temp=mP_intfunc_tan) or
  -    (temp=mP_intfunc_frac) or (temp=mP_intfunc_int);
  +  Result := (temp=mpFunction_trunc) or (temp=mpFunction_sin) or (temp=mpFunction_cos) or (temp=mpFunction_tan) or
  +    (temp=mpFunction_frac) or (temp=mpFunction_int);
   end;
   
   
  
positive.code:     end;
    end
    else
    if CompareText(funct, mp_specfunc_avg) = 0 then
    begin
      if ParametersList.Count < 1 then
        RaiseError(SWrongParamCount);
  
negative.code:     Result := BooleanToFloat(TempBoolean);
    end
    else
    if CompareText(funct, mpFunction_safediv) = 0 then
    begin
      if ParametersList.Count <> 2 then
        RaiseError(SWrongParamCount);
  