| To install to HD:
| 1. Create a !Confusion directory
| 2. Open !Confusion by Shift-Double left click
| 3. Copy the contents of the Confusion directory to !Confusion
| 4. Save this file as !Confusion.!Run
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.Confusion
StoreCSD
DIR <Obey$Dir>

RMAFree 256
ScreenSize 160
SpriteFree 32

RMEnsure FPEmulator 0.0 RMLoad FPEmulator
WimpSlot -min 256K -max 256K
| Bugfix: FX 113 is missing the bank
LOAD TitleData
ADFCRC 8000 D008 17112B97 TitleData
MEMA CF5C 00312C33
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| Fix exit code in sound Modules
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 300 E92D401F E1A0F00E EXPLODE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 300 E92D401F E1A0F00E H
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 300 E92D401F E1A0F00E ITTPCE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 300 E92D401F E1A0F00E GAMEOVER
RMEnsure EXPLODE 0.0 RMLoad Effects.CIS3
RMEnsure H 0.0 RMLoad Effects.DIEM
RMEnsure ITTPCE 0.0 RMLoad Effects.ITTPC
RMEnsure GAMEOVER 0.0 RMLoad Effects.GAMEM
ChannelVoice 1 ITTPCE
FX 200,2
PRINT Text
ECHO <22><13><12><23><1><0><0><0><0><0><0><0><0>
ECHO  Confusion
ECHO
ECHO  is Loading
ECHO
ECHO  Please Wait
Sound 1 65520 15 1
ADFPause 250
ChannelVoice 1 H
Set Alias$CH.1 ChannelVoice 1 %%*0

ADFJoystickKeys J1 B4=95
ADFJoystickMouse J1 10% S=B1 M=B2 A=B3
GO 8000
ADFJoystickMouse
ADFJoystickKeys
UnSet Alias$CH.1
Set kill$module Y
RMEnsure EXPLODE 0.0 UnSet kill$module
IF "<kill$module>"="Y" THEN RMKill EXPLODE
Set kill$module Y
RMEnsure H 0.0 UnSet kill$module
IF "<kill$module>"="Y" THEN RMKill H
Set kill$module Y
RMEnsure ITTPCE 0.0 UnSet kill$module
IF "<kill$module>"="Y" THEN RMKill ITTPCE
Set kill$module Y
RMEnsure GAMEOVER 0.0 UnSet kill$module
IF "<kill$module>"="Y" THEN RMKill GAMEOVER
UnSet kill$module
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
RestoreCSD