home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / olbox100.zip / PKEY.CMD < prev    next >
OS/2 REXX Batch file  |  1999-06-01  |  481b  |  19 lines
  1. /* pkey.cmd */
  2.  Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'; 
  3.  Call SysLoadFuncs; 
  4.  
  5. keyF1= key=d2c(0)||d2c(59);
  6.  
  7. say 'Press a key!'
  8. key=SysGetKey('NOECHO');
  9. if key=d2c(0) | key=d2c(224) then key=key||SysGetKey('NOECHO');
  10.  
  11. if length(key)=1 then say c2d(key)' key=d2c('c2d(key)')'
  12.  else say c2d( left(key,1))' 'c2d( right(key,1))' key=d2c('c2d(left(key,1))')||d2c('c2d(right(key,1))')';
  13.  
  14. /* If F1 pressed. */
  15. if  keyF1=key then say 'Yes, F1!'
  16.  
  17. exit;
  18.  
  19.