Icon D
	Directory {Icon}src:tran: ; Echo Directory `Directory`
	Make
	Directory {Icon}src:link: ; Echo Directory `Directory`
	Make
	Directory {Icon}src:iconx: ; Echo Directory `Directory`
	Make
	Directory {Icon}src:icont: ; Echo Directory `Directory`
	Make
	Directory {Icon}src: ; Echo Directory `Directory`

Disks D
	Make iconx-disk
	Make src-disk

src-disk D
	Eject 1
	Confirm 'Insert disk named "src" into internal drive'
	Mount 1
	Directory {Icon}src:h:
	Duplicate -p -d -y `Files -t TEXT` iconx:
	Directory {Icon}src:tran:
	Duplicate -p -d -y `Files -t TEXT` iconx:
	Directory {Icon}src:link:
	Duplicate -p -d -y `Files -t TEXT` iconx:
	Directory {Icon}src:icont:
	Duplicate -p -d -y `Files -t TEXT` iconx:
	Eject 1
	Directory {Icon}src:

iconx-disk D
	Eject 1
	Confirm 'Insert disk named "iconx" into internal drive'
	Mount 1
	Directory {Icon}src:iconx:
	Duplicate -p -d -y `Files -t TEXT` iconx:
	Eject 1
	Directory {Icon}src:
