Set NewsFind$Dir <Obey$Dir>
IconSprites <NewsFind$Dir>.!Sprites
If "<NewsFind$WorkDir>"="" Then Set NewsFind$WorkDir <Wimp$ScrapDir>
If "<NewsFind$ChoicesDir>"="" Then Set NewsFind$ChoicesDir <Choices$Write>
If "<NewsFind$ChoicesDir>"="" Then Set NewsFind$ChoicesDir <NewsDir$Dir>
RMEnsure UtilityModule 3.10 Error NewsFind requires RISC OS 3.10 or later

RMEnsure FilterManager 0.09 RMLoad System:Modules.FilterMgr
RMEnsure FilterManager 0.09 Error You need Filter Manager 0.09 or later to run NewsFind
RMEnsure WindowManager 3.17 RMEnsure BorderUtils 0.02 RMLoad System:Modules.BorderUtil

RMEnsure Toolbox    0.00 RMLoad System:Modules.Toolbox.Toolbox
RMEnsure Toolbox    1.36 Error You need Toolbox 1.36 or later to run NewsFind
RMEnsure Window     0.00 RMLoad System:Modules.Toolbox.Window
RMEnsure Window     1.31 Error You need Window 1.31 or later to run NewsFind
RMEnsure Menu       0.00 RMLoad System:Modules.Toolbox.Menu
RMEnsure Menu       0.24 Error You need Menu 0.23 or later to run NewsFind
RMEnsure Iconbar    0.00 RMLoad System:Modules.Toolbox.Iconbar
RMEnsure Iconbar    1.11 Error You need Iconbar 1.11 or later to run NewsFind
RMEnsure ProgInfo   0.00 RMLoad System:Modules.Toolbox.ProgInfo
RMEnsure ProgInfo   0.09 Error You need ProgInfo 0.09 or later to run NewsFind

WimpSlot -min 40k -max 40k
Run <NewsFind$Dir>.!RunImage %*0