| To HD install:
| 1. Copy !FRED to the HD
| 2. Copy the floppy image as !FRED.F1072101
| 3. Replace the contents of !FRED.!Run with
|     ADFBootFloppy F1072101
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!FRED
IfThere <Obey$Dir>.F1072101 THEN ADFMount <Obey$Dir>.F1072101
LOAD <Obey$Dir>.!RunImage 8000
ADFCRC 8000 93DC EBA590C0 !RunImage
HideCommandWindow
RMEnsure TrackerModule 5.05 RMLoad ADFFS:trackers.TrackerMod

Set FRED$DIR <Obey$Dir>
Set F$Dir <Obey$dir>
ADFScreenLoad <FRED$DIR>.FREDLoad
RMAFree 116
PlayInit <FRED$DIR>.Modules.FredTune
PlayStart
WimpSlot -min 420k -max 420k
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
IF ADFFS$OSVersion<&50000 THEN RMEnsure JoyStick RMLoad <FRED$DIR>.Modules.JoyPatch
RMLoad <FRED$DIR>.Modules.Decompmod
RMLoad <FRED$DIR>.Modules.Click1
RMLoad <FRED$DIR>.Modules.Collect
RMLoad <FRED$DIR>.Modules.Door
RMLoad <FRED$DIR>.Modules.Explosion
RMLoad <FRED$DIR>.Modules.FootStep
RMLoad <FRED$DIR>.Modules.GameOver
RMLoad <FRED$DIR>.Modules.Lift1
RMLoad <FRED$DIR>.Modules.Mirror
RMLoad <FRED$DIR>.Modules.Swoosh
RMLoad <FRED$DIR>.Modules.Jump

| Decrypt !RunImage
MEMA 9000 240048 42C E51F4010 E28F0FE7 E3A01902 E51F2018 E0822000 E4903004 E0233004 E4813004 E1500002 BAFFFFFA EF000011
GO 9008
MEMA 8410 EF000011
GO 8000
| Bugfix: Page Zero access @ FF4C
MEMA FF4C E7917106
GO 8414

Set kill$module Y
RMEnsure TrackerModule 0.0 UnSet kill$module
IF "<kill$module>"="Y" THEN RMKill TrackerModule
UnSet kill$module
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
UnSet FRED$DIR
UnSet F$Dir