anchor.diff:      if self.position + 1 < self.buf.length then
         begin
   	inc(self.position);
  -	moveInput;
  +	CursorMoved;
         end;
  -    grabLine;
     end;
   
   procedure TEditor.PrevPage;
  
positive.code:              #79 : ToEnd;
               #73 : PrevPage;
               #81 : NextPage;
               ^M  : Newline;
               else led.handlestripped( ch );
             end;
        else led.handle( ch );
  
negative.code:     buf[position] := led.value
    end;
  
  procedure TEditor.CursorMoved;
    begin
      updateCamera;
      self.led.work := self.buf[self.position]
    end;
  
  