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