/* REXX */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs

folderid="<MITSCHEME>"
poptions="EXENAME="arg(1)";PROGTYPE=PM"
iconprefix=";ICONFILE=ICONS\"

rc=SysCreateObject("WPFolder", "Scheme", "<WP_DESKTOP>", "OPEN=ICON;OBJECTID="folderid, "fail")

rc=SysCreateObject("WPProgram", "Scheme", folderid, poptions, "fail")

rc=SysCreateObject("WPProgram", "Edwin", folderid, poptions";PARAMETERS=-edwin"iconprefix"EDWIN.ICO", "fail")

rc=SysCreateObject("WPProgram", "Liar", folderid, poptions";PARAMETERS=-compiler"iconprefix"LIAR2.ICO", "fail")

rc=SysCreateObject("WPProgram", "All", folderid, poptions";PARAMETERS=-constant 1600 -heap 1000 -band all.com", "fail")
