home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 April (Special)
/
Chip-Special_1997-04_cd.bin
/
number9
/
128os211
/
128os211.exe
/
DISK1.EXE
/
OBJINST.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-11
|
886b
|
19 lines
/* Install the I-128 OS/2 software */
arg source target
if length(source) == 0 | length(target) == 0 then
say "Usage: INSTOBJ [source drive]: [target drive]:"
else
if substr(source,2,1) \= ':' | substr(target,2,1) \= ':' then do
say "Usage: INSTOBJ [source drive]: [target drive]:"
say "Each drive letter must be followed by a colon."
end
else do
cmdstr = source'\IREFRSH2.* ' target'\OS2\APPS'
'@copy 'cmdstr
setupstr ="EXENAME="||target||"\OS2\APPS\IREFRSH2.EXE"
call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
if SysCreateObject( "WPProgram", "Number Nine I128", "<WP_CONFIG>",,
setupstr ) then
say 'Number Nine I-128 object installed'
end