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 >
Encoding:
Text File  |  1996-03-11  |  886 b   |  19 lines
  1. /* Install the I-128 OS/2 software */
  2. arg source target
  3. if length(source) == 0 | length(target) == 0 then
  4.         say "Usage: INSTOBJ [source drive]: [target drive]:"
  5. else
  6.         if substr(source,2,1) \= ':' | substr(target,2,1) \= ':' then do
  7.                 say "Usage: INSTOBJ [source drive]: [target drive]:"
  8.                 say "Each drive letter must be followed by a colon."
  9.                 end
  10.         else do
  11.                 cmdstr = source'\IREFRSH2.*  ' target'\OS2\APPS'
  12.                 '@copy 'cmdstr
  13.                 setupstr ="EXENAME="||target||"\OS2\APPS\IREFRSH2.EXE"
  14.                 call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  15.                 if SysCreateObject( "WPProgram", "Number Nine I128", "<WP_CONFIG>",,
  16.                        setupstr ) then
  17.                 say 'Number Nine I-128 object installed'
  18.                 end
  19.