NumLock setting

[Lubos Svoboda]

I work under W98SE and I use next segment of code for turn on NumLock.


'************************************
DEF SEG = 0
M = PEEK( &H417 ) 'get keyboard toggles

BIT SET M%, 5 'turn on num lock

POKE &H417, M% 'set keyboard toggles
DEF SEG
' ************************************


It works pretty good if this segment is a part of a large program.
After compiling into "LARGEPRO.EXE" NumLock is on and stay on
when program finished. :-)

Stand alone segment works good in IDE. :-)

After compiling stand alone segment
into "NUMLOCK.EXE" it does not work. :-(

Why ?

Thanks for help.
Lubos

------------------

[Lance Edmonds]

The code is almost precisely what I use too, but there are at least a couple of proviso's:

1. some keyboards only toggle the lights if an actual keypress is detected, not as a result of the port state being changed

2. this method only works under non-NT versions of Windows.


------------------
Lance
PowerBASIC Support
mailto:[email protected][email protected]</A>

[Lubos Svoboda]

Thanks Lance !
I add a INKEY$ and now it is OK.


'*********
DEF SEG = 0
M = PEEK( &H417 ) 'get keyboard toggles

BIT SET M%, 5 'turn on num lock

POKE &H417, M% 'set keyboard toggles
DEF SEG
Kl$ = INKEY$
system
'********************
Lubos

------------------