| To install to HD:
| 1. Run !QuarkHD
| 2. Replace the contents of !.!Run with:
|  ADFBootFloppy F1029601
| 3. Optional: Rename ! to !Quark, edit !Quark.!Sprites and rename ! to !Quark and sm! to sm!Quark
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::Quark_D1.$.!
IF ADFFS$OSVersion>=&35000 THEN SetEval fix$up 1 ELSE SetEval fix$up 0
IF fix$up THEN ADFRemapVideoMemory 9 96 ELSE ScreenSize 96
IF fix$up THEN ADFEmulateRISCOS 3.11
HideCommandWindow
WimpSlot -min 608K -max 608K
IF fix$up THEN GOARM3JIT 0
| Correct encrypted Module code
Load <Obey$Dir>.Quark 10000
ADFCRC 10000 10C5C 38E54C8F Quark
| Decrypt stage 1
MEMA 10C2C E24F101C >10C54 EF000011
GO 10C20
| Decrypt stage 2
MEMA 10BD8 EA000000 >10BE8 E1A00000 >10BF8 E24F1040 >10C14 EF000011
GO 10BC4
| Create new entry point that jumps to 4D4
MEMA 10004 BE0 >10BE8 E58C5000 EAFFFE38
| Use SWI
MEMA 10A04 EF020008 EA000001
| skip DiscOp's
MEMA 10384 E8FD9FFE
| Insert into RMA
MEMA 8000 E3A0000B E3A01801 E59F2004 EF02001E EF000011 BF0
| Allow MODE 51 to work on all monitor types
MEMA 109A4 E1A00000
| Switch to a MODE 96
IF fix$up THEN MEMA B 10990 60
|  Intro
IF fix$up THEN JITMEMORYA 45244 E3A00033 E3A00060
|  Main game
IF fix$up THEN JITMEMORYA 845C E3A00033 E3A00060
IF fix$up THEN JITMEMORYA 9900 E3A00033 E3A00060
IF fix$up THEN JITMEMORYA 159F8 E3A00033 E3A00060
IF fix$up THEN JITMEMORYA 16160 E3A00033 E3A00060
| Exit early
MEMA 1015C E1A00000

ADFGO 8000
| Allow Modes to work on all monitor types
IF fix$up THEN JITMEMORYA 148 11A0F00E E1A00000 Mode40
IF fix$up THEN JITMEMORYA 148 11A0F00E E1A00000 Mode99

Bonjour
| Bypass DiscOp
MEMA 49E38 EA000007
| Correct VIDC1 writes
MEMA 454CC E3A0050D
| Exit after intro
MEMA 452C4 E1A0F00E
                         mema 455fc e1a00000
ADFGO 45238
| Bugfix Page Zero access @ 1A758
MEMA 1A67C E3A03A7F
| Bugfix Page Zero access @ 16324
MEMA 1631C E28F108C
| Correct VIDC1 writes
MEMA 8294 E3A0B50D >89DC E3A0B50D >9700 E3A0B50D >9B40 E3A0B50D >9C04 E3A0B50D >F2A4 E3A0B50D
| Bugfix: Don't fade to black
MEMA 9AA4 E1A0F00E
| Infinite lives
IF "<infinite$lives>"="Y" THEN MEMA D2BC E1A00000 >D43C E1A00000
| Infinite health
IF "<infinite$health>"="Y" THEN MEMA D290 E3B00031 >D40C E3B00031
| Run game
ADFPause 400
MEMA 452BC EAFF0B6F I 452BC 452C0
ADFGO 452B4

RMEnsure Quark 0.0 Set kill$quark 1
IF "<kill$quark>"="" THEN RMKill Quark
Unset kill$quark
RMEnsure Quark1 0.0 Set kill$quark 1
IF "<kill$quark>"="" THEN RMKill Quark1
Unset kill$quark
RMEnsure Quark2 0.0 Set kill$quark 1
IF "<kill$quark>"="" THEN RMKill Quark2
Unset kill$quark

IF fix$up THEN GOARM3JIT
IF fix$up THEN ADFRemapVideoMemory
IF fix$up THEN ADFEmulateRISCOS
Unset Adeiu
Unset fix$up
Unset Quark$Dir
Unset Quark1$Dir