IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!JamesPond

IF ADFFS$OSVersion<&35000 THEN Error This version requires a RiscPC or newer
Set Pond$Dir <Obey$Dir>
IF ADFFS$OSVersion<&50000 THEN LoadModeFile <Pond$Dir>.Monitor
RMAFree 256
ScreenSize 80
HideCommandWindow
ECHO <22><9>
RMEnsure QTMTracker 1.43 RMLoad ADFFS:trackers.QTMModule
RMEnsure MusicModule2 0.02 RMLoad ADFFS:trackers.MusMod2
Set JSflag 0
IF ADFFS$OSVersion<&50000 THEN RMEnsure Joystick 0.0 Set JSflag 1
IF JSflag>0 THEN RMLoad ADFFS:extras.JoyMod
mussamplerate 3
FX 19

WimpSlot -min 1632k -max 1632k
IF ADFFS$OSVersion>=&50000 THEN GOARM4JIT 0
RMLoad <Pond$dir>.JamesPatch
LOAD <Pond$Dir>.Code 8000
GO B000
RMKill JamesPondPatch
IF ADFFS$OSVersion>=&50000 THEN GOARM4JIT
IF JSflag>0 THEN RMEnsure Joystick 0.0 Set JSflag 0
IF JSflag>0 THEN RMKill Joystick
UnSet JSflag
RMKill musicmodule2
RMKill QTMTracker
UnSet Pond$Dir