home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / who001b.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-05-07  |  1KB  |  35 lines
  1. /* REXX installation script for WhO (c) */
  2.  
  3. call RxFuncAdd 'SysCls', 'RexxUtil', 'SysCls'
  4. call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  5.  
  6. currentDirectory = directory()
  7. programName =    "\WHO.EXE"
  8.  
  9. programPath = insert( currentDirectory, programName )
  10. executable = insert( "EXENAME=", programPath )
  11.  
  12. If SysCreateObject("WPProgram","WhO ** v0.01 beta","<WP_DESKTOP>",
  13. ,executable,"REPLACE") Then
  14.         Say 'Program successfully createt'
  15.         Else Say 'Not able to create WhO on desktop'
  16.  
  17. call SysCls
  18. say ""
  19. say ""
  20. say "----------------------------------------------------------------"
  21. say " WhO v0.01 beta ** an OS/2 warp textmode address book           "
  22. say " Written By Patrick Schulte      (C) 1996 - All Rights Reserved "
  23. say "----------------------------------------------------------------"
  24. say ""
  25. say " WhO objects successfully created on desktop..."
  26. say ""
  27. say " Start WhO by double-clicking on the program object."
  28. say ""
  29. say "****************************************************************"
  30. say "* This program is distributed as Freeware!                     *"
  31. say "****************************************************************"
  32. say ""
  33. 
  34.  
  35.