home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 2 / amigaformatcd02.iso / rexx / addicons.arexx next >
Encoding:
Text File  |  1996-05-20  |  330 b   |  15 lines
  1. address command "list >ram:noiconlist  ~(#?.info) quick files nohead"
  2. address
  3. if ~open("listfile", "ram:noiconlist", "read") then do
  4.    say "fatal error"
  5.    exit
  6.    end
  7. do until eof("listfile")
  8.    this_line = READLN("listfile")
  9.  
  10.    com_line = "copy ram:deficon "this_line".info"
  11.    address command com_line
  12.    end
  13. say "done"
  14. exit
  15.