Screensize 80
RMAFree 64
SpriteFree 280
RMEnsure WFS 1.33 RMLoad ADFFS:trackers.WFS

| Swap the root sector
MEMA 8000 E3A01001 E3A02A85 E2822B02 E3A03801 E3A04B03 EF040240 E3A03801 E3A04B03 E2844002 E3A05000 E3A060FF E7D30005
MEMA 8030 E0460000 E2855001 E7D31005 E0461001 E7C30005 E2455001 E7C31005 E2855002 E1550004 1AFFFFF4 E3A01002 E3A02000 E3A03801 E3A04B03 EF040240 EF000011
IfThere ADFS::0.$.1 THEN ELSE GO 8000
-adfs-dismount 0
-adfs-mount 0

| Load/Decrypt the main BASIC
MEMA 17F30 E3A01001 E3A02A87 E3A03C8F E3A04B33 EF040240 E3A03C8F E3A04B33 E3A05000 E3A060FF E7D30005 E0460000 E2855001 E7D31005 E0461001 E7C30005 E2455001 E7C31005 E2855002 E1550004 1AFFFFF4 EF000011
GO 17F30

StoreCSD
Set Alias$MOUNT -adfs-dismount 0|M-adfs-%mount 0
ADFS
DIR ADFS::0.$
| Don't use &A00 for DiscOp, add delays
KEY 0 OLD|M161PROCsoundset:normalsound=TRUE|M163C%=&94800:D%=mask%:E%=6230:CALL sectorload:SYS "OS_ReadDynamicArea",3 TO D%:C%=&3EC00:E%=278528:CALL sectorload|M
KEY 1 1410STMFD R13!,{R3,R4}:MOV R1,#1|M1420LDMFD R13!,{R3,R4}:ADD R4,R4,#2:MOV R5,#0:MOV R6,#255|M1445SWI"XADFS_DiscOp"|M9025|M20000PRINT REPORT$;" at line ";ERL:END|M18000DEFPROCw(A%):TIME=0:WAIT:REPEATUNTILTIME>A%DIV350:ENDPROC|M
KEY 2 2140PP3=PP3+.05:PP=PP+4:PROCw(700)|M2154PP3=PP3+.05:PP=PP+4:PROCw(700)|M2161PROCw(1000)|M2180PROCw(650)|M2270PROCw(300)|M2510PROCw(100):NEXT J,T|M2520PROCw(200)|M6620PROCw(900)|M6690PROCw(800)|M
KEY 3 6720OSCLI("*SCHOOSE MN23"):GCOL 8,0:PLOT &ED,336,40:PROCw(D)|M6730OSCLI("*SCHOOSE MN24"):GCOL 8,0:PLOT &ED,336,40:PROCw(D)|M6740OSCLI("*SCHOOSE MN23"):GCOL 8,0:PLOT &ED,336,40:PROCw(D)|M
KEY 4 6750OSCLI("*SCHOOSE MN22"):GCOL 8,0:PLOT &ED,336,40:PROCw(D)|M7110IF FR=0 THEN OSCLI("*SCHOOSE MN25"):GCOL 8,0:PLOT &ED,336,40:FR=1:PROCw(2000)|M
KEY 5 7120IF FR=1 THEN OSCLI("*SCHOOSE MN26"):GCOL 8,0:PLOT &ED,336,40:FR=2:PROCw(2000)|M*UnSet Key$*|MRUN|F|M
ECHO <21>
RMLoad 1
FX 225,1
FX 21,0
FX 138,0,128
FX 138,0,129
FX 138,0,130
FX 138,0,131
FX 138,0,132
FX 138,0,133
BASIC
RMKill WFS
RestoreCSD
UnSet Alias$MOUNT