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)¢əəəəəəəəəəəəəəəəəəəəəəəə
