| Run file for !ZapFonts
| (c) Zap Developers

| Find operating system version
If "<Zap$OSVsn>" <> "" Then SetEval ZapFonts$OSVsn <Zap$OSVsn>
If "<ZapFonts$OSVsn>" = "" Then SetEval ZapFonts$OSVsn 400
If "<ZapFonts$OSVsn>" = "" Then RMEnsure UtilityModule 4.00 SetEval ZapFonts$OSVsn 350
If "<ZapFonts$OSVsn>" = "" Then RMEnsure UtilityModule 3.50 SetEval ZapFonts$OSVsn 300
If "<ZapFonts$OSVsn>" = "" Then RMEnsure UtilityModule 3.10 SetEval Zap$OSVsn 200

| Load sprites
Set ZapFontsSprites$Path <Obey$Dir>.Resources.<ZapFonts$OSVsn>.,<Obey$Dir>.Resources.
IconSprites ZapFontsSprites:!Sprites
Unset ZapFontsSprites$Path
Unset ZapFonts$OSVsn

| Set up external access paths
Set ZapFontsSource$Path <Obey$Dir>.Fonts.
Set ZapFonts$Path ZapFontsSource:
Set Zap$Redraw <Obey$Dir>.ZapRedraw
If "<Sys$Country>" = "" Then Set Sys$Country "<Zap$Country>"
If "<Sys$Country>" = "" Then Set Sys$Country UK
Set ZapFontsMessages$Path <Obey$Dir>.Resources.<Sys$Country>.,<Obey$Dir>.Resources.UK.

| And open the font directory
Do Filer_OpenDir <Obey$Dir>.Fonts