| To install to HD:
| 1. Copy !Olympics to HD
| 2. Copy the contents of disc 2 into !Olympics
| 3. Copy the disc 1 image as !Olympics.F1026801
| 4. Replace the contents of !Olympics.!Run with:
|  ADFBootFloppy F1026801
IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!Olympics
IfThere <Obey$Dir>.F1026801 THEN ADFMount <Obey$Dir>.F1026801
StoreCSD
Dir <Obey$Dir>
SPRITESIZE 104
SCREENSIZE 192
RMAFREE    16
ADFProtectModules On
HideCommandWindow
Set Threethou$Ten 3010
ECHO <22><13>
CHARS
WimpSlot -min 512K -max 512K
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
| Prevent claims in MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA  9C E3A00009 E8FD801F MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 104 0A000025 E1A00000 MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 118 EF000020 EF020020 MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 11C E3A00009 E8FD8000 MEDALS

| Fix FileV vector code
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 51C E3300000 EA000000 MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 514 13300002 E92D4000 MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 518 13300003 E51FE010 MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 51C 13300004 E13E0000 MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 520 13300007 08BD8000 MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 524 13300008 E50F001C MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 530 0AFFFF1A E1A00000 MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 54C 092D8000 18BD8000 MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 550 E1B0F00E EF020008 MEDALS
IF ADFFS$CPUID>=&A10 THEN JITMEMORYA 554 E1A00000 E50FE04C MEDALS

IF ADFFS$CPUID>=&A10 THEN Set Alias$CACHE ADFDoNothing %%*0
FLAGS


FX 200,3
BASIC -quit OLYMPICS

IF "<Obey$Dir>"="ADFS::0.$.!Olympics" THEN SPORTS
| Remove dependency on ADFS::0
IF "<Obey$Dir>"<>"ADFS::0.$.!Olympics" THEN KEY 0 ?(PAGE+&EA)=1|M4|M783GOTO J%|M824GOTO J%|MRUN|F|M
IF "<Obey$Dir>"<>"ADFS::0.$.!Olympics" THEN ECHO <21>
IF "<Obey$Dir>"<>"ADFS::0.$.!Olympics" THEN FX 225,1
IF "<Obey$Dir>"<>"ADFS::0.$.!Olympics" THEN FX 21,0
IF "<Obey$Dir>"<>"ADFS::0.$.!Olympics" THEN FX 138,0,128
IF "<Obey$Dir>"<>"ADFS::0.$.!Olympics" THEN BASIC -load SPORTS
FX 20
UnSet Alias$CACHE
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
ADFProtectModules Off
UnSet Threethou$Ten
RestoreCSD