| To HD install:
| 1. Copy !Gribbly to HD
| 2. Delete !Gribbly.!Boot
| 3. Replace the contents of !Gribbly.!Run with:
|  ADFBootFloppy F1017901
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!Gribbly

Set Gribb$Dir <Obey$Dir>
WimpSlot -min 600k -max 600k
LOAD <Gribb$Dir>.Loader 90000
ADFCRC 90000 90824 E6A25A31 Loader
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 13 160 ELSE ScreenSize 160
IF ADFFS$CPUID>=&A10 THEN ADFEmulateRISCOS 3.11
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| Decrypt phase 1
MEMA 90054 E1A00000 E5C03000 >9006C EF000011
GO 90038
| Decrypt phase 2
MEMA 8FF80 E28F1F61 E28FBE15 E3A00E6B E3A07000 E3A03000 E3A05000 E1A06000 E7D12003 E7DB4005 E0222006 E0222004 E7C12003
MEMA 8FFB0 E2855001 E2833001 E355002C 03A05000 E1530000 1AFFFFF4 E2877001 E3570002 03A02084 13A02058 E08BB002 E0811002
MEMA 8FFE0 E0400002 E3570003 1AFFFFE8 EF000011
GO 8FF80
MEMA 906D0 9FF795E2
| Decrypt phase 3
MEMA 90660 "<Gribb$Dir>.Tune" B 0
MEMA 90678 "<Gribb$Dir>.Tune1" B 0
MEMA 90540 EF000011
GO 90458
| Decrypt phase 4
MEMA 10018 E3A0DA9E >10020 EF000011
GO 10018
| Switch to our TrackerMod
MEMA 82EF "ADFFS:trackers.TrackerMod" B 0
| Switch to our ExSound
MEMA 20213 "ADFFS:trackers.ExSound" B 0
| Switch to path
MEMA 8314 "<Gribb$Dir>.ALLMUSIC1" B 0
MEMA BCAC "<Gribb$Dir>.Record" B 0
MEMA BD24 "<Gribb$Dir>.TitlesModC" B 0
MEMA BD40 "<Gribb$Dir>.CreditModC" B 0
MEMA BD5C "<Gribb$Dir>.CAModC" B 0
MEMA BD78 "<Gribb$Dir>.Big2Bit" B 0
MEMA BD94 "<Gribb$Dir>.BigTab" B 0
MEMA BDAC "<Gribb$Dir>.Small2Bit" B 0
MEMA BDC8 "<Gribb$Dir>.SmallTab" B 0
MEMA 1EF60 "       <Gribb$Dir>.Maps.Map0" B 0
MEMA 1EF80 "       <Gribb$Dir>.Maps.BGTiles0" B 0
IF ADFFS$CPUID>&A10 THEN ADFForceVSync 2 ELSE ADFForceVSync 0
FX 200,3
MEMA 1001C EA0027F7 I
MEMA 8034 EF000011 | Exit cleanly
GO 10018
FX 200,0
IF ADFFS$CPUID>&A10 THEN ADFForceVSync 0
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
IF ADFFS$CPUID>=&A10 THEN ADFEmulateRISCOS