home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / mkey.zip / MKEY.CMD next >
OS/2 REXX Batch file  |  2001-02-01  |  366b  |  29 lines
  1. /* MKey */
  2.  
  3. /* (c) AD 1996, 2001 */
  4.  
  5. CALL RxFuncAdd "MKey","MKey","MKey"
  6.  
  7. '@CLS'
  8. SAY
  9. SAY
  10. SAY "You have about 5 seconds to start typing your name."
  11. SAY
  12. SAY
  13.  
  14. name="unknown"
  15. timelimit=5000
  16. timewait=25
  17.  
  18. CALL CharOut "","What's your name? "
  19.  
  20. IF MKey(timelimit,timewait)=1 THEN PARSE PULL name
  21.  
  22. SAY
  23. SAY
  24. SAY "Your name is" name||"."
  25. SAY
  26.  
  27. EXIT
  28.  
  29.