| To HD install:
| 1. Create a !Cycloids directory on the HD
| 2. Create !Cycloids.!Boot with the following contents:
|      Set Cycloids$Dir <Obey$Dir>.!Cycloids
|      IconSprites <Cycloids$Dir>.!Sprites
| 3. Create !Cycloids.!Run with the following contents:
|       ADFBootFloppy F1010301
| 4. Copy the floppy image as !Cycloids.F1010301
| 5. Copy !Cycloids and !CycKeys from floppy into !Cycloids
| 6. Run via !Cycloids created in step 1
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::Cycloids.$.!Cycloids
IfThere <Obey$Dir>.F1010301 THEN ADFMount <Obey$Dir>.F1010301
IfThere <Obey$Dir>.!Cycloids THEN Set Obey$Dir <Obey$Dir>.!Cycloids
ScreenSize 160
RMEnsure QTMTracker 1.45 RMLoad ADFFS:trackers.QTMModule
Set Cycloids$Dir <Obey$Dir>
IF ADFFS$OSVersion>=&50000 THEN ADFEmulateRISCOS 3.11
WimpSlot -min 1024K -max 1024K
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
RMLoad <Cycloids$Dir>.Code.CycMod
| Enable SFX and Music
MEMA 8000 E3A00003 EF0DF002 E3A00004 EF0DF004 EF000011
GO 8000
RMLoad <Cycloids$Dir>.Code.DecompMod
FX 200 3
FX 12 0
IF ADFFS$CPUID<&A10 THEN FX 13 11 0
FX 11 20
Tuning 0
Tuning -&1000
Tuning -&2000
Set Alias$Cache ADFDoNothing %%*0
| Don't load PlayMod
Load <Cycloids$Dir>.Code.Processor 8000
ADFCRC 8000 8164 F38D9C13 Code.Processor
MEMA 8070 E1A00000 >808C E1A00000
GO 8000

<Cycloids$Dir>.Code.S42Logo
<Cycloids$Dir>.Code.Loading
| Bugfix: EventV code doesn't check the event number
IF ADFFS$CPUID>=&A10 THEN MEMA 107FF0 E3300004 11A0F00E E92D0FFE EAFC1B40
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P ED00 E92D0FFE EA03E4BA
| Bugfix: Page Zero access in Cocoplex player
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P 9118 E89D003E E8BD01FE
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P 911C E1A00003 E1B00003
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA P 9124 E28DD020 0A001680

<Cycloids$Dir>.Code.Game
UnSet Alias$Cache
SetEval kill$module 1
RMEnsure Decompressor 0.0 SetEval kill$module 0
IF kill$module THEN RMKill Decompressor
SetEval kill$module 1
RMEnsure CycloidsModule 0.0 SetEval kill$module 0
IF kill$module THEN RMKill CycloidsModule
FX 200 0
Tuning 0
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&50000 THEN ADFEmulateRISCOS
RMKill QTMTracker
UnSet kill$module
UnSet Process$Version