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