home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / ked216.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1995-07-24  |  805b  |  30 lines
  1. /* KED WPS Installation Code    */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. say "This REXX program will create a WPS object on your Desktop"
  7. say "for KEd."
  8. say " "
  9. say "Press Y to continue, or any other key to exit"
  10. parse upper value SysGetKey('NOECHO') with key
  11. say "You pressed " key
  12.  
  13. if key = 'Y' then do                     
  14.    KEDPATH = DIRECTORY() 
  15.    retcode =  SysCreateObject("WPProgram","KEd_216","<WP_DESKTOP>",,
  16.                    "OBJECTID=<WP_KED216>;"||,
  17.                    "PROGTYPE=WINDOWABLEVIO;"||,
  18.                    "EXENAME="KEDPATH"\KED.EXE;"||,
  19.                    "STARTUPDIR="KEDPATH";")      
  20. end
  21.  
  22. if retcode = 1 then
  23.     say 'KEd installed on Desktop'
  24. else
  25.     say 'KEd was not installed on the Desktop'
  26.  
  27. exit
  28.  
  29.  
  30.