home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 93
/
af093sub.adf
/
dofile.LZX
/
dofile
/
dostart.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1996-11-25
|
423b
|
21 lines
/*
** $VER: dostart.rexx 1.1 (27.9.96) Rolf Rotvel
*/
if arg() > 0 then prefs = arg(1)
else prefs = 's:dofile.prefs'
if ~open('tmp', prefs, 'r') then do
say 'dostart: Couldn''t open '||prefs
exit
end
cfg = translate(readch('tmp', 65535), '', '0a'x)
call close('tmp')
do forever
parse var cfg dtyp '"' cmd '"' cfg
if dtyp = '' then leave
call setclip('dofile.'||upper(strip(dtyp)), cmd)
end
exit