anchor.diff:  
     procedure editor.arrowup;
     begin
  +    li.strnode(self.position.value).str := led.value;
       if self.position.move_prev then
       begin
         if self.position.index - self.topline.index < 5 then
  
positive.code:            self.topline.move_next
            //  scrollup1(1,80,y1,y2,nil);
            //  scrollup1(1,80,14,25,nil);
        end
    end;
  
  
negative.code:                 '|%' );
      end;
  
      procedure show_nums;
      begin
        cwritexy( 1, ypos, '|Y|!m' );
        write( flushrt( n2s( cur.index ), 3, ' ' ));
        cwrite( '|!k|w' );
      end;
  
      procedure show_edit( line : string );
      begin
        { This simply positions the input widget. }
        with self.led do begin
  	x := crt.wherex;
  	y := crt.wherey;
  	tcol := $0E; // bright yellow
  	dlen := crt.windmaxx - crt.wherex;
        end;
        // debug: clear to eol w/blue bg to show where control should be
        // cwrite( '|!b|%' );
        led.show;
      end;
  
      procedure show_line( line : string );
  