5 DV=PEEK(186):IFDV<8THENDV=8 10 IFA=.THENA=1:LOAD"DOWN BOOT.O",DV,1 15 POKE2,1 16 POKE49182,DV:POKE49231,DV:POKE49301,DV 17 POKE49328,DV 20 SYS49152,57344,52224,"DOWN.SHP",16384,"DOWN DOWN DOWN" 9999 END 10000 D=PEEK(186):N$="B.DOWN":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END