| To HD install
| 1. Copy !Realm to HD
| 2. Copy !SOUNDS as !Realm.!SOUNDS
| 3. Copy REALM2 from disc 2 as !Realm.REALM2
| 4. Copy REALM3 from disc 3 as !Realm.REALM3
| 5. Edit !Realm.REALM2.DefKeys and replace line 1430:
|  1430 DEF PROCDISC:ENDPROC
| 6. Edit !Realm.REALM2.X and replace line 220:
|  220 DEF PROCDISC3:ENDPROC
| 7. Edit !Realm.REALM3.FINALE.LOADER and replace line 350:
|  350 DEF PROCDISC2:ENDPROC
| 8. Edit !Realm.REALM3.X and replace line 300:
|  300 DEF PROCDISC2:ENDPROC
| 9. Edit !Realm.REALM3.X2 and replace line 290:
|  290 DEF PROCDISC2:ENDPROC
| 10. Edit !Realm.REALM3.X3 and replace line 290:
|  290 DEF PROCDISC2:ENDPROC
| 11. Replace the contents of !Realm.!Run with
|  ADFBootFloppy F1013401
IfThere <Obey$Dir>.F1013401 THEN ADFMount <Obey$Dir>.F1013401
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::RealmDisc1.$.!Realm
HideCommandWindow
RMAFree 196
ScreenSize 80
ECHO <22><13>
SpriteFree 16
Set File$Type_C74 Sound
Set Disc2 ADFS::0.$.REALM2
Set Disc3 ADFS::0.$.REALM3
IfThere <Obey$Dir>.!Sounds THEN Set Sounds$Dir <Obey$Dir>.!SOUNDS
IfThere <Obey$Dir>.!Sounds THEN Set Disc2 <Obey$Dir>.REALM2
IfThere <Obey$Dir>.!Sounds THEN Set Disc3 <Obey$Dir>.REALM3
IF ADFFS$OSVersion>=&50000 THEN ADFEmulateRISCOS 2.0
RMEnsure ExSound 4.01 RMLoad ADFFS:trackers.ExSound

WimpSlot -min 760K -max 1024K
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0

| Prevent vectors being taken over
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA  9C E3A00009 E8FD801F Merlin
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 11C 0A000025 E1A00000 Merlin
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 130 EF000020 EF020020 Merlin
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 134 E3A00009 E8FD8000 Merlin

| Fix FileV vector code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4C0 E3300000 EA000000 Merlin
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4C8 13300002 E92D4000 Merlin
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4CC 13300003 E51FE010 Merlin
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4D0 13300004 E13E0000 Merlin
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4D4 13300007 08BD8000 Merlin
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4D8 13300008 E50F001C Merlin
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 4E4 0AFFFF33 E1A00000 Merlin
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 500 092D8000 18BD8000 Merlin
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 504 E1B0F00E EF020008 Merlin
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 508 E1A00000 E50FE04C Merlin

Set Alias$L. LOAD %%*0
KEY 0 50|M550QUIT|MRUN|F|M
ECHO <21>
FX 225,1
FX 21,0
FX 138,0,128
StoreCSD
DIR <Obey$Dir>
BASIC -load <Obey$Dir>.QUICK
KEY 0 130QUIT|MRUN|F|M
ECHO <21>
FX 225,1
FX 21,0
FX 138,0,128
BASIC -load <Obey$Dir>.STARTUP
KEY 0 PAGE=&A7000|MLOAD"|<Obey$Dir>.LOADER"|M300ONERRORGOTO320|M310|M320X=OPENIN("|<Disc2>.X")|M330IF X=0 GOTO 320|M340CLOSE#X|M360|M370|MRUN|F|M
ECHO <21>
FX 225,1
FX 21,0
FX 138,0,128
BASIC
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
FX 20
X RMKill ExSound
Unset Alias$L.
IF ADFFS$OSVersion>=&50000 THEN ADFEmulateRISCOS
RestoreCSD