home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 1 / amigaformatcd01.iso / rexx / addicons.arexx next >
Text File  |  1996-04-30  |  322b  |  14 lines
  1. address command "list >ram:noiconlist  ~(#?.info) quick files"
  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.    com_line = "copy ram:deficon "this_line".info"
  10.    address command com_line
  11.    end
  12. say "done"
  13. exit
  14.