IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!Populous

Set Populous$Dir <Obey$Dir>
StoreCSD
Dir <Populous$Dir>

RMAFree 200
RMEnsure QTMTracker   1.43 RMLoad ADFFS:trackers.QTMModule
RMEnsure MusicModule2 0.06 RMLoad ADFFS:trackers.Musmod2
ADFClipScreen 8:5
IF ADFFS$CPUID>=&A10 THEN ADFRemapVideoMemory 13 120 ELSE ScreenSize 120

Musload <Populous$Dir>.Resources.Titlemusic
Muson

Wimpslot -min 384k -max 384k
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| Correct time delay on title page
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 9CF0 E3A09E73 EF020042
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 9CF4 E2899A55 E2809D56
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 9D04 E1A00006 E2866001
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 9D08 E2806001 EF020042
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 9D10 CA00005E 8A00005E

<Populous$Dir>.Title
Musoff
Run <Populous$Dir>.Loader DIS      ;
ADFClipScreen
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$CPUID>=&A10 THEN ADFRemapVideoMemory
RMKill MusicModule2
RMKill QTMTracker
UnSet Populous$Dir
RestoreCSD