IF PEEK(1801)>16 OR PEEK(1801)=0 THEN ? "}NOT COMPATIBLE with this DOS.":STOP ›CLOSE #1:CLR :Z=PEEK(1801):? "}";Z;" Buffers are set up by this DOS."›? "";Z;" Single Density or ";INT(Z/2);" Double Density  Files may be opened at the same time."›? "Would you like to change this?":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z<>89 THEN STOP ›? "}How many Buffers would you like DOS   to set up?":OPEN #1,4,0,"K:":GET #1,Z:CLOSE #1:IF Z<49 OR Z>57 THEN STOP ›POKE 1801,Z-48:Z=USR(58484)›