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:     procedure DeleteNextChar;
    private { misc internal methods }
      procedure updateCamera;
      procedure grabLine;
      procedure keepInput;
      procedure moveInput;
      procedure parse( var txt : text );
    end;
  
  
negative.code:              #79 : ToEnd;
               #73 : PrevPage;
               #81 : NextPage;
               else led.handlestripped( ch );
             end;
        else led.handle( ch );
  