anchor.diff:    Node: PParseNode;
     partial: boolean;
     matched: boolean;
  +  done:    boolean;
     tempS: TString;
   begin
     err.newNode(inNode.name + '"' + inS.copy(0, 10) + '"');
  
positive.code:     property st: string read buff;
      property max: Cardinal read getMax;
      property char: Cardinal read start;
      constructor create(inF: TFile; startChar: cardinal; inB: string; inMax: PCardinal);
      destructor destroy; override;
      function getNew(startChar: cardinal): TString;
      function len: cardinal;
  
negative.code:   result := FMax^;
  end;
  
  constructor TString.create(inF: TFile; startChar: cardinal; inB: string; inMax: PCardinal; settings: TStringHash = nil);
  var a: string; i, o, buffLen: cardinal;
  begin
    f := inF; start := startChar;
  