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

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