home *** CD-ROM | disk | FTP | other *** search
- /* Install Score Card on version 2.x OS/2 systems */
-
- '@Echo OFF'
-
- 'call help off'
-
- call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
-
- call SysLoadFuncs
-
- call SysCls
-
- call beep 262,250
-
- say center('Installation for Score Card on version 2.x OS/2 systems',79)
- say ''
- say center('Touch the key which represents the drive letter',79)
- say center('where you wish Score Card to be installed.',79)
- drv=SysGetKey(NOECHO)
-
- call SysCls
-
- say 'Copying files.'
-
- call SysMkDir drv':\golf'
- 'attrib -r ' drv':\golf\*.* >nul'
- copy '*.*' drv':\golf >nul'
-
- call SysCls
-
- say 'Files copied, adding Score Card to DeskTop.'
-
- clas='WPProgram'
- titl='Score Card'
- loc='<WP_DESKTOP>'
- setup='OBJECTID=<SCORECARD>'||,
- 'PROGTYPE=PM;'||,
- 'EXENAME='drv':\GOLF\GOLF.EXE;'||,
- 'STARTUPDIR='drv':\GOLF;'||,
- 'MINWIN=HIDE'
- dup='R'
-
- retcode=SysCreateObject(clas,titl,loc,setup,dup)
-
- say ''
- say 'Installation finished'
-
- call SysDropFuncs
-
- exit