home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 31
/
CDASC_31_1996_juillet_aout.iso
/
vrac_os2
/
nfnf11.zip
/
READHELP.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-06-06
|
1KB
|
47 lines
/* readhelp.cmd *
* Execute this file to read the NFNF help file - nfnfv11.hlp *
* nfnfv11.hlp must be in the same directory as this file. */
infchar = '01'x
hlpchar = '10'x
call RXFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
call SysLoadFuncs
filename = strip(nfnfv11.hlp)
fullname = stream(filename, 'c', 'query exists')
if fullname = '' then
do
say 'File : ' || filename || ' could not be located!'
SAY 'READHLP.CMD must be in the same directory as NFNFV11.HLP to work correctly!'
SAY ''
SAY 'Press any key .....'
charIn()
return
end
result = stream(fullname, 'c', 'open write')
if left(result, 5) <> 'READY' then
do
say 'Error (' || result || ') opening file : ' || fullname || '!'
SAY ''
SAY 'Press any key .....'
charIn()
return
end
left = charout(fullname, infchar, 4)
clsd = stream(fullname, 'c', close)
'VIEW.EXE ' || fullname
do until left(result, 3) <> 'NOT'
call SysSleep 1
result = stream(fullname, 'c', 'open write')
end
fpos = charout(fullname, hlpchar, 4)
clsd = stream(fullname, 'c', 'close')
return