home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / bassub / keytogl.bas < prev    next >
Encoding:
BASIC Source File  |  1987-10-18  |  705 b   |  37 lines
  1.  
  2. '   Subprogram to check the state of the CAPS LOCK, NUM LOCK,
  3. '   SCROLL LOCK, and INS keys.
  4.  
  5.     SUB KeyTogl(Cap%, Num%, Scr%, Ins%) STATIC
  6.  
  7.         DEF SEG = 0                         ' Set segment to QB info
  8.  
  9.         IF (PEEK(1047) AND 64) = 64 THEN      ' Check Caps Lock
  10.             Cap% = 1
  11.         ELSE
  12.             Cap% = 0
  13.         END IF
  14.  
  15.         IF (PEEK(1047) AND 32) = 32 THEN      ' Check Num Lock
  16.             Num% = 1
  17.         ELSE
  18.             Num% = 0
  19.         END IF
  20.  
  21.         IF (PEEK(1047) AND 16) = 16 THEN      ' Check Scroll Lock
  22.             Scr% = 1
  23.         ELSE
  24.             Scr% = 0
  25.         END IF
  26.  
  27.         IF (PEEK(1047) AND 128) = 128 THEN    ' Check Insert Key
  28.             Ins% = 1
  29.         ELSE
  30.             Ins% = 0
  31.         END IF
  32.  
  33.         DEF SEG                             ' Restore segment
  34.  
  35.     END SUB
  36.  
  37.