procedure aaw_openline ! Open blank line
LOCAL old_position, new_position;	! edt equiv. of Gold Keypad 0
! 18-jul-1987: fix bug that moved cursor to upper window if command
! was executed on top line of lower window on screen; use move_vertical
! rather than cursor_vertical

move_horizontal(-current_offset);
split_line;
if (current_row = 1) and (current_column = 1)
  then
    old_position := mark(none);
    scroll (current_window, -1);
    new_position := mark(none);
    if new_position <> old_position
      then
        move_vertical (1);
    endif;
endif;
move_vertical (-1);
endprocedure