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:     FBlockAccountsList.Add(Pblock);
    end;
    FBufferBlocksHash.Add(Result.block_hash[1],Length(Result.block_hash));
    Inc(FTotalBalance,Int64(blockChain.reward + blockChain.fee));
    Dec(FTotalFee, Int64(blockChain.fee));
    If (length(accs_miner)>0) then begin
      AccountKeyListAddAccounts(blockChain.account_key,accs_miner);
    end;
  