Caps Lock

 BBS: Inland Empire Archive
Date: 03-17-92 (06:02)             Number: 187
From: BILL WHITE                   Refer#: NONE
  To: MATT GLOVER                   Recvd: NO  
Subj: Caps Lock                      Conf: (2) Quik_Bas

MG>does anybody know how to manipulate the CAPS LOCK key from good old
MG>        QB4.5??

MG>ie. I would like to be able to 1. Turn on Caps lock
MG>                               2. Turn Off Caps lock
MG>                               3. Lock Caps LOCK in either postion.
MG>                               4. Get status of Caps Lock??

DECLARE SUB NumOn ()
DECLARE SUB CapsOff ()
DECLARE SUB CapsOn ()
DECLARE SUB NumOff ()

SUB CapsOff
'Turn Caps Lock off
    DEF SEG = 0
    POKE &H417, PEEK(&H417) AND &HBF
    DEF SEG
END SUB

SUB CapsOn
'Turn Caps Lock on
    DEF SEG = 0
    POKE &H417, PEEK(&H417) OR &H40
END SUB

SUB NumOff
'Turn Num Lock off
    DEF SEG = 0
    POKE &H417, PEEK(&H417) AND &HDF
    DEF SEG
END SUB

SUB NumOn
'Turn Num Lock on
    DEF SEG = 0
    POKE &H417, PEEK(&H417) OR &H20
    DEF SEG
END SUB


 * SLMR 2.1a * ?pu gnikcab yb naem uoy tahw siht sI


--- VP [DOS] V4.09e
 * Origin: Miami Amateur Computer Club BBS  HST/V32b/V42b (1:135/110)