'===========================================================================
' Subject: DISABLE KEYBOARD                  Date: Unknown (00:00)        
' Author:  Unknown Author(s)                 Code: QB, QBasic, PDS        
' Keys:    DISABLE,KEYBOARD                Packet: KEYBOARD.ABC
'===========================================================================
DECLARE SUB DisableKeyboard ()
DECLARE SUB EnableKeyboard ()

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