'===========================================================================
' Subject: DISABLE/ENABLE KEYBOARD           Date: Unknown Date           
' Author:  Unknown Author(s)                 Code: QB, QBasic, PDS        
' Origin:  QBFAQ                           Packet: KEYBOARD.ABC
'===========================================================================
SUB DisableKeyboard ()
   
   'Purpose : To disable the keyboard
   'Input   : none
   'Return  : none

   OUT &H21, (INP(&H21) OR 2)
END SUB

SUB EnableKeyboard ()

   'Purpose : To enable keyboard use after being disabled by DisableKeyboard
   'Input   : none
   'Output  : none

   OUT &H21, (INP(&H21) AND 253)
END SUB