IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::BloodSport.$.!BloodSprt
HideCommandWindow
Set FIGHTER$Dir <Obey$Dir>
ScreenSize 160
ECHO <22><13>
RMAFree 160
Wimpslot -min 680K -max 680K
IF ADFFS$OSVersion>=&35000 THEN GOARM3JIT 0
| Prevent direct return to the desktop, so we can clean up
Set Alias$DESKTOP ADFDoNothing
Run <FIGHTER$Dir>.weird
| Prevent it running <FIGHTER$Dir>.STUFF, so we can bug fix
Set Alias$run ADFDoNothing
<FIGHTER$Dir>.!RunImage
UnSet Alias$run

| Bug fix in FIGHT2: using the wrong function entry addresses
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 33728 E2800E05 E2800074
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 337F8 E2800E26 E2800E27

| Add key debounce and a delay to the main game loop
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 118EC E3A00089 EF0793C6
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 118F0 E3800CFF E3A00013
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 118F4 E38008FF EF020006
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 118F8 E38004FF E3E00076

| Add key debounce to the key change
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 15064 E3A03000 EF0793C6
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 15068 E58C3BE4 E58C4BE4

| Clean exit code
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 330A0 1A000035 EA00004D
IF ADFFS$OSVersion>=&35000 THEN JITMEMORYA 331F8 EBFF63BF E1A00000

ADFJoystickKeys J1 R=79 L=78 U=70 D=87 B1=95 J2 R=69 L=66 U=67 D=63 B1=68
| Player 1   Player2
| Z          J       - Left
| X          ;       - Right
| '          K       - Up
| /          F       - Down
| SPACE      L       - Fire

| Bug fix: relocate code33% and clearr% to the correct location
KEY 0 1900|M1995.code33%|M2150|M2195.clearr%|M2560QUIT|MRUN|F|M
ECHO <21>
FX 225,1
FX 21,0
FX 138,0,128
BASIC -load <FIGHTER$Dir>.STUFF
ADFJoystickKeys
UnSet Alias$DESKTOP
UnSet FIGHTER$Dir
IF ADFFS$OSVersion>=&35000 THEN GOARM3JIT