'===========================================================================
' Subject: NUMLOCK TOGGLE IN PB               Date: 01-19-96 (13:55)       
'  Author: Rolf Genster                       Code: PB                     
'  Origin: Rolf@ice.prima.ruhr.de           Packet: KEYBOARD.ABC
'===========================================================================
$if 0

 =========================================================================

  Small code for switching NUMLOCK on and off
  written in PowerBasic 3.20
  by Rolf Genster on 01/19/96

  Bit 6 : Caps Lock
  Bit 5 : Num Lock           1 = active, 0 = off
  Bit 4 : Scroll Lock


  Code for MS-Basics would look like:
       POKE &H417, PEEK(&H417) OR 32       'NUM-Lock on
     or
       POKE &H417, PEEK(&H417) AND NOT 32  'NUM-Lock off

 =========================================================================

$endif

$lib all off
$optimize speed
$error all off
$cpu 80386

defint a-z

a$=lcase$(command$)

print

def seg = 0

 if instr(a$,"on") > 0 then
     X = PEEK(&H417)
     BIT SET X, 5                 ' turn on NUM-Lock
     POKE &H417, X
     print "Numlock set!"
  elseif instr(a$,"off") > 0 then
     X = PEEK( &H417 )
     BIT RESET X, 5               ' turn off NUM-Lock
     POKE &H417, X
     print "Numlock reset!"
  else
     X = PEEK( &H417 )
     BIT TOGGLE X, 5              ' toggle NUM-Lock
     POKE &H417, X
     print "Numlock toggled!"
 end if

def seg

print

end