home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / CTELO21 / install.cmd < prev    next >
OS/2 REXX Batch file  |  1997-05-10  |  2KB  |  47 lines
  1. /***************************************************************************/
  2. /*** CapiTel Installation Rexx-Script                                    ***/
  3. /*** (c) 1996-97 by Carsten Wimmer and Werner Fehn                       ***/
  4. /*** All Rights Reserved.                                                ***/
  5. /***************************************************************************/
  6.  
  7. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  8. Call SysLoadFuncs
  9. Call SysCls
  10.  
  11. say ""
  12. say " ============================================================================="
  13. say ""
  14. say "                 ////// /////// ////// //  /////// ////// //"
  15. say "                //     //   // //  // //     //   //     //"
  16. say "               //     /////// ////// //     //   ////   //"
  17. say "              //     //   // //     //     //   //     //"
  18. say "             ////// //   // //     //     //   ////// //////"
  19. say ""
  20. say "            ISDN CAPI 1.1 based Answering Machine for OS/2 PM"
  21. say ""
  22. say "                                Installation"
  23. say ""
  24. say " ============================================================================="
  25. say ""
  26. say ""
  27.  
  28. say "This Installation-Script will create a CapiTel object on your desktop."
  29. call charout, "Do you want to proceed? (Y/N) "
  30.  
  31. pull answ .
  32. say ""
  33.  
  34. if answ <> "Y" & answ <> "y" then do
  35. say "Aborting Installation..."
  36. say ""
  37. exit
  38. end
  39.  
  40. ctEXE = "\CAPITEL.EXE"
  41. myDir = directory()
  42. setupString = "EXENAME="||myDir||ctEXE||";STARTUPDIR="||myDir";REPLACE"
  43. call SysCreateObject "WPProgram", "CapiTel", "<WP_DESKTOP>", setupString
  44. say "Object has been created..."
  45. exit
  46.  
  47.