IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::DemonsLair.$.!DemonLair

IconSprites <Obey$Dir>.!Sprites
WIMPSLOT -min 400K -max 400K
RMAFree 90
SET Demon$Dir <Obey$Dir>
Set Disc1$Dir <Obey$Dir>.
SET Alias$@RunType_800 Run <Demon$Dir>.!Run %%*0
RMEnsure ExSound 4.01 RMLoad ADFFS:trackers.ExSound
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
RMLoad <Demon$Dir>.ReadDisc
BASIC -quit <Demon$Dir>.Intro

| Prevent vector claims in Hob
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1F8 E3A00009 EA00001D Hob
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 288 EF00003B E1A00000 Hob
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 3D4 E3A00009 E8FD8000 Hob

| Fix FileV vector code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 818 E3300000 EA000000 Hob
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 820 13300002 E92D4000 Hob
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 824 13300003 E51FE010 Hob
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 828 13300004 E13E0000 Hob
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 82C 13300007 08BD8000 Hob
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 830 13300008 E50F001C Hob
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 83C 0AFFFF19 E1A00000 Hob
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 858 092D8000 18BD8000 Hob
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 85C E1B0F00E EF020008 Hob
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 860 E1A00000 E50FE04C Hob
<Demon$Dir>.Bluebottle

BASIC -quit "<Demon$Dir>.!Runimage" %*0
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT