| To HD install:
| 1. Copy !FRED to the HD
| 2. Copy the floppy image as !FRED.F1016601
| 3. Replace the contents of !FRED.!Run with
|     ADFBootFloppy F1016601
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!FRED
IfThere <Obey$Dir>.F1016601 THEN ADFMount <Obey$Dir>.F1016601
HideCommandWindow
StoreCSD
DIR <Obey$Dir>
IF ADFFS$CPUID>=&A10 THEN ADFRemapVideoMemory 15 160 ELSE ScreenSize 160
RMAFree 116

RMEnsure TrackerModule 5.05 RMLoad ADFFS:trackers.TrackerMod

WimpSlot -min 420k -max 420k
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0

Set FRED$DIR <Obey$Dir>
Set FRED$DIR <Obey$Dir>
RMEnsure ArcFS Run <FRED$DIR>.Modules.ArcFSMod
-ArcFS-HourGlass 0
ECHO <22><15>
ECHO <23><1><0><0><0><0><0><0><0><0>
<FRED$DIR>.Loader
PlayInit <FRED$DIR>.Modules.FredTune
PlayStart
IF ADFFS$OSVersion<&50000 THEN RMEnsure JoyStick RMLoad <FRED$DIR>.Modules.JoyPatch
RMLoad <FRED$DIR>.Modules.Click1
RMLoad <FRED$DIR>.Modules.Collect
RMLoad <FRED$DIR>.Modules.Door
Run <FRED$DIR>.Modules.Explosion
RMLoad <FRED$DIR>.Modules.FootStep
RMLoad <FRED$DIR>.Modules.GameOver
Run <FRED$DIR>.Modules.Lift1
RMLoad <FRED$DIR>.Modules.Mirror
Run <FRED$DIR>.Modules.Swoosh
RMLoad <FRED$DIR>.Modules.Jump

| Decrypt !RunImage
LOAD <FRED$DIR>.!RunImage 8000
ADFCRC 8000 13B90 85AAA9DB !RunImage
MEMA 13B8C EF000011
GO 8000;/DiskProtectionbyMJohnson 1992\
MEMA 13AF4 EF000011
GO 8000;/DiskProtectionbyMJohnson 1992\
MEMA 13A74 EF000011
GO 8000;/DiskProtectionbyMJohnson 1992\
MEMA 139DC EF000011
GO 8000;/DiskProtectionbyMJohnson 1992\
MEMA 1395C EF000011
GO 8000;/DiskProtectionbyMJohnson 1992\
MEMA 138C8 EF000011
GO 8000
| Final decrypt stage
|   EOR value    Original     Replacement
|   07BBE6EA EOR E50F7004 EOR EF000011 = DB496FF
MEMA 8CCC DB496FF
GO 8000
MEMA 24550 EF000011
GO 24000
| Bugfix: Page Zero access @ FF4C
MEMA FF4C E7917106
GO 9004
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
IF ADFFS$CPUID>=&A10 THEN ADFRemapVideoMemory
UnSet FRED$Dir
RestoreCSD