home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S4.ARC / SCROLLOC.MOD < prev    next >
Encoding:
Text File  |  1987-11-10  |  1.5 KB  |  35 lines
  1. (*----------------------------------------------------------------------*)
  2. (*         Scroll_Lock_On --- Check if scroll lock key depressed        *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. FUNCTION Scroll_Lock_On : BOOLEAN;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Function:   Scroll_Lock_On                                       *)
  10. (*                                                                      *)
  11. (*     Purpose:    Check if scroll lock key depressed                   *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Lock_On := Scroll_Lock_On : BOOLEAN;                          *)
  16. (*                                                                      *)
  17. (*           Lock_On --- TRUE if scroll lock turned on                  *)
  18. (*                                                                      *)
  19. (*----------------------------------------------------------------------*)
  20.  
  21. VAR
  22.    Regs : Registers;
  23.    
  24. BEGIN (* Scroll_Lock_On *)
  25.  
  26.    Regs.Ah := 2;
  27.    INTR( $16 , Regs );
  28.    
  29.    IF Do_Status_Time THEN
  30.       Update_Status_Line;
  31.  
  32.    Scroll_Lock_On := ( ( Regs.AL AND $10 ) <> 0 );
  33.  
  34. END   (* Scroll_Lock_On *);
  35.