home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / ds110.zip / INSTALL.CMD < prev   
OS/2 REXX Batch file  |  1994-08-12  |  2KB  |  54 lines
  1. /* Deck Swabber v1.10 installation file */
  2. call RxFuncAdd 'SysCls','RexxUtil','SysCls'
  3.  
  4. call SysCls    /* Clear the screen */
  5.  
  6. say "Deck Swabber v1.10 Install"
  7. say "Copyright (C) 1994 Davy Jones Software Locker"
  8. say ""
  9. say "This process will install Deck Swabber v1.10 onto your system."
  10. say ""
  11. say "Davy Jones Software Locker - Making it all Make Copies!!"
  12. say ""
  13. say "Enter the target drive and directory"
  14. say "(Default=C:\DeckSwab)"
  15. pull Target
  16. if Target="" then Target="C:\DECKSWAB"
  17.  
  18. Current=DIRECTORY()
  19.  
  20. /* Check to see if directory already exists */
  21. if \(Target=DIRECTORY(Target)) then
  22. do
  23.  
  24.     call RxFuncAdd 'SysMkDir','RexxUtil','SysMkDir'
  25.  
  26.     RetCode=SysMkDir(Target)
  27.     if(RetCode) then
  28.     do
  29.         say "Cannot create directory"Target
  30.         exit
  31.     end
  32.     call DIRECTORY(Target)
  33. end
  34.  
  35. /* Now copy files over */
  36. "copy "Current"\DeckSwab.exe" Target
  37. "copy "Current"\DeckSwab.hlp" Target
  38. "copy "Current"\DeckSwab.doc" Target
  39. "copy "Current"\Install.cmd" Target
  40.  
  41. /* Copying complete.  Ask for installation of desktop object */
  42. say "Would you like to install a program object (Y/N)?"
  43. Response=CHARIN()
  44. if(Response='y' | Response='Y') then
  45. do
  46.     /* Install deck swabber object */
  47.     call RxFuncAdd 'SysCreateObject','RexxUtil','SysCreateObject'
  48.  
  49.     Crap=SysCreateObject("WPProgram","Deck Swabber", "<WP_DESKTOP>",,
  50.           "EXENAME="Target"\DeckSwab.exe", "replace")
  51. end
  52. e DeckSwab.doc
  53. say "Shivver me timbers!  Deck Swabber Installation complete!"
  54. exit