home *** CD-ROM | disk | FTP | other *** search
/ Arawak OS/2 Shareware / PAKLED.ISO / install.cmd < prev    next >
Encoding:
Text File  |  1995-03-16  |  666 b   |  28 lines
  1. /* A REXX program used to create an object  of the Arawak */
  2. /* CD-ROM Browser on the desktop                          */
  3.  
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. call SysLoadFuncs
  6.  
  7. Call SysCls
  8.  
  9. Curdir=     directory()
  10. Title=    'ARAWAK CD-ROM'
  11. location=    '<WP_DESKTOP>'
  12.  
  13. call AddProg
  14. Exit
  15.  
  16. AddProg:
  17. Say '';Say 'Press Y to install ARAWAK.EXE to your desktop'
  18. parse upper value SysGetKey('NOECHO') with key
  19. If key='Y' Then Do
  20.  
  21.    result=SysCreateObject('WPProgram', Title, location, 'EXENAME='Curdir'ARAWAK.EXE')
  22.  
  23.    If result=1 Then Say 'Object created'
  24.    Else             Say 'Not created, return code='result
  25. End
  26. Return
  27.  
  28.