IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$.!HOLEDOUT
StoreCSD
DIR <Obey$Dir>
HideCommandWindow
WimpSlot -min 128k -max 128k
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS 2.00
IF ADFFS$OSVersion>=&50000 THEN ADFRemapVideoMemory 13 240 ELSE ScreenSize 240
SpriteFree 240
RMAFree 200
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT 0
RMENSURE SHOOSH 1 <Obey$Dir>.MODULES.SHOOSH
RMENSURE CRACK 1 <Obey$Dir>.MODULES.CRACK
RMENSURE TREECRASH 1 <Obey$Dir>.MODULES.TREECRASH
RMENSURE PLOP 1 <Obey$Dir>.MODULES.PLOP
RMENSURE HOLED 1 <Obey$Dir>.MODULES.HOLED
RMENSURE BELL 1 <Obey$Dir>.MODULES.BELL
RMENSURE CLIPNOISE 1 <Obey$Dir>.MODULES.CLIPNOISE
SLOAD <Obey$Dir>.SPRITES

Set Alias$L. LOAD<32>
Set Alias$RMCLEAR ADFDoNothing
Set Alias$RMTIDY ADFDoNothing
| Allow us to patch HOLEDOUT3
KEY 0 610QUIT|MRUN|F|M
ECHO <21>
FX 225,1
FX 21,0
FX 138,0,128
BASIC -load HOLEDOUT2
| Add a mouse debounce to the preview screen
KEY 0 1865REPEAT:MOUSEX%,Y%,T%:UNTILT%=0|MRUN|F|M
ECHO <21>
FX 21,0
FX 138,0,128
BASIC -load HOLEDOUT3
UnSet Alias$L.
UnSet Alias$RMCLEAR
UnSet Alias$RMTIDY
IF ADFFS$OSVersion>=&50000 THEN GOARM3JIT
IF ADFFS$OSVersion>=&50000 THEN ADFRemapVideoMemory
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS
RestoreCSD