home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 9 / amigaformatcd09.iso / coverdisks / subsdisk / subs.dms / subs.adf / dofile.LZX / dofile / dostart.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-09-28  |  423 b   |  21 lines
  1. /*
  2. ** $VER: dostart.rexx 1.1 (27.9.96) Rolf Rotvel
  3. */
  4. if arg() > 0 then prefs = arg(1)
  5. else prefs = 's:dofile.prefs'
  6.  
  7. if ~open('tmp', prefs, 'r') then do
  8.     say 'dostart: Couldn''t open '||prefs
  9.     exit 
  10. end
  11.  
  12. cfg = translate(readch('tmp', 65535), '', '0a'x)
  13. call close('tmp')
  14.  
  15. do forever
  16.     parse var cfg dtyp '"' cmd '"' cfg
  17.     if dtyp = '' then leave    
  18.     call setclip('dofile.'||upper(strip(dtyp)), cmd)
  19. end
  20. exit
  21.