anchor.diff:        rs.Next;
       end;
     bg('k');
  -  while count < kvm.yMax do
  -    begin
  -      gotoxy(0,count); clreol; inc(count);
  -    end;
  +  while count < kvm.yMax do begin
  +    gotoxy(0,count); clreol; inc(count)
  +  end
   end;
  + 
   
   procedure TStepper.DoStep;
  
positive.code:     term := kvm.work;
      kvm.work := kvm.TSubTerm.Create(term, _x, _y, _w, _h);
      bg(_bg); fg(_fg);
      try
        self.Render(term);
      finally
        kvm.work := term;
      end
    end;
  
  procedure TView.Render(term : ITerm);
    begin
      ClrScr;
    end;
  
  procedure TView.Resize(new_w, new_h : cardinal);
    begin
      _w := new_w;
      _h := new_h;
    end;
  
  
negative.code:       property h : cardinal read _h write SetH;
        constructor Create( aOwner : TComponent ); override;
      end;
  
    // A class with its own video ram buffer:
    TTermView = class (TView, ITerm)
      protected
  