| To install to HD:
| 1. Copy !HRR from disc 1 to HD
| 2. Copy !HRR_B.Cars2 from disc 2 into !HRR
| 3. Copy !HRR_B.DataB from disc 2 into !HRR
| 4. Copy !HRR_B.Levels from disc 2 into !HRR
| 5. Replace the contents of !Run with:
|    ADFBootFloppy F1019701

IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::HRR_1.$.!HRR
IconSprites <Obey$Dir>.!Sprites
Set File$Type_AE8 SaveGame
Set HRR$Dir <Obey$Dir>
WimpSlot  -min 208k -max 208k
LOAD <HRR$Dir>.!RunImage
| Which version?
SetEval HRR$ver 0
ADFCRC 8000 1B61F
IF ADFFS$CRC=&AC57DBF1 THEN SetEval HRR$ver 121
IF HRR$ver=0 THEN ADFCRC 8000 1481F
IF ADFFS$CRC=&9395F713 THEN SetEval HRR$ver 123
IF HRR$ver=0 THEN ERROR 0 Unknown verson of HRR
Set HRRDataA$Dir |<HRR$Dir>.DataA.
Set HRRKey$Map |<HRR$Dir>.Resources.table
Set HRRCars1$Dir |<HRR$Dir>.Cars1.
IfThere <Obey$Dir>.Cars2.car1 THEN Set HRRDataB$Dir |<HRR$Dir>.DataB.
IfThere <Obey$Dir>.Cars2.car1 THEN Set HRRLevels$Dir |<HRR$Dir>.Levels.
IfThere <Obey$Dir>.Cars2.car1 THEN Set HRRCars2$Dir |<HRR$Dir>.Cars2.
IF "<HRRDataB$Dir>"="" THEN Set HRRDataB$Dir ADFS::HRR_2.$.!HRR_B.DataB.
IF "<HRRLevels$Dir>"="" THEN Set HRRLevels$Dir ADFS::HRR_2.$.!HRR_B.Levels.
IF "<HRRCars2$Dir>"="" THEN Set HRRCars2$Dir ADFS::HRR_2.$.!HRR_B.Cars2.
RMEnsure QTMTracker 1.45 RMLoad ADFFS:trackers.QTMModule

IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
MEMA 8004 EF000011
GO 8000
| Don't use stack for SWI
IF HRR$ver=121 THEN MEMA 264F4 E3100102 03800802 E3C0C4FF E89103FF EF000071 EA000005
| Bugfix: Page Zero access @ 1B384
IF HRR$ver=121 THEN MEMA 10BD4 E24DD080 >10C20 E3A0107D >10CD4 E3A0107D
| Bugfix: Buffer overflow reading <HRRKey$Map>
IF HRR$ver=123 THEN MEMA 10EAC E24DD080 >10EF8 E3A0107D >10FAC E3A0107D
GO 8008
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
UnSet HRR$Dir
UnSet HRRDataA$Dir 
UnSet HRRDataB$Dir 
UnSet HRRLevels$Dir
UnSet HRRKey$Map
UnSet HRRCars1$Dir 
UnSet HRRCars2$Dir
UnSet HRR$ver