home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbfaqr01 / disable / diskeyb.bas < prev    next >
Encoding:
BASIC Source File  |  1992-08-09  |  340 b   |  18 lines
  1. SUB DisableKeyboard ()
  2.    
  3.    'Purpose : To disable the keyboard
  4.    'Input   : none
  5.    'Return  : none
  6.  
  7.    OUT &H21, (INP(&H21) OR 2)
  8. END SUB
  9.  
  10. SUB EnableKeyboard ()
  11.  
  12.    'Purpose : To enable keyboard use after being disabled by DisableKeyboard
  13.    'Input   : none
  14.    'Output  : none
  15.  
  16.    OUT &H21, (INP(&H21) AND 253)
  17. END SUB
  18.