| !Run for Writer+ 1.10 (09-Aug-13)
| Copyright  2013 by MW Software All rights reserved.

if "<Font$Path>"="" then Error !Fonts not found
if "<Font$Bold>"="" Then Set Font$Bold "Bold Bold ExtraBold Ultra Heavy"
if "<Font$Italic>"="" Then Set Font$Italic "Italic Oblique Slant"

Set Writer+$Dir <Obey$Dir>
WimpSlot -min 920K -max 920K

RMEnsure UtilityModule 5.00 Error This application is only suitable for use with RISC OS 5
Set Writer+$RO6 "true"
RMEnsure UtilityModule 6.00 Set Writer+$RO6 "false"
If "<Writer+$RO6>" = "true" then Error This application is only suitable for use with RISC OS 5

Set Writer+Choices$Path Choices:Writer+.,<Obey$Dir>.
If "<Writer+$Path>"<>"" Then Set Writer+HTML$Path <Writer+$Path>,<Obey$Dir>.
| Use version in app directory if Peter Harley's !InterGif not booted
| We use our own version 6.15 of Intergif since we require at least version 6.12
Set Alias$IntergifEW <Writer+$Dir>.Intergif %%*0
Set Alias$jpegtranEW <Writer+$Dir>.jpegtran %%*0
Run <Obey$Dir>.!Boot
Obey <Obey$Dir>.!WMF2Draw.!Boot
Set Alias$WMF2Draw /<FileSwopWMF2Draw$Dir> %%*0

WimpSlot -min 920K -max 920K
WimpSlot -min 880K -max 880K
|
Run <Writer+$Dir>.!RunImage %*0 -j