!                                
!
! ***** FRED$SCROLL *****   Routine to scroll until a key is hit.
!
PROCEDURE fred$scroll
   LOCAL dummy_key;

   MESSAGE ("Press any key to stop scrolling.");
   SCROLL (CURRENT_WINDOW);
   dummy_key := READ_KEY;
   MESSAGE (" ");
ENDPROCEDURE;