anchor.diff:      buf[position] := led.value
     end;
   
  -procedure TEditor.moveInput;
  +procedure TEditor.CursorMoved;
     begin
       updateCamera;
  +    self.led.work := self.buf[self.position]
     end;
    
  
positive.code:     if self.position + 1 < self.buf.length then
        begin
  	inc(self.position);
  	moveInput;
        end;
      grabLine;
    end;
  
  procedure TEditor.PrevPage;
  
negative.code:     for i := kvm.maxY div 2 downto 1 do dec(topline);
    end;
  
  procedure TEditor.PrevLine;
    begin
      keepInput;
      if self.position > 0 then
        begin
  	dec(self.position);
  	CursorMoved;
        end;
    end;
  
  procedure TEditor.NextLine;
  