anchor.diff:    end;
   
   procedure TTokEd.OnCmdAccept( s : string );
  -  begin
  -    buf.addline(s); cmd.reset; cmd.work :=''; _dirty := true;
  +  begin buf.addline(s); cmd.reset; cmd.work :=''; smudge;
     end;
     
   procedure TTokEd.onspace;
  -  begin
  -    oncmdaccept(cmd.work);
  +  begin oncmdaccept(cmd.work)
     end;
   
   
positive.code:       else write(' ');
        write(word)
      end; wrap.debugdraw;
      _dirty := false;
    end;
    
  begin
  
negative.code:     if length(edges) > 0 then begin
        for i := 0 to high(edges) do buf.addline(edges[i].obj.s)
      end;
    end;
  
  procedure TTokEd.draw;
    var word : string; y : byte = 0;
        tok : ug2d.IBounds2D;
    begin
      bg('k'); fg('w'); gotoxy(0,y); clrscr; wrap.reset;
      tok := ug2d.bounds2d(0, 0, 1, 1);
      for word in buf.tostrings do begin
        tok.w := length(word); wrap.place(tok);
        if tok.y > y then begin y := tok.y; gotoxy(0,y) end
  