anchor.diff:      draak1.onAssemble := e.Draak1Assemble;
       draak1.onLink := e.Draak1Assemble;
       draak1.onCompile := e.Draak1Compile;
  -    { $ifdef TREETRACE}
  +    {$ifdef TREETRACE}
       draak1.onNodeCreate := e.Draak1NodeCreate;
       draak1.onNodeChild := e.Draak1NodeChild;
       draak1.onNodePop := e.Draak1NodePop;
  -    { $endif}
  +    {$endif}
   //    draak1.parse(Paramstr(1));
       draak1.compile(outFile, Paramstr(1));
     except on Ex: Exception do
  
positive.code:   end;
    {$endif}
    
    {$define NOCOMPILE}
    {$ifndef NOCOMPILE}
      if draak1.success = true then
  
negative.code: procedure errors.Draak1NodeCreate(sender: TObject; s: String);
  begin
    t := t+1;
    writeln(dupestring('--+', t)+'> '+s);
    //nodes.push(Form1.TreeView1.Items.AddChild(TTreeNode(nodes.peek), s));
  end;
  
  procedure errors.Draak1NodeChild(sender: TObject; s: String);
  begin
    //t := t+1;
    writeln(dupestring('--+', t)+'  '+s);
    //TreeView1.Items.AddChild(TTreeNode(nodes.peek), s);
  end;
  
  procedure errors.Draak1NodePop(sender: TObject; s: String);
  begin
    t := t-1;
    writeln(dupestring('--+', t)+'< '+s);
    //TTreeNode(nodes.Peek).Text := TTreeNode(nodes.Peek).Text+s; nodes.Pop;
  end;
  
  