home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
OS2
/
OTHELL10.ZIP
/
INSTALL.CMD
next >
Wrap
OS/2 REXX Batch file
|
1994-01-31
|
3KB
|
92 lines
/* Entertainment Pack for OS/2 Installation */
'@Echo Off'
Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
Call SysLoadFuncs
Signal On Failure Name FAILURE
Signal On Halt Name HALT
Signal On Syntax Name SYNTAX
Call SysCls
Say 'Installing Entertainment Pack (Othello, Version 1.0) for OS/2...'
Say ''
Result = SysFileTree( 'OTHELLO.EXE', 'Files', 'F' )
If Files.0 = 0 Then
Do
Say 'ERROR: OTHELLO.EXE not found! Installation cancelled.'
Signal DONE
End
Result = SysFileTree( 'OTHELLO.HLP', 'Files', 'F' )
If Files.0 = 0 Then
Do
Say 'ERROR: OTHELLO.HLP not found! Installation cancelled.'
Signal DONE
End
Result = SysFileTree( 'LICENSE.TXT', 'Files', 'F' )
If Files.0 = 0 Then
Do
Say 'ERROR: LICENSE.TXT not found! Installation cancelled.'
Signal DONE
End
Result = SysFileTree( 'OTHELLO.DOC', 'Files', 'F' )
If Files.0 = 0 Then
Do
Say 'ERROR: OTHELLO.DOC not found! Installation cancelled.'
Signal DONE
End
Say 'Please enter the full name of the directory to which you want'
Say 'the Entertainment Pack (Othello, Version 1.0) for OS/2'
Say 'installed (default C:\OS2\APPS): '
Pull Directory
If Directory = "" Then Directory = 'C:\OS2\APPS'
Result = SysFileTree( Directory, 'Dirs', 'D' )
If Dirs.0 = 0 Then
Do
Result = SysMkDir( Directory )
if Result == 0 Then
Do
End
Else
Do
Say 'ERROR: Unable to create target directory. Installation cancelled.'
Signal DONE
End
End
Say ''
Say 'The program object will be placed in the Games folder...'
Folder = '<WP_GAMES>'
Say ''
Say 'Copying OTHELLO.EXE to' Directory '...'
Copy OTHELLO.EXE Directory '1>NUL'
Say 'Copying OTHELLO.HLP to' Directory '...'
Copy OTHELLO.HLP Directory '1>NUL'
Say 'Copying LICENSE.TXT to' Directory '...'
Copy LICENSE.TXT Directory '1>NUL'
Say 'Copying OTHELLO.DOC to' Directory '...'
Copy OTHELLO.DOC Directory '1>NUL'
Say ''
Say 'Creating program object...'
Say ''
Type = 'WPProgram'
Title = 'Othello'
Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\OTHELLO.EXE;STARTUPDIR='Directory';OBJECTID=<OTHELLO>;NOPRINT=YES;'
Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
If Result = 1 Then
Say 'The Entertainment Pack (Othello, Version 1.0) for'
Say 'OS/2 was successfully installed.'
Say 'Please read OTHELLO.DOC for additional information.'
Exit
Say 'ERROR: Unable to create object. Installation cancelled.'
Exit
FAILURE:
Say 'Installation error.'
Signal DONE
HALT:
Say 'Installation error.'
Signal DONE
SYNTAX:
Say 'Installation error.'
Signal DONE
DONE:
Exit