home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
draftit.zip
/
Install.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-07-02
|
1KB
|
43 lines
/**/
CALL RxFuncAdd 'SysLoadFuncs','Rexxutil','SysLoadFuncs'
CALL SysLoadFuncs
place = directory()
Liste = sysdrivemap('c:', 'used')
x = words(liste)
stnumb = 1
DO until stnumb = x+1
s = word(liste, stnumb)
call sysfiletree s'\os2', 'entdeckt', 'do'
if entdeckt.0 > 0 then do
entdeckt.2 = entdeckt.1'\dll'
befehl = copy place'\rxextras.dll' entdeckt.2
befehl
say 'Is the shareware dll RexxBase already installed on your machine? y/n'
pull answer
if answer = y then nop
if answer = n then do
befehl = copy place'\rexxbase.dll' entdeckt.2
befehl
end
say 'Is the ReXX debugger RxD already installed on your machine? y/n'
pull answer
if answer = y then nop
if answer = n then do
befehl = copy place'\DEBUG\eqkedctl.dll' entdeckt.2
befehl
befehl = copy place'\DEBUG\RXD.EXE' entdeckt.1'\apps'
befehl
befehl = copy place'\DEBUG\RXD.HLP' entdeckt.1'\help'
befehl
end
leave
end
else nop
stnumb = stnumb+1
end
rc = SysCreateObject('WPProgram', 'DraftIT', '<WP_DESKTOP>','EXENAME='place'\DraftIT.exe;STARTUPDIR='place';PROGTYPE=PM;', 'U')