home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / newtc202.zip / Setup.cmd < prev   
OS/2 REXX Batch file  |  1997-11-22  |  955b  |  35 lines
  1. /*
  2.   This is a Setup program for NewTech/2 Voice Modem Manager.
  3. */
  4.  
  5. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  6. call SysLoadFuncs
  7.  
  8. say " "
  9. say "Would you like to create a NewTech WPS object on the Desktop? (y/n)"
  10. parse upper pull object
  11. if object = "Y" then do
  12.     say "Create NewTech/2 object. Please wait..."
  13.     CALL SysCreateObject "WPProgram", ,
  14.                          "NewTech/2 Voice Manager", ,
  15.                          "<WP_DESKTOP>", ,
  16.                          "EXENAME=" || DIRECTORY() || "\NewTech.exe;STARTUPDIR=" || DIRECTORY(), ,
  17.                          "replace"
  18.     say "Installation Complete successfuly."
  19.     say "Woul you like to start NewTech/2 now? (y/n)"
  20.     parse upper pull object
  21.     if object = "Y" then do 
  22.       NewTech.exe
  23.     end
  24.     else do
  25.       say "Enjoy!"
  26.     end
  27. end 
  28. else do
  29.     say " "
  30.     say "Installation fail..."
  31.     say " "
  32. end  /* else */
  33.  
  34. call SysDropFuncs
  35.