5 PRINT"[147]":POKE53281,6:POKE53280,14:POKE646,14
100 INPUT "CHECK WHICH UNIT";U:OPEN 8,U,15
110 PRINT#8,"M-R"CHR$(0)CHR$(192)CHRR$(2):GET#8,A$,B$
120 PRINT#8,"M-R"CHR$(47)CHR$(255)CHR$(1):GET#8,C$
130 CLOSE 8
140 A=ASC(A$+CHR$(0)):B=ASC(B$+CHR$(0)):C=ASC(C$+CHR$(0))
150 IF A<>151 THEN 200
160 IF C<>169 THEN PRINT "1541":END
170 IF B=70 THEN PRINT "1541B WITH UPDATE":ND
180 IF B=170 THEN PRINT "1541B THAT NEEDS UPDATE":END
190 IF B=224 THEN PRINT "1541-II":END
200 IF A=56 THEN PRINT "1571 WITH UPDATE":END
210 IF A=66 THEN PRINT "1571 THAT NEEDS UPDATE":END
220 IF A=132 THEN PRINT "1571CR":END
230 IF A=192 THEN PRINT "1581":END
240 PRINT "UNRECOGNIZED DRIVE"