Set Battle$Dir <Obey$Dir>
Set Alias$RMLoadIfThere IfThere %%*0 Then RMLoad %%*0
If "<Alias$FreeMem>"="" Then Set Alias$FreeMem <Obey$Dir>.FreeMem %%*0
fx 200,3
RMEnsure ColourTrans 0.52 RMLoadIfThere System:Modules.Colours
RMEnsure ColourTrans 0.52 RMLoadIfThere <Battle$Dir>.colours
RMEnsure SharedCLibrary 3.75 RMLoadIfThere System:Modules.CLib
RMEnsure SharedCLibrary 3.75 RMLoadIfThere <Battle$Dir>.clib
RMEnsure FPEmulator 2.80 RMLoadIfThere System:Modules.FPEmulator
RMEnsure FPEmulator 2.80 RMLoadIfThere <Battle$Dir>.fpe280

wimpslot -min 64k -max 64k
Set Battle$QTM Yes
RMEnsure QTMTracker 0 RMLoadIfThere System:Modules.Audio.Trackers.QTMModule
RMEnsure QTMTracker 0 RMLoadIfThere <ADFFS$Dir>.trackers.QTMModule
RMEnsure QTMTracker 0 RMLoadIfThere System:Modules.QTMModule
RMEnsure QTMTracker 0 Set Battle$QTM No
Set File$Type_CC5 TeqMusic
If "<Battle$QTM>"="Yes" Then QTMLoad <Battle$Dir>.Music
wimpslot -min 64k -max 64k
<Battle$dir>.Patch

If "<Battle$QTM>"="Yes" Then QTMClear

Set Battle$MusMod 2
If "<Battle$QTM>"="Yes" Then RMEnsure MusicModule2 1.02 RMLoadIfThere <ADFFS$Dir>.trackers.MusMod2
RMEnsure MusicModule2 0 Set Battle$MusMod SC
RMEnsure MusicModc2000 0 RMLoadIfThere <ADFFS$Dir>.trackers.MusMod
RMEnsure MusicModc2000 0 If "<Battle$MusMod>"="SC" Then Set Battle$MusMod 3
RMEnsure UtilityModule 5.00 rmensure MusicModule3 0 rmloadifthere <Battle$Dir>.musmod3a
RMEnsure MusicModule3 0 If "<Battle$MusMod>"="3" Then Error A newer MusicModule is required to play Battle Chess

echo <22> <13>
FreeMem MaxMem
wimpslot -min 608k -max 608k
run <Battle$Dir>.battle1
If "<Battle$MusMod>"="3" THEN RMKill MusicModule3
|rmkill ColourTrans
|rmkill SharedCLibrary
|rmkill FPEmulator
*fx 200,0
unset Battle$Dir