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