anchor.diff:  uses classes, kvm, udboutln, xpc, kbd, cli, num, sqldb;
   
   type
  -  TView	= class(TComponent)
  +  TView = class(TComponent)
       protected
         _x, _y, _w, _h : cardinal;
         _bg, _fg : byte;
  
positive.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;
  
negative.code:   var
      depth : integer = -1;
      sigil : char = ' ';
      i     : integer;
      count : cardinal =  0;
      rs    : TRecordSet;
  begin
    clrscr;
    bg('b'); fg('W');clrscr;
  