WimpSlot -min 16K -max 16K
Set Draggable$Dir <Obey$Dir>
Set Draggable$Resources <Obey$Dir>
ifthere <Draggable$Dir>.Modules then Obey <Draggable$Dir>.Modules
Run <Draggable$Dir>.!RunImage
