anchor.diff:    var
       depth : integer = -1;
       sigil : char = ' ';
  -    i	  : integer;
  +    i     : integer;
       count : cardinal =  0;
  -    rs	  : TRecordSet;
  +    rs    : TRecordSet;
   begin
     clrscr;
     bg('b'); fg('W');clrscr;
  
positive.code:   begin
      if kbd.KeyPressed then
        begin
  	// TODO: separate map for extended keys.
  	if kbd.ReadKey(ch) = #0 then kbd.ReadKey(ch);
  	_keymap[ch]();
        end;
    end;
  
  
negative.code: 
  procedure TView.SetX(value : cardinal);
    begin
      _x := value;
    end;
  
  procedure TView.SetY(value : cardinal);
    begin
      _y := value;
    end;
  
  procedure TView.SetW(value : cardinal);
    begin
      _w := value;
    end;
  
  procedure TView.SetH(value : cardinal);
    begin
      _h := value;
    end;
  
  procedure TView.Redraw;
  