procedure lsi_goto_main
!
! Return to the main LSE buffer.
!
MAP (CURRENT_WINDOW, LSE$MAIN_BUFFER);
LSE$SET_STATUS_LINE(CURRENT_WINDOW);
endprocedure