anchor.diff:  begin
     Result := Format('Block:%d Timestamp:%d Reward:%d Fee:%d Target:%d PoW:%s Payload:%s Nonce:%d OperationsHash:%s SBH:%s',[operationBlock.block,
       operationblock.timestamp,operationblock.reward,operationblock.fee, OperationBlock.compact_target, TCrypto.ToHexaString(operationblock.proof_of_work),
  -    OperationBlock.block_payload,OperationBlock.nonce,TCrypto.ToHexaString(OperationBlock.operations_hash),
  +    OperationBlock.block_payload.ToPrintable,OperationBlock.nonce,TCrypto.ToHexaString(OperationBlock.operations_hash),
       TCrypto.ToHexaString(OperationBlock.initial_safe_box_hash)]);
   end;
   
  
positive.code:   block :=0;
    account :=0;
    n_operation :=0;
    SetLength(md160Hash,0);
    if length(operationHash)<>32 then exit;
    ms := TMemoryStream.Create;
    try
  
negative.code:       FOperationBlock.block := 0;
        FOperationBlock.reward := TPascalCoinProtocol.GetRewardForNewLine(0);
        FOperationBlock.compact_target := CT_MinCompactTarget_v1;
        FOperationBlock.initial_safe_box_hash := TCrypto.DoSha256(TEncoding.ASCII.GetBytes(CT_Genesis_Magic_String_For_Old_Block_Hash));
        FOperationBlock.protocol_version := CT_PROTOCOL_1;
      end;
      FOperationBlock.proof_of_work:=Nil;
      FOperationBlock.protocol_available := CT_BlockChain_Protocol_Available;
      n := 0;
      FOperationBlock.fee := 0;
  