| > !Run

|
| Computer Concepts Font Installer
| --------------------------------
|
| (c) 1992 Computer Concepts Limited.
|
| All rights reserved.
|

Set FontInst$Dir <Obey$Dir>

IconSprites <FontInst$Dir>.!Sprites

Set HomertonThere 3
<FontInst$Dir>.FileEnsure Font:Homerton.Medium.Outline* HomertonThere
If NOT HomertonThere Then %Run <FontInst$Dir>.NewFontDir.FInstall <FontInst$Dir>.FIFonts.
UnSet HomertonThere

|
|  Look for ABI in the !System directory.  If it's not there then try to load
|  it from inside the application...
|
SetEval SysABI 0
RMEnsure ABI 2.81 SetEval SysABI -1
If SysABI Then Run <FontInst$Dir>.FileEnsure <System$Path>Modules.ABIMod SysABI
If SysABI Then RMEnsure ABI 2.81 RMLoad <System$Path>Modules.ABIMod
If SysABI Then RMEnsure ABI 2.81 Error "The copy of ABIModule in !System is out of date. Please refer to the section 'Updating ABI' in the manual."
RMEnsure ABI 2.81 RMLoad <FontInst$Dir>.Modules.ABIMod
RMEnsure ABI 2.81 Error "The copy of ABI in FontInst is out of date."
Unset SysABI

RMEnsure ColourTrans 0.51 RMLoad <FontInst$Dir>.Modules.Colours
RMEnsure StreamSquash 1.01 RMLoad <FontInst$Dir>.Modules.CCSquash
RMEnsure FontInstallSupport 0.02 RMLoad <FontInst$Dir>.Modules.FISupport

RMEnsure FontManager 2.44 RMLoad <Obey$Dir>.NewFontDir.Fonts
RMEnsure SuperSample 0.06 RMLoad <Obey$Dir>.NewFontDir.Super

WimpSlot -Min 64K
If "<Wimp$Scrap>"="" Then Set Wimp$Scrap <FontInst$Dir>.ScrapFile

Run <FontInst$Dir>.!RunImage
