home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 30 fixes_v / 30-fixes_v.zip / perf3m.zip / INSMAINT.CMD < prev    next >
OS/2 REXX Batch file  |  1995-03-22  |  992b  |  50 lines
  1. /* SETUP Object - Bitmaps */
  2. /* Copyright (c) 1994  CLEAR & SIMPLE, INC.  */
  3. ECHO OFF
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'sysLoadFuncs'
  5. call SysLoadFuncs
  6. 'mode co80,25'
  7. 'cls'
  8. parse source w1 w2 floc
  9. fdr=filespec('drive',floc)
  10. fpath=filespec('path', floc)
  11. loc=fdr||fpath
  12.  
  13. call SysFileTree loc'*.??@', flist, 'FO'
  14.  
  15.  
  16. say 'Enter the drive and path location where '
  17. say 'Performance PLUS V3 is currently installed.'
  18. say ' '
  19. say;say'  e.g.  d:\PERF_30'
  20. pull toloc
  21.  
  22.  
  23. /*if right(toloc,1)\='\' then toloc=toloc'\'*/
  24.  
  25. say toloc
  26.  
  27. rc=1000
  28. do until rc=0 | rc=5
  29. rc=sysMKDir(toloc)
  30. if rc =0 | rc = 5 then nop
  31.         else do
  32.         say "Install can't find directory path, please repeat."
  33.         say rc
  34.         pull toloc
  35.         end
  36. end
  37.  
  38. do i=1 to flist.0
  39. say 'Unpacking 'flist.i  'To ' toloc
  40.   '@unpack' flist.i toloc '>nul'
  41. end /* do */
  42.  
  43.  
  44. say;say 'Performance PLUS V3 - Maintenance Installation ended.'
  45. say;say 'Press Enter to end.'
  46. pull
  47. exit
  48.  
  49.  
  50.