home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / quicksub / numlock.sub < prev    next >
Encoding:
Text File  |  1986-06-12  |  640 b   |  32 lines
  1. ' NUMLOCK.SUB -- MSDOS QuickBASIC utility subroutines for NUMLOCK
  2.  
  3.     ' Test NUMLOCK state
  4.     '   returns NUMLOCK = 1 if ON, NUMLOCK = 0 if OFF
  5. NUMLOCK.TEST:
  6.  
  7.     DEF SEG = &H40
  8.     IF PEEK(&H17)                            _
  9.        AND 32                            _
  10.            THEN NUMLOCK = 1                        _
  11.            ELSE NUMLOCK = 0
  12.  
  13. RETURN
  14.  
  15.     ' Set NUMLOCK >>> ON
  16. NUMLOCK.ON:
  17.  
  18.     DEF SEG = &H40
  19.     POKE &H17 , PEEK(&H17) OR 32
  20.  
  21. RETURN
  22.  
  23.     ' Set NUMLOCK >>> OFF
  24. NUMLOCK.OFF:
  25.  
  26.     DEF SEG = &H40
  27.     POKE &H17 , PEEK(&H17) AND 223
  28.  
  29. RETURN
  30.  
  31. '>>>>> Physical EOF for NUMLOCK.ASC
  32.