home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / ultmod14.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1996-01-12  |  734b  |  22 lines
  1. /* UltiMOD REXX install script */
  2. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  3. Call SysLoadFuncs
  4.  
  5. say "Installing UltiMOD for MMPM/2...."
  6.  
  7. currentDirectory = directory()
  8. programName = "\ULTIMOD.EXE"
  9. programPath = insert( currentDirectory, programName )
  10.  
  11. PRGOPTION="PROGTYPE=PM;EXENAME="||programPath||";ASSOCFILTER=*.MOD,*.S3M,*.MTM,*.XM;OBJECTID=<ULTIMOD>;ICONFILE="||programName||";"
  12.  
  13. if SysCreateObject("WPProgram", ,
  14.                    "UltiMOD for MMPM/2", ,
  15.                    "<WP_DESKTOP>", , 
  16.                    PRGOPTION, ,
  17.                    "REPLACE") Then Do
  18.     Say "UltiMOD object successfully created."
  19.     Say "UltiMOD is now associated with all your modfiles."
  20. End            
  21.     
  22. Exit 0