anchor.diff:                  {$IFDEF TESTNET}
                   Storage.SaveBank;
                   {$ELSE}
  -                // To prevent continuous saving...
                   If (BlocksCount MOD (CT_BankToDiskEveryNBlocks*10))=0 then begin
                     Storage.SaveBank;
                   end;
  
positive.code:   end;
  end;
  
  class function TPCOperationsComp.OperationBlockToText(OperationBlock: TOperationBlock): AnsiString;
  begin
    Result := Format('Block:%d Timestamp:%d Reward:%d Fee:%d Target:%d PoW:%s',[operationBlock.block,
      operationblock.timestamp,operationblock.reward,operationblock.fee, OperationBlock.compact_target, TCrypto.ToHexaString(operationblock.proof_of_work)]);
  end;
  
  class function TPCOperationsComp.RegisterOperationClass(OpClass: TPCOperationClass): Boolean;
  
negative.code:     FreeAndNil(FOperationsLock);
    end;
    inherited;
  end;
  
  class function TPCOperationsComp.EqualsOperationBlock(const OperationBlock1,
  