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