;
; Installs NewIcon images to SYS:
;
failat 21
cd /icons
list >T:new.temp.2 dirs all lformat "/Utilities/copynewicon %s%s sys:%s%s"
list >T:new.temp.1 dirs lformat "list >>T:new.temp.2 %s%s lformat *"/Utilities/copynewicon %**s%**s sys:%**s%**s*"files all"
list >T:new.temp.3 files devs:dosdrivers/(~(df#?)#?.info) lformat "/Utilities/copynewicon devs/dosdrivers/dosdriver.info %s%s"
list >>T:new.temp.3 files devs:dosdrivers/DF#?/#?.info lformat "/Utilities/copynewicon devs/dosdrivers/dosdriver.info %s%s"
list >>T:new.temp.3 files Sys:storage/dosdrivers/#?.info lformat "/Utilities/copynewicon devs/dosdrivers/dosdriver.info %s%s"
list >>T:new.temp.3 files devs:datatypes/#?.info lformat "/Utilities/copynewicon devs/datatypes/datatype.info %s%s"
list >>T:new.temp.3 files Sys:storage/datatypes/#?.info lformat "/Utilities/copynewicon devs/datatypes/datatype.info %s%s"
list >>T:new.temp.3 files devs:printers/#?.info lformat "/Utilities/copynewicon devs/printers/printer.info %s%s"
list >>T:new.temp.3 files Sys:storage/printers/#?.info lformat "/Utilities/copynewicon devs/printers/printer.info %s%s"
list >>T:new.temp.3 files devs:keymaps/#?.info lformat "/Utilities/copynewicon devs/keymaps/keymap.info %s%s"
list >>T:new.temp.3 files Sys:storage/keymaps/#?.info lformat "/Utilities/copynewicon devs/keymaps/keymap.info %s%s"
list >>T:new.temp.3 files devs:monitors/#?.info lformat "/Utilities/copynewicon devs/monitors/monitor.info %s%s"
list >>T:new.temp.3 files sys:storage/monitors/#?.info lformat "/Utilities/copynewicon devs/monitors/monitor.info %s%s"
list >>T:new.temp.3 files sys:prefs/datatypes/#?.info lformat "/Utilities/copynewicon prefs/datatypes/datatype.info %s%s"
/Utilities/copynewicon System/shell.info Sys:shell.info
/Utilities/copynewicon disks/HD.info SYS:disk.info
execute T:new.temp.1
execute T:new.temp.2
execute T:new.temp.3
delete >NIL: T:new.temp.#?
cd /install