home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Games 3 / cd.iso / os2 / 649 / sfninst.cmd < prev    next >
OS/2 REXX Batch file  |  1993-10-22  |  622b  |  22 lines

  1. /* Install 6/49 strategy game Workplace Shell objects */
  2. /* Joe Smeets                                   October 1993  */
  3. CALL RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  4. Call SysLoadFuncs
  5. dir = Directory()
  6. file = "SFN.EXE"
  7.  
  8. /* Create the folder. */
  9. msg = "Creating the 6/49 folder"
  10. rc  = SysCreateObject( "WPFolder", "6/49", "<WP_DESKTOP>", "OBJECTID=<6/49>;", "U" )
  11. If rc=1 Then Call DONE
  12.  
  13. msg = "creating  program object"
  14. rc  = SysCreateObject( "WPProgram", "6/49 Strategy Game", "<6/49>","PROGTYPE=PM;EXENAME="dir'\'file"")
  15. If rc=1 Then Call DONE
  16. exit
  17.  
  18. DONE:
  19. SAY msg "- done .."
  20. RETURN
  21.  
  22.