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