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

Set PreHist$Dir <Obey$Dir>
WimpSlot -min 672k -max 672k
IF ADFFS$OSVersion>=&50000 THEN ADFEmulateRISCOS 3.11
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
BASIC -quit <PreHist$Dir>.Code.WPCheck
BASIC -quit <PreHist$Dir>.Code.Loading
BASIC -quit <PreHist$Dir>.Code.KillVoices
Set Alias$Close ADFDoNothing
ADFJoystickKeys J1 R=&4F L=&4E D=&5F U=&67 B1=&47
| X/Right     - Right
| Z/Left      - Left
| SPACE/Down  - Get/Drop
| ENTER/Up    - Enter door
| RETURN/Fire - Flap
BASIC -quit <PreHist$Dir>.Code.SetUp
ADFJoystickKeys
UnSet Alias$Close
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&50000 THEN ADFEmulateRISCOS
UnSet PreHist$Dir
UnSet Event$Dir