home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 July / 1989-07.d64 / progpage2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  515 b   |  17 lines
  1. 5 print"[147]":poke53281,6:poke53280,14:poke646,14
  2. 100 input "check which unit";u:open 8,u,15
  3. 110 print#8,"m-r"chr$(0)chr$(192)chrr$(2):get#8,a$,b$
  4. 120 print#8,"m-r"chr$(47)chr$(255)chr$(1):get#8,c$
  5. 130 close 8
  6. 140 a=asc(a$+chr$(0)):b=asc(b$+chr$(0)):c=asc(c$+chr$(0))
  7. 150 if a<>151 then 200
  8. 160 if c<>169 then print "1541":end
  9. 170 if b=70 then print "1541b with update":nd
  10. 180 if b=170 then print "1541b that needs update":end
  11. 190 if b=224 then print "1541-ii":end
  12. 200 if a=56 then print "1571 with update":end
  13. 210 if a=66 then print "1571 that needs update":end
  14. 220 if a=132 then print "1571cr":end
  15. 230 if a=192 then print "1581":end
  16. 240 print "unrecognized drive"
  17.