procedure eve_home
!Move cursor to upper left corner of current window
move_horizontal(-current_offset);
move_vertical(-(get_info(current_window,"current_row") -
  get_info(current_window, "visible_top")));
endprocedure;
procedure eve_end_of_window
! Move cursor to lower left corner of current window
move_horizontal(-current_offset);
move_vertical(get_info(current_window, "visible_bottom") -
  get_info(current_window,"current_row") );
endprocedure;