Set Zip2000$Dir <Obey$Dir>
IconSprites <Zip2000$Dir>.!Sprites
Set File$Type_061 Z-Code1
Set File$Type_062 Z-Code2
Set File$Type_063 Z-Code3
Set File$Type_064 Z-Code4
Set File$Type_065 Z-Code5
Set File$Type_066 Z-Code6
Set File$Type_067 Z-Code7
Set File$Type_068 Z-Code8
Set File$Type_11A Z-Code
Set File$Type_17B Blorb
Set File$Type_17C Quetzal
Set Alias$@RunType_061 /<Zip2000$Dir> 
Set Alias$@RunType_062 /<Zip2000$Dir> 
Set Alias$@RunType_063 /<Zip2000$Dir> 
Set Alias$@RunType_064 /<Zip2000$Dir> 
Set Alias$@RunType_065 /<Zip2000$Dir> 
Set Alias$@RunType_066 /<Zip2000$Dir> 
Set Alias$@RunType_067 /<Zip2000$Dir> 
Set Alias$@RunType_068 /<Zip2000$Dir> 
Set Alias$@RunType_11A /<Zip2000$Dir> 
Set Alias$@RunType_17B /<Zip2000$Dir> 
Set Alias$@RunType_17C /<Zip2000$Dir> 

IF "%0"="" THEN Error To use Zip 2000, double-click on a story file

Set Zip2000Save$Path <Zip2000$Dir>.Resources.SavedGames.
Set Zip2000$ChoicesFile <Zip2000$Dir>.Choices
Set Zip2000Files$Path <Zip2000$Dir>.Resources.Files.

Set System$Path_Message System resources cannot be found

RMEnsure UtilityModule 3.10 Error You need RISC OS 3.10 or later to run Zip 2000

RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.02 Error You need CallASWI 0.02 or later to run Zip 2000

RMEnsure FPEmulator 4.03 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 4.03 Error You need FPEmulator 4.03 or later to run Zip 2000

RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 5.46 Error You need C Library 5.46 or later to run Zip 2000

RMEnsure Toolbox 1.44 RMLoad System:Modules.Toolbox.Toolbox
RMEnsure Toolbox 1.44 Error You need Toolbox 1.44 or later to run Zip 2000

RMEnsure Window 1.57 RMLoad System:Modules.Toolbox.Window
RMEnsure Window 1.57 Error You need Window Object 1.57 or later to run Zip 2000

RMEnsure Menu 0.23 RMLoad System:Modules.Toolbox.Menu
RMEnsure Menu 0.23 Error You need Menu 0.23 or later to run Zip 2000

RMEnsure ProgInfo 0.09 RMLoad System:Modules.Toolbox.ProgInfo
RMEnsure ProgInfo 0.09 Error You need ProgInfo 0.09 or later to run Zip 2000

RMEnsure Iconbar 1.11 RMLoad System:Modules.Toolbox.IconBar
RMEnsure Iconbar 1.11 Error You need Iconbar 1.11 or later to run Zip 2000

RMEnsure DCS 1.06 RMLoad System:Modules.Toolbox.DCS_Quit
RMEnsure DCS 1.06 Error You need DCS Object 1.06 or later to run Zip 2000

| FontMenu 0.17 will do, but 0.18-0.23 have problems
SetEval Zip2000$NeedFontMenu 0
RMEnsure FontMenu 0.24 SetEval Zip2000$NeedFontMenu 1
RMEnsure FontMenu 0.18 SetEval Zip2000$NeedFontMenu 0
RMEnsure FontMenu 0.17 SetEval Zip2000$NeedFontMenu 1
If Zip2000$NeedFontMenu Then RMLoad System:Modules.Toolbox.FontMenu
SetEval Zip2000$NeedFontMenu 0
RMEnsure FontMenu 0.24 SetEval Zip2000$NeedFontMenu 1
RMEnsure FontMenu 0.18 SetEval Zip2000$NeedFontMenu 0
RMEnsure FontMenu 0.17 SetEval Zip2000$NeedFontMenu 1
If Zip2000$NeedFontMenu Then Error You need FontMenu 0.17, or 0.24 or later to run Zip 2000
Unset Zip2000$NeedFontMenu

RMEnsure SaveAs 0.11 RMLoad System:Modules.Toolbox.SaveAs
RMEnsure SaveAs 0.11 Error You need SaveAs 0.11 or later to run Zip 2000

RMEnsure ColourDbox 0.15 RMLoad System:Modules.Toolbox.ColourDbox
RMEnsure ColourDbox 0.15 Error You need ColourDbox 0.15 or later to run Zip 2000

IF "<Font$Bold>"="" THEN Set Font$Bold "Bold Demi ExtraBold Ultra Heavy"
IF "<Font$Italic>"="" THEN Set Font$Italic "Italic Oblique Slant"

WimpSlot 256k 256k
Run <Zip2000$Dir>.!RunImage %*0
