/* YAOS installation program */

call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
call SysLoadFuncs

say "Installing YAOS version 1.00 (c) 1996 by LEE Cjin Pheow"
say " "

curdir = directory()

/* create a new desktop object for YAOS */
If SysCreateObject("WPProgram", "Yet Another OS/2 Shell v1.00", "<WP_DESKTOP>",,
     "EXENAME="curdir"\YAOS.EXE;PARAMETERS=-ws yaos.rc;STARTUPDIR="curdir, "replace") Then
   Say 'YAOS program object has been created successfully.'
   Else Say 'Cannot create YAOS program object!'

exit