Re: onkey trapping

 BBS: Inland Empire Archive
Date: 06-30-92 (15:59)             Number: 1792
From: ERIC FORD                    Refer#: NONE
  To: BILL CAMPBELL                 Recvd: NO  
Subj: Re: onkey trapping             Conf: (2) Quik_Bas

 On 06-24-92 BILL CAMPBELL wrote to ALL...

 BC> Does anyone out there know how to turn off the numlock key from within
 BC> code?
 BC> Right now I am just shelling a command to run a 46 byte .COM program
 BC> that
 BC> kills the numlock but I'd prefer to access this from within.

Yea, There's a file out BASPEEK.xxx that tells you some of those.
Here it is.

    TOGGLE NUM LOCK
     DEG SEG = &H40 : POKE &H17, PEEK(&H17) OR 32   'To turn on
     DEG SEG = &H40 : POKE &H17, PEEK(&H17) AND 223 'To turn off

And just in case you're interested:

    TOGGLE CAPS LOCK
     DEG SEG = &H40 : POKE &H17, PEEK(&H17) OR 64   'To turn on
     DEG SEG = &H40 : POKE &H17, PEEK(&H17) AND 171 'To turn off

   KEYBOARD STUFF
         To disable entire keyboard:  Def Seg=64: Out 97,204
         To re-enable keyboard:       Def Seg=64: Out 97,76

Well, that should help.
Eric FOrd

... OFFLINE 1.36 * Cosmic Strings: Nature's Other Divide by Zero Error.
.................................................


--- WM v2.02/91-0128
 * Origin: Electronic Dreams BBS - Jackson, MS - 601/372-6998 (1:3632/1)