! These procedures support a continuous-scroll feature.  lsi_repeat_scroll
! scrolls the buffer (that is, the cursor moves). lsi_scroll holds the cursor
! steady and moves the window one line.
!
PROCEDURE lsi_scroll
LOCAL now;
now := MARK (NONE);
IF CURRENT_DIRECTION = FORWARD
THEN
   SCROLL (CURRENT_WINDOW, +1);
ELSE
   SCROLL (CURRENT_WINDOW, -1);
ENDIF;
POSITION (now);
ENDPROCEDURE

PROCEDURE lsi_repeat_scroll
IF CURRENT_DIRECTION = FORWARD
THEN
   SCROLL (CURRENT_WINDOW);
ELSE
   SCROLL (CURRENT_WINDOW);
ENDIF;
ENDPROCEDURE