'===========================================================================
' 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