| To install to HD:
| 1. Copy !LOTUS from disc 1 to HD
| 2. Copy the contents of disc 2 into !LOTUS
| 3. Copy the disc 1 image as !LOTUS.F1023201
| 4. Replace the contents of !LOTUS.!Run with:
|  ADFBootFloppy F1023201
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::Lotus2Dsk1.$.!LOTUS
IfThere <Obey$Dir>.F1023201 THEN ADFMount <Obey$Dir>.F1023201
HideCommandWindow
RMAFree 200
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 9 80 ELSE ScreenSize 80
Echo <22><9><21>

Set Lotu$Dir <Obey$Dir>
StoreCSD
Dir <Lotu$Dir>
RMEnsure QTMTracker   1.43 RMLoad ADFFS:trackers.QTMModule
RMEnsure MusicModule2 0.02 RMLoad ADFFS:trackers.MusMod2

|SetEval LCDGM$active <LCDGM$Status>
|IF LCDGM$Status THEN LCDGameModes Off

WimpSlot -min 544K -max 544K
ADFClipScreen 8:5
| Decrypt loader and move code to &8E300 so we can bugfix
LOAD <Lotu$Dir>.Loader 8000
MEMA 8024 E3A02CE3 E3822702 >8068 EF000011
GO 8000
Set Key$0 A%=&8E30C:E%=&58:Z%=&A80:FORL%=0TO2:FORB%=A%+&58TO&8EFD4 STEP&2C:FOR C%=0TO&2B:B%?C%=B%?C% EOR Z% EOR (A%?(C%+&28)):NEXT:NEXT:Z%-=E%:A%+=E%:E%+=&2C:NEXT:QUIT|F|M
FX 225,1
FX 21,0
FX 138,0,128
BASIC
UnSet Key$0
IF ADFFS$OSVersion>=&35000 THEN GOARM3JIT 0
| Remove Commandline/CRC checks
MEMA 8E540 EA00000A >8E8E4 E1A00000
MEMA 8E5E0 EA00000E >8EA2C EA00000A | Don't claim vectors
| Bugfix: Remove Exit handler
MEMA 8E9E4 E1A00000
| Phase 1 decrypt
MEMA 8EA74 EF000011
GO 8E50C
| Phase 2 decrypt
MEMA 70A78 EF000011
GO 70000
| Prevent Channel Handler switching to IRQ mode
IF ADFFS$OSVersion>=&35000 THEN MEMA 11A4C E1A0F000 >11A50 E1A00000
| Remove unnecessary 6 second pause before start of game
MEMA DDC0 E1A00000
| Don't mess with IRQB state
MEMA DE28 E1A00000 >DE30 E1A00000 >DE88 E1A00000
| Don't mess with IRQA state
MEMA DE38 E1A00000 >DE40 E1A00000 >DE80 E1A00000
| Don't mess with FIQ state
MEMA DE48 E1A00000 >DE50 E1A00000 >DE90 E1A00000
| Handle IRQ re-entrancy
IF ADFFS$OSVersion>=&35000 THEN MEMA 8250 E92D5FFF E59F801C E3380004 08BD9FFF E58F0010 EB0014C1 E58FE008 E8BD9FFF >70228 E92D5FFF E59F801C E3380004 08BD9FFF E58F0010 EB000004 E58FE008 E8BD9FFF
GO 8000
ADFClipScreen
IF ADFFS$OSVersion>=&35000 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
RMKill MusicModule2
RMKill QTMTracker
FX 200,0
UnSet Lotu$Dir
RestoreCSD