home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d07xx / d0770.lha / Uedit / e.rexx < prev    next >
OS/2 REXX Batch file  |  1992-11-22  |  452b  |  18 lines
  1. /* load a list of files into a UE buffer */
  2. /* Ben Eng was here but flew away on a Jet Penguin */
  3. parse arg x
  4. CR = '0a'x
  5. if x = "" then call warn
  6. cdir = pragma('d')
  7. if cdir = '' | right(cdir,1) = '/' | right(cdir,1) = ':' then
  8.     rootdir = cdir
  9. else rootdir = cdir || '/'
  10. do i=1 to words(x)
  11.     fnam = rootdir || word(x, i)
  12.     address 'URexx' 'f:' || fnam /* load file */
  13.     end
  14. exit
  15. warn:
  16.   say "    Need one arguments." CR ||"    USAGE: [rx] e <file>"
  17.   exit
  18.