IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::Asylum.$.!Asylum

| Set the next line to the screen mode to use. 013 and 049 are the defaults
Set AsylumMode 013
| Allocate double the requested screen size, 160 for 13 and 300 for 49
ScreenSize 160

HideCommandWindow
Set Asylum$Dir <Obey$Dir>
Set Asylum$Path <Obey$Dir>.
Set PsychoResource$Path Asylum:Resources.
Set PsychoEgo$Path Asylum:!Ego.
Set PsychoPsyche$Path Asylum:!Psyche.
Set PsychoId$Path Asylum:!Id.
Set Asylum$Reset No
WimpSlot -min 480k -max 480k
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT 0
Asylum:Resources.Title
ADFPause 100
RMLoad Asylum:Modules.Stasis game
| Prevent Abort in BodgeMusic
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 1EC EF047D4A E1A00000 BodgeMusic
! Fix bug in BodgeMusic
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 520 EF000020 EF020020 BodgeMusic
RMLoad Asylum:Modules.BodgeMusic
RMLoad Asylum:Modules.FastSpr
| Fix VSync wait in Blitz
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 248 BA000007 EF020013 Blitz
! Fix bug in Blitz
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 1D8 EF000020 EF020020 Blitz
RMLoad Asylum:Modules.Blitz

StasisLink 1 1
StasisLink 2 2
StasisLink 3 3
StasisLink 4 4
StasisLink 5 5
StasisLink 6 6
StasisLink 7 7
StasisLink 8 8
StasisLoad 1 Asylum:Voices.Jump
StasisLoad 2 Asylum:Voices.Bonus
StasisLoad 3 Asylum:Voices.Explo
StasisLoad 4 Asylum:Voices.AtomExplo
StasisLoad 5 Asylum:Voices.Cannon
StasisLoad 6 Asylum:Voices.Rocket
StasisLoad 7 Asylum:Voices.Hiss
StasisLoad 8 Asylum:Voices.Stunned
StasisLoad 9 Asylum:Voices.SmallZap
StasisLoad 10 Asylum:Voices.BigZap
StasisLoad 16 Asylum:Voices.Organ
StasisLoad 17 Asylum:Voices.Plink
StasisLoad 18 Asylum:Voices.PlinkHard
StasisLoad 19 Asylum:Voices.Raver
StasisLoad 20 Asylum:Voices.Dome
StasisLoad 21 Asylum:Voices.NasalStr
StasisLoad 22 Asylum:Voices.BassHollow
StasisLoad 23 Asylum:Voices.NasalBass
StasisLoad 24 Asylum:Voices.BassDrum
StasisLoad 25 Asylum:Voices.Snare
StasisLoad 26 Asylum:Voices.Cymbal
StasisLoad 31 Asylum:Voices.AtomExplo

| Bugfix: Allow the MODE to be set
KEY 0 230flags=0|M370QUIT|M520IF(flags AND 1)=1 THEN|MRUN|F|M
ECHO <22><13><21>
FX 225,1
FX 21,0
FX 138,0,128
BASIC -load Asylum:Code.!RunImage3
RMKill Blitz
RMKill BodgeMusic
RMKill Stasis
RMKill FastSpr

IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT
UnSet Asylum$Reset
UnSet AsylumMode