| To install to HD:
| 1. Run !Install
| 2. Replace the contents of !ChprForce.!Run with:
|  ADFBootFloppy F1050401
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::ChoppForce.$.!ChprForce
HideCommandWindow
WimpSlot -MIN 704K -MAX 704K
Set Disc1$Dir <Obey$Dir>.
IF ADFFS$OSVersion>=&50000 THEN GOARM4JIT 0
IF ADFFS$OSVersion>=&50000 THEN Set Alias$Cache ADFCache %%*0
| Fix bug in READDISC, which loads code via OS_File 14 without setting R3=1<<31
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 2F4 E3A03000 E3A03102 READDISC
RmLoad <Obey$Dir>.!SETUP1A
<Obey$Dir>.!SETUP1
Set Disc2$Dir <Obey$Dir>
| Bug fix: Page Zero read in ChopperForceIntro
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA A4 E3A00002 E3A00008 ChopperForceIntro
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA D0 EF040140 EB000041 ChopperForceIntro
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 200 E3A03000 E3A03902 ChopperForceIntro
Set Alias$SCREENLOAD ADFScreenLoad %%*0
BASIC -quit <Obey$Dir>.CHOPINTRO
UnSet Alias$SCREENLOAD
ScreenSize 160
<Obey$Dir>.!SETUP2

| Bug fix: Page Zero read and unpredictable instructions
ECHO <21>
KEY 0 820Z%=P%:FOR P%=GfH3+&282EC TO GfH3+&8103C STEP 4:IF (!P% AND &FFFFC000)=&E96D4000 P%?2=&2D|M630hard%=-1|M
KEY 1 830NEXT:P%=GfH3+&80278:[OPT 2:TEQ R3,#0:MOVEQ PC,R14:STR R1,P%-24:STMFD R13!,{R0,R2-R12,R14}:ADR R1,P%-16888:]:P%=Z%|M*unset key$*|MRUN|F|M

FX 225,1
FX 21,0
FX 138,0,128
FX 138,0,129
BASIC -load <Obey$Dir>.GAME
IF ADFFS$OSVersion>=&50000 THEN GOARM4JIT
IF ADFFS$OSVersion>=&50000 THEN UnSet Alias$Cache
UnSet Disc1$Dir
UnSet Disc2$Dir
UnSet Disc3$Dir
UnSet Disc4$Dir