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 ZipSave$Path <Zip2000$Dir>.Resources.SavedGames.
Set Zip2000$ChoicesFile <Zip2000$Dir>.Choices

Set System$Path_Message System resources cannot be found

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

RMEnsure Window 1.30 RMLoad System:Modules.Toolbox.Window
RMEnsure Window 1.30 Error You need Window Object 1.30 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 FileInfo 0.14 RMLoad System:Modules.Toolbox.FileInfo
RMEnsure FileInfo 0.14 Error You need FileInfo 0.14 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

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

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

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
