Checks whether there is a character waiting to be read from the keyboard. 
    
 
  
 
     
    Syntax:
 
       
      call "CBL_GET_KBD_STATUS" using     key-status
                          returning status-code
 
    Parameters:
 
       
       
      
 
           
           
           
           
             
              |  | Using call prototype (see 
                Key) | Picture | 
 
          
 
           
             
              | key-status | cblt-x1-compx | pic x comp-x. | 
 
             
              | status-code | See 
                Library Routines - Key | 
 
          
 
        
 
 
    On Exit:
 
       
       
         
          -  
            key-status 
          
- The status of the keyboard: 
            
 
                 
                 
                 
                   
                    | 0 | No character available |   
                    | 1 | Character available |  
 
Comments:
Unpredictable results can occur if the user attempts to use both X"AF" and CBL_ keyboard routines. This is because X"AF" invokes ADIS to perform the required keyboard function and ADIS uses the CBL_ keyboard routines.