!
! Procedures to expand and shrink windows (not yet functional)
!
PROCEDURE lsi_shrink_window
IF CURRENT_WINDOW = LSE$TOP_WINDOW
THEN
   ADJUST_WINDOW (LSE$BOTTOM_WINDOW, -1, 0);
   ADJUST_WINDOW (LSE$TOP_WINDOW, 0, -1)
ELSE
   IF CURRENT_WINDOW = LSE$BOTTOM_WINDOW
   THEN
      ADJUST_WINDOW (LSE$TOP_WINDOW, 0, 1);
      ADJUST_WINDOW (LSE$BOTTOM_WINDOW, 1, 0)
   ENDIF
ENDIF
ENDPROCEDURE

PROCEDURE lsi_grow_window
IF CURRENT_WINDOW = LSE$TOP_WINDOW
THEN
   ADJUST_WINDOW (LSE$BOTTOM_WINDOW, 1, 0);
   ADJUST_WINDOW (LSE$TOP_WINDOW, 0, 1)
ELSE
   IF CURRENT_WINDOW = LSE$BOTTOM_WINDOW
   THEN
      ADJUST_WINDOW (LSE$TOP_WINDOW, 0, -1);
      ADJUST_WINDOW (LSE$BOTTOM_WINDOW, -1, 0)
   ENDIF
ENDIF
ENDPROCEDURE;