| !Run for TechWriter Professional 4.10 (06-Aug-98)
| Copyright  1994 by Icon Technology Ltd. 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"

WimpSlot -min 928K -max 928K

RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions

Set TechWriter$Dir <Obey$Dir>
Set TechWriterChoices$Path <Choices$Write>.TechWriter.,<Obey$Dir>.
If "<TechWriter$Path>"<>"" Then Set TechWriterHTML$Path <TechWriter$Path>,<Obey$Dir>.
Run <Obey$Dir>.!Boot

WimpSlot -min 928K -max 928K
WimpSlot -min 832K -max 832K

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