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

Set Lem$Dir <Obey$Dir>

IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 9 80 ELSE ScreenSize 80
Echo <22><9>
HideCommandWindow
RMAFree 200
RMEnsure QTMTracker   1.43 RMLoad ADFFS:trackers.QTMModule
RMEnsure MusicModule2 0.02 RMLoad ADFFS:trackers.MusMod2

wimpslot -min 496k -max 664k
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0

| Correct T1 on 32bit
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 16FC8 E5980000 E3A00C76

| Correct cursor plot code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 243F4 E4960004 E2466909
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 243F8 E58F0078 E2466E45
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 243FC E5960000 E3A00601
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 24400 E58F0138 E5806000
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 24478 E8990007 EA036EE1
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 24540 E8890007 EA036EBC
IF ADFFS$CPUID>=&A10 THEN MEMA 100004 E51F600C E08FF006 E8990006 EAFC9118 E8990004 EAFC9116 E8990007 EAFC9114 E8990003 EAFC9112 E8990001 EAFC9110 E51F6040 E08FF006
IF ADFFS$CPUID>=&A10 THEN MEMA 100044 E8890006 EAFC913D E8890004 EAFC913B E8890007 EAFC9139 E8890003 EAFC9137 E8890001 EAFC9135

LOAD <Lem$Dir>.LemBoot 8000
| Correct T1 palette swap
IF ADFFS$OSVersion>=&50000 THEN MEMA 8008 7600
IF ADFFS$VIDC20 THEN MEMA 8008 5400 3C00

GO 8000
<Lem$Dir>.LrestMouse
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
RMKill MusicModule2
RMKill QTMTracker
FX 15 0
If Lem$Speaker = 1 Then *Speaker On
If Lem$Speaker = 0 Then *Speaker Off
Unset Lem$Speaker
Unset Lem$Dir
RestoreCSD