IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::CheqFlag.$.!CheqFlag
StoreCSD
Dir <Obey$Dir>
Set CF$Dir <Obey$Dir>

RMEnsure FPEmulator 2.80 RMLoad FPEmulator
RMEnsure FPEmulator 2.80 Error You need FPEmulator 2.80 or later

IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS 3.11
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| Bugfix: Page Zero access @ +290
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 250 E3750001 E3550000 Engine
RMEnsure Engine 0.0 RMLoad Engine
RMEnsure Skid 0.0 RMLoad Skid
RMEnsure Crash 0.0 RMLoad Crash
RMEnsure Curb 0.0 RMLoad Curb
RMEnsure Jump 0.0 RMLoad Jump

ScreenSize 320K Echo Not enough screen memory!
WimpSlot -min 288K -max 288K
Run CF_Intro

ScreenSize 160K Echo Not enough screen memory!
WimpSlot -min 584K -max 584K
| Keys    Joystick
| A       B6 (RB)    - Up gear
| Z       B5 (LB)    - Down gear
| Ctrl    B3         - Engage clutch
| E       B8 (Start) - Start engine
ADFJoystickKeys J1 B5=78 B6=60 B3=59 B8=41
ADFJoystickMouse J1 S=B1 M=B2
Run GP
ADFJoystickMouse
ADFJoystickKeys
IF ADFFS$JIT=0 THEN RMKill Engine
IF ADFFS$JIT=0 THEN RMKill Skid
IF ADFFS$JIT=0 THEN RMKill Crash
IF ADFFS$JIT=0 THEN RMKill Curb
IF ADFFS$JIT=0 THEN RMKill Jump
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS
UnSet CF$Dir
RestoreCSD