home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / chkey.cmd < prev    next >
OS/2 REXX Batch file  |  1993-12-13  |  424b  |  19 lines
  1. /*   CHKEY         */
  2.  
  3. /*----------------------------------------------------------
  4. RESULT = CHKEY(timeout_secs)
  5. IF RESULT = 0 THEN SIGNAL TIMEOUT
  6.               ELSE INPUT = LINEIN()
  7. -----------------------------------------------------------*/
  8. ARG sec
  9. IF sec = '' THEN sec = 10
  10.  
  11. START_TIME = time('e')
  12.  
  13. DO UNTIL LINES() = 1 | TIME('E') > sec
  14.    END
  15.  
  16. IF LINES() = 1 THEN EXIT 1
  17.                ELSE EXIT 0
  18.  
  19.