home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / db22re.zip / GETKEY.CMD < prev    next >
OS/2 REXX Batch file  |  1993-03-09  |  1KB  |  25 lines
  1. /*
  2.  ┌──────────────────────────────────────────────────────────────────┐
  3.  │  Name       : getkey.cmd                                         │
  4.  │  Purpose    : experiment with REXXUTILS functions                │
  5.  │  Platform   : DB2/2                                              │
  6.  │  Author     : Jeff Fisher                                        │
  7.  │               IBM Toronto Development Lab                        │
  8.  │  Disclaimer : This "sample" code is for demonstrations only, no  │
  9.  │               warrenties are made or implied as to correct       │
  10.  │               function. You should carefully test this code in   │
  11.  │               your own environment before using it.              │
  12.  │                                                                  │
  13.  └──────────────────────────────────────────────────────────────────┘
  14. */
  15.  
  16. rc = RxFuncAdd('SysLoadFuncs','RexxUtil','SysLoadFuncs')
  17. call SysLoadFuncs
  18.  
  19. say 'enter a letter'
  20. key = SysGetKey(noecho)
  21.  
  22. say 'key pressed was' key
  23.  
  24. exit
  25.