| To install to HD:
| 1. Copy !V_Golf from disc 1 to HD
| 2. (optional) Copy !Wentworth from disc 2 into !V_Golf
| 3. Copy the disc 1 floppy image as !V_Golf.F1000501
| 4. Replace !V_Golf.!Run with this file
IfThere <Obey$Dir>.F1000501 THEN ADFMount <Obey$Dir>.F1000501 ELSE Set Obey$Dir ADFS::Virt_Golf.$.!V_Golf

If "<Golf$Loaded>"<>"" THEN Error You can't run two copies of Virtual Golf at once
IconSprites <Obey$Dir>.!Sprites
Set Disc1$Dir <Obey$Dir>.
Set Golf$Dir <Obey$Dir>
Set GolfData$Dir <Golf$Dir>
IF "<Course$Dir>"="" THEN IfThere <Golf$Dir>.!Wentworth.!Boot THEN Obey -c <Golf$Dir>.!Wentworth.!Boot
WimpSlot -min 1100K -max 1100K
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
RMLoad <Golf$Dir>.ReadDisc
<Golf$Dir>.GetSource
| Prevent vectors being taken over
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 1FC E3A00009 EA00001D Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 28C EF00003B E1A00000 Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 3BC 0A000038 E1A00000 Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 3D0 EF000020 EF020020 Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 3D4 E3A00009 E8FD8000 Clubs

| Fix FileV vector code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7D4 E3300000 EA000000 Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7DC 13300002 E92D4000 Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7E0 13300003 E51FE010 Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7E4 13300004 E13E0000 Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7E8 13300007 08BD8000 Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7EC 13300008 E50F001C Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 7F8 0AFFFF29 E1A00000 Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 814 092D8000 18BD8000 Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 818 E1B0F00E EF020008 Clubs
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 81C E1A00000 E50FE04C Clubs
<Golf$Dir>.Caddy
StoreCSD
Dir <Golf$Dir>

BASIC -quit <Golf$Dir>.!Runimage %*0
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
RestoreCSD