IF PEEK(1801)>16 OR PEEK(1801)=0 THEN ? "}NOT COMPATIBLE with this DOS.":STOP ›CLOSE #1:CLR :DIM Z$(11),Z(8):Z$="NOT Enabled"›FOR Z=1 TO 8:Z(Z)=1:NEXT Z:Z=PEEK(1802)›? "}":IF Z>=128 THEN Z(8)=4:Z=Z-128›? "}":IF Z>=64 THEN Z(7)=4:Z=Z-64›? "}":IF Z>=32 THEN Z(6)=4:Z=Z-32›? "}":IF Z>=16 THEN Z(5)=4:Z=Z-16›? "}":IF Z>=8 THEN Z(4)=4:Z=Z-8›? "}":IF Z>=4 THEN Z(3)=4:Z=Z-4›? "}":IF Z>=2 THEN Z(2)=4:Z=Z-2›? "}":IF Z>=1 THEN Z(1)=4›? "}":FOR Z=1 TO 8:? "Drive ";Z;" is ";Z$(Z(Z)):NEXT Z›? "Would you like to change this set up?":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z<>89 THEN STOP ›? "}Press Numbers of Drives to Enable.":FOR Z=1 TO 8:Z(Z)=0:NEXT Z›?"œ":FOR I=1 TO 4:OPEN #1,4,0,"K:":GET#1,Z:CLOSE #1:IF Z<57 AND Z>48 THEN Z(Z-48)=1:? "DRIVE ";Z-48;Z$(4):NEXT I›Z=1:FOR I=1 TO 8:Z(I)=Z(I)*Z:Z=Z*2:NEXT I:Z=0:FOR I=1 TO 8:Z=Z+Z(I):NEXT I:IF Z>0 THEN POKE 1802,Z›Z=USR(58484)›