| To install to HD:
| 1. Install game by booting disc 1
| 2. Copy the disk 1 floppy image as !BHP.F1044301
| 3. Replace the contents of !BHP.!Run with:
|  ADFBootFloppy F1044301
SetEval BHP$Install 1
IF "<Obey$Dir>"="@" THEN ELSE SetEval BHP$Install 0

IF BHP$Install THEN Set Obey$Dir ADFS::BHP1.$.!Install
IF BHP$Install THEN Set BHPinstall$Dir <Obey$Dir>

IF BHP$Install THEN RMENSURE Window   0.00 RMLOAD System:modules.toolbox.window
IF BHP$Install THEN RMENSURE Window   1.17 ERROR  You need window 1.17 or later to run !Install
IF BHP$Install THEN RMENSURE Menu     0.00 RMLOAD System:modules.toolbox.menu
IF BHP$Install THEN RMENSURE Menu     0.13 ERROR  You need menu 0.13 or later to run !Install
IF BHP$Install THEN RMENSURE ProgInfo 0.00 RMLOAD System:modules.toolbox.proginfo
IF BHP$Install THEN RMENSURE Proginfo 0.00 ERROR  You need proginfo to run !Install
IF BHP$Install THEN RMENSURE FileInfo 0.00 RMLOAD System:modules.toolbox.FileInfo
IF BHP$Install THEN RMENSURE FileInfo 0.00 ERROR  You need FileInfo to run !Install
IF BHP$Install THEN RMENSURE IconBar  0.00 RMLOAD System:modules.toolbox.IconBar
IF BHP$Install THEN RMENSURE IconBar  0.00 ERROR  You need IconBar to run !Install

IF BHP$Install THEN WimpSlot -min 32k -max 32k
IF BHP$Install THEN LOAD <Obey$Dir>.!RunImage 9000
IF BHP$Install THEN ADFCRC 9000 A069 D84C53DA !RunImage
IF BHP$Install THEN MEMA B 9BBB 20
IF BHP$Install THEN BASIC -quit @00009000,0000A06A
IF BHP$Install THEN UnSet BHPinstall$Dir
IF BHP$Install THEN Obey

RMEnsure Squash 0.00 Error 0 You need the Squash Module to run BHP
IfThere <Obey$Dir>.F1044301 THEN ADFMount <Obey$Dir>.F1044301
Set BHP$Dir      <Obey$Dir>
Set BHPData$Path <BHP$Dir>.Data.
WimpSlot -min 6144k -max 6144k
IF ADFFS$OSVersion>=&50000 THEN GOARM4JIT 0
| Prevent direct entry into FileCore Module
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 8E75C EF020016 E1A00000
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 8E778 E0855003 E1A0400A
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 8E78C E1A0400A EF060240
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 8E790 E1A0F005 EA00000A

| Bugfix: Page Zero access in Voice handler
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 181B4 E28F8F93 E28F8F93
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 181B8 E0888287 E0888287
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 181BC E898007E E898007E
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 181C0 E59F0340 E3330000
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 181C4 E0955000 0A000039
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 181C8 1A00003B E59F0338
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 181CC E7D30821 E0955000
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 181D0 E6CC000B 1A000039
IF ADFFS$OSVersion>=&50000 THEN JITMEMORYA 181D4 E0811002 EA000002

<BHP$Dir>.!RunImage
IF ADFFS$OSVersion>=&50000 THEN GOARM4JIT
UnSet BHP$Dir
UnSet BHPData$Path