anchor.diff:    PaccAccountToBuy^.accountInfo.state := as_Normal;
     PaccAccountToBuy^.accountInfo.accountKey := new_account_key;
   
  -  Dec(FTotalBalance,fee);
  -  inc(FTotalFee,fee);
  +  Dec(FTotalBalance,Int64(fee));
  +  inc(FTotalFee,Int64(fee));
     Result := true;
   end;
   
  
positive.code:   P_target^.accountInfo := accountInfo;
    P_target^.name := newName;
    P_target^.account_type := newType;
    Dec(P_signer^.balance,fee); // Signer is who pays the fee
    Dec(FTotalBalance,fee);
    Inc(FTotalFee,fee);
    Result := true;
  end;
  
  
negative.code:   end;
    PaccTarget^.balance := PaccTarget^.balance + (amount);
  
    Dec(FTotalBalance,Int64(fee));
    inc(FTotalFee,Int64(fee));
    Result := true;
  end;
  
  