/* UltiMOD REXX install script */
Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
Call SysLoadFuncs

say "Installing UltiMOD...."

currentDirectory = directory()
programName = "\ULTIMOD.EXE"
programPath = insert( currentDirectory, programName )

PRGOPTION="PROGTYPE=PM;EXENAME="||programPath||";ASSOCFILTER=*.MOD,*.S3M,*.MTM,*.XM;OBJECTID=<ULTIMOD>;ICONFILE="||programName||";"

if SysCreateObject("WPProgram", ,
                   "UltiMOD", ,
                   "<WP_DESKTOP>", , 
                   PRGOPTION, ,
                   "REPLACE") Then Do
	Say "UltiMOD object successfully created."
	Say "UltiMOD is now associated with all your modfiles."
End            
    
Exit 0