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