identify disk drives

[Blacklord]

Code Select Expand

1 rem ***** identify disk drives *****  modified by bill wolff v1.0
2 :
3 input"enter device number to check";n
4 open 15,n,15
5 print#15,"m-r"chr$(198)chr$(229)chr$(1):get#15,a$
6 print#15,"m-r"chr$(00)chr$(192)chr$(2):get#15,b$,c$
7 print#15,"m-r"chr$(47)chr$(255)chr$(1):get#15,d$
8 a=asc(a$+chr$(0)):b=asc(b$+chr$(0)):c=asc(c$+chr$(0)):
d=asc(d$+chr$(0))
9 print"   unit"n"is a"; 10 if a=52 and b=151then print" 1541"
11 if a=52 and b=32 then print"n excelerator plus"
12 if a=55 and b=56 and c=40 and d=169 then print" 1571 with -05 rom"
13 if a=55 and b=56 and c=40 and d=168 then print" 157?"
14 if a=55 and b=66 then print" 1571 with old rom set"
15 if a=55 and b=132then print" 1571 in a c128d-cr"
16 if a=255 and b=192thenprint" 1581"
17 close15