home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Professional
/
OS2PRO194.ISO
/
os2
/
wps
/
games
/
lotto
/
sfninst.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-10-22
|
622b
|
22 lines
/* Install 6/49 strategy game Workplace Shell objects */
/* Joe Smeets October 1993 */
CALL RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
Call SysLoadFuncs
dir = Directory()
file = "SFN.EXE"
/* Create the folder. */
msg = "Creating the 6/49 folder"
rc = SysCreateObject( "WPFolder", "6/49", "<WP_DESKTOP>", "OBJECTID=<6/49>;", "U" )
If rc=1 Then Call DONE
msg = "creating program object"
rc = SysCreateObject( "WPProgram", "6/49 Strategy Game", "<6/49>","PROGTYPE=PM;EXENAME="dir'\'file"")
If rc=1 Then Call DONE
exit
DONE:
SAY msg "- done .."
RETURN