IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!Chocks
StoreCSD
DIR ADFS::0.$
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 13 160 ELSE ScreenSize 160
SpriteFree 56
RMAFree 120
HideCommandWindow
WimpSlot -MIN 600K -MAX 600K
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
ADFSCREENLOAD <Obey$Dir>.!Piccy
ECHO <23><1><0><0><0><0><0><0><0><0>
ECHO <19><1><24><255><255><255>
ADFPause 100
RMEnsure Joystick 0.0 RMLoad <Obey$Dir>.SOUNDS.JOYSTICK
RMLOAD <Obey$Dir>.SOUNDS.GUNMD2
RMLOAD <Obey$Dir>.SOUNDS.WHEELMD
RMLOAD <Obey$Dir>.SOUNDS.EXPLODEMD2
RMLOAD <Obey$Dir>.SOUNDS.EXPLODEMD3
RMLOAD <Obey$Dir>.SOUNDS.ENGINE
SLOAD  <Obey$Dir>.SPRITES.SPRITES
SMERGE <Obey$Dir>.SPRITES.2PLAYER
<Obey$Dir>.SPRITES.CHOCKCHAR

| Prevent vectors being taken over
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA A0 E3A00009 E8FD801F REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 120 0A000025 E1A00000 REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 134 EF000020 EF020020 REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 138 E3A00009 E8FD8000 REDBARON

| Fix FileV vector code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4C4 E3300000 EA000000 REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4CC 13300002 E92D4000 REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4D0 13300003 E51FE010 REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4D4 13300004 E13E0000 REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4D8 13300007 08BD8000 REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4DC 13300008 E50F001C REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4E8 0AFFFF33 E1A00000 REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 504 092D8000 18BD8000 REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 508 E1B0F00E EF020008 REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 50C E1A00000 E50FE04C REDBARON
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 534 E8FD8000 E8FDC000 REDBARON
| Add error free Joystick check and correct the exit code
ADFForceVSync 4
KEY 0 SYS &EFFC0 TO J%|M5840IF D%>0 AND A%<240 THEN QUIT|MRUN|F|M
ECHO <21>
FX 225,1
FX 21,0
FX 138,0,128
<Obey$Dir>.FLAPS
BASIC -load <Obey$Dir>.CHOCKSAWAY
FX 20
ADFForceVSync 0
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
RestoreCSD