#
#  MPW Command File to back up MacIcon source.
#
Set Exit 1

Eject 1
Confirm "Insert Icon source backup disk in internal drive"
Mount 1
Set Vol `Volumes 1`
Erase 1
NewFolder "{Vol}"src "{Vol}"src:h "{Vol}"src:tran "{Vol}"src:link 6
	"{Vol}"src:iconx "{Vol}"src:icont
Duplicate -p -d -y ::SetPath "{Vol}"
Duplicate -p -d -y `Files -t TEXT` "{Vol}"src:
Directory {Icon}src:h:
Duplicate -p -d -y `Files -t TEXT` "{Vol}"src:h:
Directory {Icon}src:tran:
Duplicate -p -d -y `Files -t TEXT` "{Vol}"src:tran:
Directory {Icon}src:link:
Duplicate -p -d -y `Files -t TEXT` "{Vol}"src:link:
Directory {Icon}src:iconx:
Duplicate -p -d -y `Files -t TEXT` "{Vol}"src:iconx:
Directory {Icon}src:icont:
Duplicate -p -d -y `Files -t TEXT` "{Vol}"src:icont:
Directory {Icon}src:
Volumes -l 1
Eject 1
