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

Set Invasion$Dir <Obey$Dir>
Set Invd$Dir <Obey$Dir>

| Keys   Joystick
| Z         - Left
| X         - Right
| RETURN B1 - Fire
| SPACE  B2 - Shield
ADFJoystickKeys J1 L=78 R=79 B1=71 B2=95
ScreenSize 120K
SpriteFree 16K
RmaFree 128K
ADFVoices 1
WimpSlot -min 544K -max 544K
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT 0
| Bugfix: Page Zero access
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 BaseFire
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 BaseFire
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 InvaderExplosion
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 InvaderExplosion
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 Saucer
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 Saucer
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 BaseExplosion
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 BaseExplosion
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 InvaderBombThud
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 InvaderBombThud
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 SpokenIntroduction
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 SpokenIntroduction
RMLoad <Invasion$Dir>.Modules.FIRE_M
RMLoad <Invasion$Dir>.Modules.INVEXPLO_M
RMLoad <Invasion$Dir>.Modules.SAUCER_M
RMLoad <Invasion$Dir>.Modules.BASEEXPL_M
RMLoad <Invasion$Dir>.Modules.THUD_M
RMLoad <Invasion$Dir>.Modules.INTRO_M
Tuning -16383
Tuning 0
SOUND 1 381 6500 25
RMLoad <Invasion$Dir>.Modules.Switch
RMLoad <Invasion$Dir>.Modules.Plotter

Set Alias$ScreenLoad ADFScreenLoad %*0
| Add time delay on menu
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P B7D0 1A000018 03590000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P B7D4 E3590000 1A000017
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P B7D8 1A000016 E59C0000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P B7DC E59C0000 E3500000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P B7E0 E3500000 059C0004
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P B7E4 1A000013 03500000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P B7E8 E59C0004 03560000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P B7EC E3500000 1A000011
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P B7F0 1A000010 E3A00013
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P B7F4 E3560000 EF020006
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P B7F8 1A00000E E1A00000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P B808 E3500E7D E35000FA

ADFForceVSync 4
Run <Invasion$Dir>.BasicProgs.Menu
ADFJoystickKeys
ADFForceVSync 0
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT
FX 20
UnSet Alias$ScreenLoad
UnSet Invasion$Dir
UnSet Invd$Dir
ADFVoices 8