home *** CD-ROM | disk | FTP | other *** search
- /* REXX installation script for iLink/2 */
-
- call RxFuncAdd 'SysCls', 'RexxUtil', 'SysCls'
- call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
-
- currentDirectory = directory()
- programName = "\ILINK2.EXE"
- programPath = insert( currentDirectory, programName )
- executable = insert( "EXENAME=", programPath )
-
- SysCreateObject("WPProgram","iLink/2","<WP_DESKTOP>",,
- executable, "REPLACE" )
-
- call SysCls
-
- say ""
- say ""
- say "----------------------------------------------------------------"
- say " iLink/2 - Drop-In replacement for IBM's 'Dial Other Provider'. "
- say " BMT Micro, Inc. (C) 1997 - All Rights Reserved "
- say "----------------------------------------------------------------"
- say ""
- say " iLink/2 object successfully created on desktop..."
- say ""
- say " Start iLink/2 by double-clicking on the program object. "
- say ""
- say "*****************************************************************"
- say "* This program is distributed as shareware. You must register *"
- say "* this product if you continue to use it. Please see the *"
- say "* documentation for the complete details. *"
- say "*****************************************************************"
- say ""