anchor.diff:   
   {  cursor movement interface }
  -procedure TEditor.home;
  +procedure TEditor.ToTop;
     begin
       if self.buf.length = 0 then exit;
       position := 0;
  
positive.code:     message := filename + ' saved.';
    end;
  
  function TEditor.save_as( path : string ) : boolean;
    var oldname : string;
    begin
      oldname := self.filename;
      self.filename := path;
      result := self.save;
      if not result then self.filename := oldname
    end;
  
  
negative.code:     case ch of
        ^C : self.halt;
        ^R : begin HideCursor; mnml.launch(cmd_rnd); end;
        ^N : NextLine;
        ^P : PrevLine;
        ^M : Newline;
        ^D : DeleteNextChar;
        ^S : Save;
        ^V : NextPage;
        ^U : PrevPage;
        #0 : case kbd.readkey(ch) of
               #72 : PrevLine; // when you press the UP arrow!
               #80 : NextLine; // when you press the DOWN arrow!
               #71 : ToTop;
               #79 : ToEnd;
               #73 : PrevPage;
               #81 : NextPage;
               ^M  : Newline;
               else led.handlestripped( ch );
             end;
        else led.handle( ch );
  