anchor.diff:  
   procedure DivMod(const a,b:TBint;var q,m:TBint);
   var
  -  la,lb,lq,ia,ib,xa,xb,xc,xq:cardinal;
  +  la,lb,lq,ia,ib,na,xa,xb,xc,xq:cardinal;
     ra,rb,rc:TBInt;//ra,rb just in case (q=a) or (q=b) or (m=a) or (m=b)
     c:boolean;
   begin
  
positive.code:   Result:=Clone(r);
  end;
  
  //function PowMod(const a,b,n:TBint):TBInt;
  
  end.
  
negative.code: procedure DivMod(const a:TBInt;b:byte;var q:TBInt;var m:byte); overload;
  procedure DivMod(const a,b:TBint;var q,m:TBint); overload;
  function Power(const a,b:TBInt):TBInt;
  function PowMod(const a,b,n:TBint):TBInt;
  
  implementation
  
  