home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Arawak OS/2 Shareware
/
PAKLED.ISO
/
install.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-03-16
|
666b
|
28 lines
/* A REXX program used to create an object of the Arawak */
/* CD-ROM Browser on the desktop */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
Call SysCls
Curdir= directory()
Title= 'ARAWAK CD-ROM'
location= '<WP_DESKTOP>'
call AddProg
Exit
AddProg:
Say '';Say 'Press Y to install ARAWAK.EXE to your desktop'
parse upper value SysGetKey('NOECHO') with key
If key='Y' Then Do
result=SysCreateObject('WPProgram', Title, location, 'EXENAME='Curdir'ARAWAK.EXE')
If result=1 Then Say 'Object created'
Else Say 'Not created, return code='result
End
Return