Set RU$Dir <Obey$Dir>
Run <RU$Dir>.ReadKeys
Set RU_Programs$Dir <RU$Dir>.Programs
IconSprites <RU$Dir>.!Sprites
SetMacro Alias$RU_OpenDir Filer_OpenDir <RU_Programs$Dir>
RU_OpenDir
WimpSlot -min 64K -max 64K
If (<Keys$Value> <> 2) Then Run <RU$Dir>.!RunImage
