home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
redb1c.zip
/
redinst.cmd
< prev
Wrap
OS/2 REXX Batch file
|
1996-03-17
|
1KB
|
52 lines
/* WCBuild.cmd */
curdir = directory()
/* Load REXXUTIL */
call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
call sysloadfuncs
/* The basic call is listed next. */
/* result = SysCreateObject(classname, title, location, setup) */
call SysCls
Say " You Are installing RED Beta 1 "
Say " "
Say " Black Pine Development CONNOT be held Responsibled for"
Say " any direct or indirect damage caused by using RED!!!"
Say " Installation impies aggreement to these terms."
Say 'Adding RED to your Desktop...'
Say '';Say 'Press Y to add RED to The Desktop...';Say '';
parse upper value SysGetKey('NOECHO') with key
If key<>'Y' Then Exit
classname='WPProgram'
title="RED Beta 1"
location='<WP_DESKTOP>'
setup='PROGTYPE=PM;EXENAME='curdir'\REDb1.EXE;ICONFILE='curdir'\red.ico;ASSOCFILTER=*.ini'
say setup
Call BldObj
say ' Copyright 1995 Black Pine Development'
Exit
/* Build Object */
BldObj:
call charout ,'Building: 'title
result = SysCreateObject(classname, title, location, setup)
If result=1 Then call charout ,'... Object created!'
Else call charout ,'... Not created! Return code='result
args.0 = 2
args.1 = "red.inf"
args.2 = "introduction"
'VIEW' args.1 args.2
Say '';
Return