IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!RoboCod
StoreCSD
DIR <Obey$Dir>

Set Robocod$Dir <Obey$Dir>
Set JamesPond$DataDir <Obey$Dir>

IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS 3.11
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 13 160 ELSE ScreenSize 160
WimpSlot -min 520k -max 520k
IF ADFFS$OSVersion>=&35000 THEN GOARM3JIT 0
| Prevent Hardware vectors being changed
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 8024 E890007F E1A00000
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 8324 E88A007F E1A00000
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 80A8 E887007F E1A00000

Run !RunImage
IF ADFFS$OSVersion>=&35000 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS
UnSet Robocod$Dir
UnSet JamesPond$DataDir
RestoreCSD