Set Obey$Dir ADFS::0.$.!deeva
StoreCSD
DIR <Obey$Dir>
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS 2.00
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory 9 160 ELSE ScreenSize 160
HideCommandWindow
RMAFree 20
SpriteFree 48

WimpSlot -min 640k -max 640k
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
Echo <21>
| Fix speed issues
KEY 0 170|M331QUIT|MRUN|F|M
FX 225,1
FX 21,0
FX 138,0,128
BASIC -load loader
ADFPause 200
ECHO <21>
KEY 0 22820PROCstall(100)|M23190PRINTTAB(0,0);:PROCstall(250)|M40000DEFPROCstall(F%):F%=TIME+F%:WHILE TIME<F%:WAIT:ENDWHILE:ENDPROC|M28865PROCstall(100)|M28575PROCstall(100)|M28395PROCstall(100)|M
KEY 1 25360IF system$="MAXAR" AND planets_completed<5 THEN CLS:PROCWRITE("MAXAR NOT SELECTABLE",280,500):a$=STR$(5-planets_completed):PROCNUMCONV:a$=a$+b$:PROCWRITE(a$,290,300):PROCstall(335):GOTO25000|M
KEY 2 25660PROCstall(167)|M25870OSCLI("POINTER 1"):PROCstall(500):REPEAT:MOUSE X,Y,Z:UNTIL Z>0:ENDPROC|M29110PROCstall(167)|M29740PROCstall(335)|M*unset key$*|MRUN|F|M
FX 225,1
FX 21,0
FX 138,0,128
FX 138,0,129
FX 138,0,130
BASIC -load SCROLL27
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
IF ADFFS$OSVersion>=&35000 THEN ADFRemapVideoMemory
IF ADFFS$OSVersion>=&35000 THEN ADFEmulateRISCOS
RestoreCSD