WimpSlot 32K
Set ColorMenu$Dir <Obey$Dir>
Set ColorMenu$Resources <Obey$Dir>
ifthere <ColorMenu$Dir>.Modules then Obey <ColorMenu$Dir>.Modules
Run <ColorMenu$Dir>.!RunImage
