Mount adf like volumes

[ProfDrLuigi]

I "enhanced" the Script a little bit:

MountADx.script

RequestChoice >ENV:ADFCHOICE "Insert disk" "Insert Disk to unit:" "1|2|3|4|5|6|7|0"
assign >NIL: ad$ADFCHOICE: exists devices
if not warn
	removedisk >NIL: UNIT $ADFCHOICE
	insertdisk >NIL: UNIT $ADFCHOICE $adx
	diskchange >NIL: ad$ADFCHOICE:
else
	mount >NIL: ad$ADFCHOICE: from devs:adf.ml
	removedisk >NIL: UNIT $ADFCHOICE
	insertdisk >NIL: UNIT $ADFCHOICE $adx
	diskchange >NIL: ad$ADFCHOICE:	
endif

UnmountADx.script

RequestChoice >ENV:ADFCHOICE "Remove disk" "Unit to remove:" "1|2|3|4|5|6|7|0"
assign >NIL: ad$ADFCHOICE: exists devices
if not warn
	removedisk >NIL: UNIT $ADFCHOICE
	diskchange >NIL: ad$ADFCHOICE:
endif

If you are using ToolsDeamon (its default in the ClassicWorkbench Package) you write the variable $adx this way to ENV:

echo [] >ENV:adx
execute S:MountADx.script

For unmounting a Unit:

execute S:UnmountADx.script

If you mount to a Unit which is already mounted with another ADF it will be ejected and the Selected ADF will replace it. Simple.