anchor.diff:    done:    boolean;
     tempS: TString;
   begin
  +  //write(inNode.id); write(' : '); write(inS.char); writeln(' : '+inNode.name);
     err.newNode(inNode.name); // + '"' + inS.copy(0, 10) + '"');
  +
  +  result := 0;
  +
  +  {$DEFINE MEMOPAD}
  +  {$ifdef MEMOPAD}
  +  case checkPad(inS.char, inNode) of
  +    unknown: ;
  +    success: ;
  +    failure: exit;
  +    inprogress:
  +      begin
  +        raise EDraakNoCompile.Create('Infinate recursion on '+inNode.name);
  +      end;
  +  end;
  +
  +  addmemo(inS.char, inNode, inprogress);
  +  {$endif}
  +
     partial := false;
     child := new(PParseNode);
     Node := nil;
  
positive.code:   setLength(lineNums, 0);
  end;
  
  procedure TParser.parse(inF: TFile; inG: TGmr);
  var s: TString;
    i: word; Node: PParseNode;
  
negative.code:   if i = 0 then err.err('Did not Parse. Error around "'+s.copy(s.max-10, 20)+'" Line '+intToStr(s.lineFind(s.max)));
    if i <> 0 then rootNode := Node else Node := nil;
    s.Free;
    writeln(length(memopad));
  end;
  
  function TParser.parseDecent(inS: TString; inG: TGmr; inNode: PGmrNode; out child: PParseNode): word;
  