home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
FINDVER.ZIP
/
FindVer.cmd
next >
Wrap
OS/2 REXX Batch file
|
1992-07-07
|
363b
|
13 lines
/* REXX */
kernel = "\OS2KRNL"
if (stream(kernel, "command", "open read") == "READY:") then do
string = charin(kernel, , chars(kernel))
start = pos("Internal revision", string)
say substr(string, start, pos(x2c("00"), string, start) - start)
result = stream(kernel, "command", "close")
end
else
say "Can't find/open" kernel
exit