anchor.diff:      for i := kvm.maxY div 2 downto 1 do dec(topline);
     end;
   
  -procedure TEditor.grabLine;
  -    begin
  -      self.led.work := self.buf[self.position]
  -    end;
  -
   procedure TEditor.PrevLine;
     begin
       keepInput;
       if self.position > 0 then
         begin
   	dec(self.position);
  -	moveInput;
  +	CursorMoved;
         end;
  -    grabLine;
     end;
   
   procedure TEditor.NextLine;
  
positive.code:              #79 : ToEnd;
               #73 : PrevPage;
               #81 : NextPage;
               ^M  : Newline;
               else led.handlestripped( ch );
             end;
        else led.handle( ch );
  
negative.code:     if self.position + 1 < self.buf.length then
        begin
  	inc(self.position);
  	CursorMoved;
        end;
    end;
  
  procedure TEditor.PrevPage;
  