|>$.Ovn.!Ovation.!Run
|
RMEnsure UtilityModule  3.10 error Ovation required RISC OS 3.1 or better to run.
|
| Ensure there is enough memory to run a version with no spell checker.
|
WimpSlot -min 480K -max 480K
|
|
| First the configurable options...
|
Set Ovation$Printfile Printer:
|
| NB parameter substitution is active here - hence use double percents below
|
Set Ovation$DateFormat %%ZDY%%ST %%MO %%CE%%YR
Set Ovation$TimeFormat %%Z12:%%MI%%AM
|
|
Set Ovation$TextCPI 10
Set Ovation$TextLPI 6
|
|
| The next line forces the Spell checker to be loaded on 1Mb. Machines
| Set Ovation$Spell 1
|
| The next line to allows Ovation to use the Dithering in  RISC OS 3.00
Set Ovation$Dither 1
RMEnsure ColourTrans    0.90 Unset Ovation$Dither
|
| The next line allows Ovation to use the rotated fonts in RISC OS 3.00
Set Ovation$Fontman3 1
RMEnsure FontManager    2.90 Unset Ovation$Fontman3
|
| The next line allows Ovation to use the rotated sprites in RISC OS 3.00
Set Ovation$Sprite3  1
RMEnsure SpriteExtend   0.35 Unset Ovation$Sprite3
|
| The next line allows Ovation to use the JPEG rendering in RISC OS 3.60
Set Ovation$JPEG 1
RMEnsure SpriteExtend   0.99 Unset Ovation$JPEG
|
| The next line tells Ovation where to look for dictionaries
Set OvationDictionary$Path <Dictionary$Dir>
If "<OvationDictionary$Path>" = "" then Set OvationDictionary$Path <Obey$Dir>
|
|
|
| Width of registration marks in millipoints
SetEval Ovation$RegWidth 250
|
|
| Mode 0 print as before, Mode 1 use Printers 1.22 queuing
SetEval Ovation$PrintMode 0
|
|
| Then the run file...
|
Set Alias$@RunType_CDD Run <Obey$Dir>.!Run %%*0
Set Alias$@RunType_CDC Run <Obey$Dir>.!Run %%*0
Set Alias$@PrintType_CDD Run <Obey$Dir>.!Run -Print %%*0
Set File$Type_CDD Ovation
Set File$Type_CDC OvnStyle
|
RMEnsure SystemDevices  1.13 Error Ovation needs SystemDevices Module
RMEnsure SpriteUtils    1.04 Error Ovation needs SpriteUtils Module
RMEnsure SpriteExtend   0.20 Error Ovation needs SpriteExtension Module
RMEnsure WindowManager  2.00 Error Ovation needs a newer Window Manager
RMEnsure FontManager    1.15 Error Ovation needs a newer Font Manager
RMEnsure Draw           1.01 Error Ovation needs Draw Module 1.01 or later
|
If "<System$Path>" = "" then Error 0 System resources cannot be found
|
RMEnsure FPEmulator     2.80 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator     2.80 Error Ovation needs FPEmulator 2.80 or later
|
RMEnsure ColourTrans    0.52 RMLoad System:Modules.Colours
RMEnsure ColourTrans    0.52 Error Ovation needs ColourTrans 0.52 or later
|
RMEnsure SharedCLibrary 0.00 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 3.75 Error Ovation needs SharedCLibrary 3.75 or later
|
If "<Ovation$Spell>"="" Then Run "<Obey$Dir>.resources.SpellCheck"
|
Run "<Obey$Dir>.Resources.IfIs2D" Then Set Ovation$Templates Templates2 Else Set Ovation$Templates Templates3
Set Ovation$Templates Templates3
|
If  "<Ovation$Spell>"="" Then WimpSlot -min 480K -max 480K Else WimpSlot -min 512K -max 512K
|
IconSprites <Obey$Dir>.!Sprites
RMEnsure ResourceFS     0.00 IconSprites <Obey$Dir>.Resources.Sprites3
|
If "<Ovation$Path>"=""  Then Seteval Ovation$Case 1  Else Seteval Ovation$Case <Ovation$Case>+1
Set Ovation$Path <Obey$Dir>
|
RMEnsure Ovation        1.02 Run <Obey$Dir>.Resources.Ovation
|
Ovation_Keyboard_OS35
RMEnsure UtilityModule  3.50 Ovation_Keyboard_OS3
RMEnsure UtilityModule  3.00 Ovation_Keyboard_OS2
|
If  "<Ovation$Spell>"="" Then WimpSlot -min 480K Else WimpSlot -min 512K
|
|
If  "<Ovation$Spell>"="" Then Run "<Ovation$Path>.!RunImage" %*0 Else Run "<Ovation$Path>.!RunImageS" %*0
