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

Set Cascade$Dir <Obey$Dir>
ScreenSize 320
WimpSlot -min 256k -max 256k
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT 0

RMEnsure Pickup   1.00  RMLoad <Cascade$Dir>.Sounds.Pickup
RMEnsure Piston   1.00  RMLoad <Cascade$Dir>.Sounds.Piston
RMEnsure Switch   1.00  RMLoad <Cascade$Dir>.Sounds.Switch
RMEnsure Teleport 1.00  RMLoad <Cascade$Dir>.Sounds.Teleport
RMEnsure WSwitch  1.00  RMLoad <Cascade$Dir>.Sounds.Wswitch
RMEnsure XplodBlk 1.00  RMLoad <Cascade$Dir>.Sounds.XplodBlk
RMEnsure ShutOff  1.00  RMLoad <Cascade$Dir>.Sounds.ShutOff
RMEnsure Water    1.00  RMLoad <Cascade$Dir>.Sounds.Water

IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS 3.11
ADFJoystickKeys J1 L=78 R=79 U=70 D=87 B1=71 B2=95
| Keys     Joystick
| Z                 Left
| X                 Right
| "                 Up
| /                 Down
| RETURN   B1       Drop / Select option
| SPACE    B2       Start level

BASIC -quit <Cascade$Dir>.!RunImage
ADFJoystickKeys
Set kill$module Y
RMEnsure Water 0.0 Unset kill$module
IF "<kill$module>"="Y" THEN RMKill Water
Set kill$module Y
RMEnsure ShutOff 0.0 Unset kill$module
IF "<kill$module>"="Y" THEN RMKill ShutOff
Set kill$module Y
RMEnsure XplodBlk 0.0 Unset kill$module
IF "<kill$module>"="Y" THEN RMKill XplodBlk
Set kill$module Y
RMEnsure WSwitch 0.0 Unset kill$module
IF "<kill$module>"="Y" THEN RMKill WSwitch
Set kill$module Y
RMEnsure Teleport 0.0 Unset kill$module
IF "<kill$module>"="Y" THEN RMKill Teleport
Set kill$module Y
RMEnsure Switch 0.0 Unset kill$module
IF "<kill$module>"="Y" THEN RMKill Switch
Set kill$module Y
RMEnsure Piston 0.0 Unset kill$module
IF "<kill$module>"="Y" THEN RMKill Piston
Set kill$module Y
RMEnsure Pickup 0.0 Unset kill$module
IF "<kill$module>"="Y" THEN RMKill Pickup
Unset kill$module
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS
UnSet Cascade$Dir