| RISC OS Select installer

RMEnsure UtilityModule 4.00 Error RISC OS Select can only be installed on top of RISC OS 4
Set SelectInstall$Dir <Obey$Dir>
Iconsprites <SelectInstall$Dir>.!Sprites

| Shut down as many tasks as is possible
WimpSlot -min 32k
Run <SelectInstall$Dir>.Resources.PInstCheck

If "<Installer$SafeToContinue>" = "No" Then Obey

| Now Kill off whatever toolbox modules we can
WimpSlot -min 32k
Run <SelectInstall$Dir>.Resources.UnplugTBox -ram <SelectInstall$Dir>.Resources.rm { > null: }

| Load modules we need
RMEnsure ToolBox     1.67 RMLoad <SelectInstall$Dir>.Resources.RM.Toolbox
RMEnsure SaveAs      0.21 RMLoad <SelectInstall$Dir>.Resources.RM.SaveAs
RMEnsure Window      1.76 RMLoad <SelectInstall$Dir>.Resources.RM.Window
RMEnsure Menu        0.39 RMLoad <SelectInstall$Dir>.Resources.RM.Menu
RMEnsure DCS         1.14 RMLoad <SelectInstall$Dir>.Resources.RM.DCS_Quit
RMEnsure TextGadgets 0.44 RMLoad <SelectInstall$Dir>.Resources.RM.TextGadget
RMEnsure ProgInfo    0.19 RMLoad <SelectInstall$Dir>.Resources.RM.ProgInfo
RMEnsure ZLib        0.32 RMLoad <SelectInstall$Dir>.Resources.RM.ZLib
RMEnsure Zipper      0.21 RMLoad <SelectInstall$Dir>.Resources.RM.Zipper
RMEnsure Installer   0.09 RMLoad <SelectInstall$Dir>.Resources.RM.Installer

| We're going to manipulate the boot sequence, so we need to ensure that
| the screensaver is not triggered during this process
Unset ScrSaver$Dir

WimpSlot -min 128k -max 128k
Run <SelectInstall$Dir>.!RunImage