StoreCSD
DIR ADFS::0.$
URD ADFS::0.$
HideCommandWindow
SpriteFree 200
RMAFree 200
ScreenSize 160
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS 2.0
SET WordUpDown$Resources $.Resources.WordUpDown
SET WordUpDown$Data &.WordUpDown
RMKill StringLib
RMKill Percussion
WimpSlot -min 640K -max 640K
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
ECHO <22><12><21>
| Add a delay to the title screen and quit
Key 0 290*ADFPause 200|M300CALL F%:*QUIT|MRUN|F|M
FX 225,1
FX 21,0
FX 138,0,128
BASIC -load <WordUpDown$Resources>.GemTitle

| Bug fix: Calls the wrong address
Key 0 450|M1895draw_plan?4=&CF|MRUN|F|M
ECHO <21>
FX 21,0
FX 138,0,128
BASIC -load <WordUpDown$Resources>.WordCode
RMReinit StringLib
RMReinit Percussion
FX 20
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS
UnSet WordUpDown$Resources
UnSet WordUpDown$Data
RestoreCSD