'===========================================================================
' Subject: DISABLE KEYBOARD                   Date: Unknown (00:00)        
'  Author: Unknown Author(s)                  Code: QB, QBasic, PDS        
'  Origin: 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