home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / pibterm / pibt41s1.arc / HANDLESC.MOD < prev    next >
Text File  |  1987-11-10  |  1KB  |  32 lines
  1. (*----------------------------------------------------------------------*)
  2. (*     Handle_Scroll_Lock --- Handle scroll lock in terminal mode       *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Handle_Scroll_Lock;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Handle_Scroll_Lock                                   *)
  10. (*                                                                      *)
  11. (*     Purpose:    Handle scroll lock in terminal mode                  *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Handle_Scroll_Lock                                            *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. BEGIN (* Handle_Scroll_Lock *)
  20.                                    (* Hold everything while scroll lock on *)
  21.  
  22.    IF Do_Status_Line THEN
  23.       Write_To_Status_Line( 'Scroll Lock ON', 65 );
  24.  
  25.    WHILE Scroll_Lock_On DO
  26.       GiveAwayTime( 1 );
  27.  
  28.    IF Do_Status_Line THEN
  29.       Write_To_Status_Line( DUPL( ' ' , 14 ), 65 );
  30.  
  31. END   (* Handle_Scroll_Lock *);
  32.