anchor.diff:    end;
   end;
   
  -procedure TKAParser.Calc5(var resValue: double; var lexState: TLexState; var lexResult: TLexResult);
  +procedure TKAParser.Calc5(out resValue: double; var lexState: TLexState; var lexResult: TLexResult);
   var
     NewDouble: double;
     LastToken: TFormulaToken;
  
positive.code:   end;
  end;
  
  procedure TKAParser.Calc6(var resValue: double; var lexState: TLexState; var lexResult: TLexResult);
  var
    NewDouble: double;
    LastToken: TFormulaToken;
  
negative.code:   end;
  end;
  
  procedure TKAParser.Calc4(out resValue: double; var lexState: TLexState; var lexResult: TLexResult);
  var
    NewDouble: double;
    LastToken: TFormulaToken;
  