| To install to HD:
| 1. Copy !PacMania to the HD
| 2. Replace the contents of !PacMania.!Run with:
|    ADFBootFloppy F1044701
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!PacMania
StoreCSD
DIR <Obey$Dir>
ScreenSize 80
Set JSflag 0
IF ADFFS$OSVersion<&50000 THEN RMEnsure Joystick 0.0 Set JSflag 1
IF JSflag>0 THEN RMLoad ADFFS:extras.JoyMod

WimpSlot -min 620k -max 620k
LOAD PACMANIA 8000
ADFCRC 8000 FD18 C24538EE PACMANIA
| Correct JoyMod Joystick code
MEMA F2FC E92D43FE 0A000005 EF0EFFC2 E3300000 1A000002 EF0EFFC0 E3300000 18BD83FE E8BD01FE

| Switch music code to hang off Voice Generator 1
LOAD PLAYERCODE 6F598
ADFCRC 6F598 70BA8 36B9E8AA PLAYERCODE
MEMA 8164 E1A00000 | Don't load PLAYERCODE
MEMA 8278 E1A00000 >8338 E1A00000 | Don't use OS_CallEvery
MEMA 701D0 EA00B47C | Call new routine
MEMA 9D3C8 E92D1C00 E1A0B00F E39FF003 E1A00000 E1A0A00E E59FC014 EBFDABAD E1A0E00A E33BF000 E1A00000 E8BD1C00 EAFF4B90 9F3D0

| Set audio sample pointers to prevent page zero reads
MEMA 6FC48 6F7EC 6F7EC 6F7EC

| Correct key check
MEMA F378 E33100FF E8BD8200

| Add a delay to the level selection screen
MEMA EE98 E3A00010 EF0593CB E1A00000 >EEC4 E3A00010 EF0593CB E1A00000

IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 8000 ELSE GO 8000
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF JSflag>0 THEN RMEnsure Joystick 0.0 Set JSflag 0
IF JSflag>0 THEN RMKill Joystick
Unset JSflag
RestoreCSD