| > SID:!Run
| Copyright  7th software, 2014
| All rights reserved.

Set SID$Dir   <Obey$Dir>
Set SID$Path  <SID$Dir>.
Set Alias$SID Run SID:SID %%*0

| Load all of the modules we require for the front-end application...
|
| Note: if you are feeling brave, you can comment-out some or all of the Error lines below
| to force SID to run on older systems - the problems solved by later versions of the various
| modules are largely confined to quality of output and fixing DataAborts when running SID
| alongside other FrontEnd applications.
|
If "<System$Path>" = "" Then Error 0 System resources cannot be found
RMEnsure UtilityModule  3.10 Error !SID only runs on RISC OS 3 (version 3.10) or later
RMEnsure SharedCLibrary 5.28 Error You need version 5.28 of the Shared C Library module to run !SID
RMEnsure FPEmulator     4.06 Error You need version 4.06 of the FPEmulator module to run !SID
RMEnsure TaskWindow     0.54 Error You need version 0.54 of the TaskWindow module to run !SID
RMEnsure FrontEnd       0.00 Run System:modules.FrontEnd
RMEnsure FrontEnd       1.21 Error You need version 1.21 of the FrontEnd module to run !SID
RMEnsure DDEUtils       0.00 Run System:modules.DDEUtils
RMEnsure DDEUtils       1.54 Error You need version 1.54 of the DDEUtils module to run !SID

| Ensure that we have a recent enough version of the Debugger module and it's messages...
|
| Again, you can remove this stuff if you so desire. The later version of Debugger is
| better at producing code which can be assembled again (i.e. unknown SWIs have their
| SWI number given). It also has some bug fixes (i.e. in ADR recognition).
|
SetEval Sys$32Bit 1
RMEnsure UtilityModule 5.00 SetEval Sys$32Bit 0
If Sys$32Bit = 0 Then RMEnsure Debugger 1.74 RMLoad System:Modules.DbgMess
If Sys$32Bit = 0 Then RMEnsure Debugger 1.74 RMLoad System:Modules.Debugger
If Sys$32Bit = 0 Then RMEnsure Debugger 1.74 Error You need version 1.74 of the Debugger module to run !SID
Unset Sys$32Bit

| Start the front-end application...
WimpSlot -min 32K -max 32K
FrontEnd_Start -app SID -desc SID:Desc
