IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::RedShift.$.!RedShift
StoreCSD
Dir <Obey$Dir>.RedShift
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 13 80 ELSE ScreenSize 80
echo <22><0><23><1><0><0><0><0><0><0><0><0>

RMKill Percussion
RMKill StringLib
RMKill WaveSynth
RMReInit Percussion

IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
WimpSlot -min 246K -max 246K
Run RSScreen
FX 200 3
RMLoad RSSound
| Bug fix: Page Zero access in RSSND
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 314 E3510000 E3500000 RSSND
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 318 EB000003 1B000003 RSSND
RMLoad RSSnd
ChannelVoice 1 Laser_Effect
ChannelVoice 2 Percussion-Snare
ChannelVoice 3 Abrupt_SINE
ChannelVoice 4 7

| Bug fix: Releasing a ticker that doesn't exist
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 86B0 EF00003D E1A00000

| Keys    Joystick
| Arrows             - Movement
| SPACE   B2/B6 (RB) - Turbo
| ALT     B1         - Fire
| 1       B3         - Start 1-player game
| P       B8 (Start) - Pause
| ESC     B7 (Back)  - Abort game
ADFJoystickKeys U=89 D=99 L=98 R=100 B1=94 B2=95 B6=95 B7=0 B8=48 B3=17
Run RSCode
ADFJoystickKeys
RMKill RSSND
RMKill RedShiftSound
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
RMKill Percussion
RMReInit WaveSynth
RMReInit StringLib
RMReInit Percussion
ChannelVoice 1 1
RestoreCSD
