IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::SOCCER.$.!SOCCER
HideCommandWindow
SpriteFree 80
IF ADFFS$OSVersion>=&50000 THEN ADFRemapVideoMemory 13 80 ELSE ScreenSize 80
ECHO <22><13>
SCREENLOAD <Obey$Dir>.MODE13SOC
ECHO <23><1><0><0><0><0><0><0><0><0>
SetEval ac$ver 1
IfThere <Obey$Dir>.CONT THEN SetEval ac$ver 2

WIMPSLOT -MIN 568K -MAX 568K
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT 0
RMLoad <Obey$Dir>.MODULES.STRINGS
RMLoad <Obey$Dir>.MODULES.BRASS
RMLoad <Obey$Dir>.MODULES.BASS
RMLoad <Obey$Dir>.MODULES.BASSDRUM
RMLoad <Obey$Dir>.MODULES.HIHAT
RMLoad <Obey$Dir>.MODULES.CRASH
RMLoad <Obey$Dir>.MODULES.RIMSHOT
RMLoad <Obey$Dir>.MODULES.SNARE
IF ac$ver=1 THEN StoreCSD
IF ac$ver=1 THEN ADFS
IF ac$ver=1 THEN DIR <Obey$Dir>
IF ac$ver=1 THEN KEY 0 DELETE90,210|M450QUIT|M470|M500|M630|M720|MRUN|F|M
IF ac$ver=2 THEN KEY 0 450QUIT|MRUN|F|M
ECHO <21>
FX 225,1
FX 21,0
FX 138,0,128
BASIC -load <Obey$Dir>.TITLE
RMKill SNARE
RMKill RIMSHOT
RMKill CRASH
RMKill HIHAT
RMKill BASSDRUM
RMKill BASS
RMKill BRASS
RMKill STRINGS
RMLoad <Obey$Dir>.MODULES.THUNDER
RMLoad <Obey$Dir>.MODULES.RAIN
RMLoad <Obey$Dir>.MODULES.UGH
RMLoad <Obey$Dir>.MODULES.UGH2
RMLoad <Obey$Dir>.MODULES.UGH3
RMLoad <Obey$Dir>.MODULES.UGH4
RMLoad <Obey$Dir>.MODULES.UGH5
RMLoad <Obey$Dir>.MODULES.WHISTLE
RMLoad <Obey$Dir>.MODULES.CHEER
RMLoad <Obey$Dir>.MODULES.BASSDRUM
SLOAD <Obey$Dir>.VIDEO
Set Alias$L. LOAD %%*0
BASIC -quit <Obey$Dir>.MENU4
IF ac$ver=1 THEN RestoreCSD
UnSet Alias$L.
UnSet ac$ver
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT
IF ADFFS$OSVersion>=&50000 THEN ADFRemapVideoMemory