IF "<Obey$Dir>"="@" THEN Set Obey$Dir ADFS::0.$
StoreCSD
DIR <Obey$Dir>
HideCommandWindow
SET Alias$L.TITLE LOAD TITLE
SET Alias$L.SDATA2 LOAD SDATA2
SET Alias$L.GDATA LOAD GDATA

WimpSlot -min 516k -max 516k
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT 0
ECHO <22><9><21>
| Regulate speed
MEMA 88000 E92D4003 E1A0E004 EA000007 E92D4003 E1A0E009 EA000004 E92D4003 E1A0E005 EA000001 E92D4003 E1A0E007 EF020042 E08016AE EF020042 E1500001 3AFFFFFC E8BD8003

KEY 0 170DEFPROCf(P%,Z%):P%+=&C000:[OPT 0:STMFD R13!,{R14}:BL &88000+Z%:LDMFD R13!,{R14}:]:ENDPROC|M111PROCf(&1298,0):PROCf(&165C,&C):PROCf(&3DEC,&18):PROCf(&4674,&24):PROCf(&5178,&24):PROCf(&5750,&24)|M
KEY 1 112PROCf(&5BE8,&24):PROCf(&5C00,&24):PROCf(&5C4C,&24):PROCf(&5C64,&24):P%=&D2B4:[OPT 0:STMFD R13!,{R0-R12,R14}:SWI 66:ADD R1,R0,#10:SWI 66:CMP R0,R1:BCC &D2C0:BL &C818:LDMFD R13!,{R0-R12,PC}:]|M
KEY 2 113P%=&D2DC:[OPT 0:STMFD R13!,{R0-R12,R14}:SWI 66:ADD R1,R0,#2:SWI 66:CMP R0,R1:BCC &D2E8:BL &C65C:LDMFD R13!,{R0-R12,PC}:]|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 RUN
IF ADFFS$CPUID>=&A10 THEN GOARM3JIT
UNSET Alias$L.TITLE
UNSET Alias$L.SDATA2
UNSET Alias$L.GDATA
RestoreCSD