|>!Run
|
| !Run file for Translator
|

Obey <Obey$Dir>.!Boot

RMEnsure UtilityModule 3.10 Error I need RISC OS 3.10 or later
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.01 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule 3.70 RmEnsure CallASWI 0.01 Error I need CallASWI 0.01 or later

If "<Wimp$ScrapDir>" = "" then Error Wimp$ScrapDir not defined

Set Translator$StoreDir <Wimp$ScrapDir>
Set Translator$ModulesDir <Translator$Dir>.Modules
Set Translator$ChoicesDir <Translator$Dir>.Choices
If "<Choices$Write>" <> "" then Set Translator$ChoicesDir <Choices$Write>.Translator

RMEnsure FPEmulator 4.00 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 4.00 Error I need FPEmulator 4.00 or later

RMEnsure ZeriRegister 0.00 RMLoad <Translator$ModulesDir>.ZRegister
RMEnsure ZeriWimpUtils 1.10 RMLoad <Translator$ModulesDir>.ZWimpUtils
RMEnsure ZeriWimpUtils 1.10 Error I need ZeriWimpUtils 1.10 or later
RMEnsure ZeriBuffer 1.10 RMLoad <Translator$ModulesDir>.ZBuffer
RMEnsure ZeriBuffer 1.10 Error I need ZeriBuffer 1.10 or later
RMEnsure ZeriLocal 1.10 RMLoad <Translator$ModulesDir>.ZLocal
RMEnsure ZeriLocal 1.10 Error I need ZeriLocal 1.10 or later
RMEnsure ZeriArea 1.20 RMLoad <Translator$ModulesDir>.ZArea
RMEnsure ZeriArea 1.20 Error I need ZeriArea 1.20 or later

Set LoadModule No
RMEnsure ZeriConvert 1.20 Set LoadModule Yes
If "<LoadModule>" = "Yes" then RMLoad <Translator$ModulesDir>.ZConvert
If "<LoadModule>" = "Yes" then Set ZeriConvert$BinDir <Translator$Dir>.Bin
If "<LoadModule>" = "Yes" then Set ZeriConvert$ScrapDir <Wimp$ScrapDir>
Unset LoadModule
RMEnsure ZeriConvert 1.20 Error I need ZeriConvert 1.20 or later

| If dynamic areas are not available, ensure the wimp slot is large
| enough or Translator will crash when running out of memory. Change
| the second line for RISC OS versions before 3.50, else the first.
WimpSlot -min 704K -max 704K
RMEnsure UtilityModule 3.50 WimpSlot -min 800K -max 800K

RegisterModule ZeriWimpUtils
RegisterModule ZeriConvert
RegisterModule ZeriBuffer
RegisterModule ZeriLocal
RegisterModule ZeriArea

Run <Translator$Dir>.!RunImage %*0

UnregisterModule ZeriWimpUtils
UnregisterModule ZeriConvert
UnregisterModule ZeriBuffer
UnregisterModule ZeriLocal
UnregisterModule ZeriArea