IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!Pandora
HideCommandWindow
SpriteFree 64
ScreenSize 240
ECHO <22><13>
Set Merlin$Dir <Obey$Dir>
Set Pandora$Dir <Merlin$Dir>.Object
Set PB$DIR <Merlin$Dir>.Data
Set Disc2$Dir <Obey$Dir>
Set Disc3$Dir <Obey$Dir>

WimpSlot -min 1000K -max 1000K
IF ADFFS$OSVersion>=&50000 THEN GOARM4JIT 0

| Fix Page Zero access bugs in Code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 9F0 E5D4401B E5D4501B Paint
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA A00 E084400A E085500A Paint
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA A04 E1540001 E1550001 Paint

KEY 0 130|M140QUIT|MRUN|F|M
ECHO <21>
FX 225,1
FX 21,0
FX 138,0,128
BASIC -load <Merlin$Dir>.!Runimage

| Bugfix: F3 to mute/unmute corrupts the stack
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 118E8 01A0F00E 08FD9FFF

KEY 0 40MODE15:MODE13:OFF:A%=-1|MRUN|F|M
ECHO <21>
FX 21,0
FX 138,0,128
BASIC -load <Pandora$Dir>.Basic
IF ADFFS$OSVersion>=&50000 THEN GOARM4JIT
UnSet Merlin$Dir
UnSet Pandora$Dir
UnSet PB$DIR
UnSet Disc2$Dir
UnSet Disc3$Dir