| >MoreDesk:!Run
| Copyright  2016, 7th software
| All rights reserved.

If "<MoreDesk$Dir>" <> "<Obey$Dir>" Then Run <Obey$Dir>.!Boot
If "<Routines$Dir>"   = "" Then Error MoreDesk requires !Routines version 1.37 or later
If "<MoreDesk$OldHW>" = "" Then Run MoreDesk:Resources.CheckHW

| Load any modules we require
RMEnsure UtilityModule  4.00 Error MoreDesk requires RISC OS 4.00 or later
If MoreDesk$OldHW Then RMEnsure CallASWI 0.03 RMLoad System:Modules.CallASWI
If MoreDesk$OldHW Then RMEnsure CallASWI 0.03 Error MoreDesk requires CallASWI 0.03 or later
RMEnsure FPEmulator     4.03 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator     4.03 Error MoreDesk requires FPEmulator 4.03 or later
If MoreDesk$NotA9 Then RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.CLib
If MoreDesk$NotA9 Then RMEnsure SharedCLibrary 5.34 Error MoreDesk requires SharedCLibrary 5.34 or later
RMEnsure WindowManager  3.80 Error MoreDesk requires WindowManager 3.80 or later
RMEnsure SpriteExtend   1.05 X RMLoad System:Modules.SpriteExt
RMEnsure SpriteExtend   1.05 Error MoreDesk requires SpriteExtend 1.05 or later
RMEnsure DragAnObject   0.00 X RMLoad System:Modules.DragAnObj
RMEnsure DragAnObject   0.00 Error MoreDesk requires DragAnObject module
RMEnsure DragASprite    0.13 X RMLoad System:Modules.DragASprit
RMEnsure DragASprite    0.13 Error MoreDesk requires DragASprite module 0.13 or later
RMEnsure MoreDesk       1.22 RMLoad MoreDesk:Resources.MoreDesk
RMEnsure MoreDesk       1.22 Error MoreDesk requires MoreDesk module 1.22 or later
RMEnsure SRDPq          0.06 RMLoad RoutinesMods:SRDPq
RMEnsure SRDPq          0.06 Error MoreDesk requires SRDPq module 0.06 or later

| Tidy-up our scrap directory
IfThere <MoreDesk$Scrap> Then Wipe <MoreDesk$Scrap> ~cfr~v

| Start the application
WimpSlot -min 500K -max 500K
Run <MoreDesk$Dir>.!RunImage %*0