anchor.diff:      function GetPos: Int64;
     end;
   
  +  { TStreamWriteAdapter }
  +
     TStreamWriteAdapter = object (TStreamAdapter)
     public
       constructor Create(dest: TStream);
  
positive.code: interface
  
  uses
    Classes, SysUtils, FileUtil, editor_types;
  
  type
  
    { TStreamWriteAdapter }
  
    { TStreamAdapter }
  
  
negative.code:     procedure WriteByte(V: uint8; rep:integer = 1); inline;
      procedure WriteWord(V: Word);inline;
      procedure WriteDword(V: DWord);inline;
      procedure WriteBuffer(const Buffer; Count: Longint);
    end;
  
  
  