home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 July / 1989-07.d64 / progpage1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  354b  |  10 lines
  1. 5 print"[147]":poke53280,14:poke53281,6:poke646,14
  2. 100 dn=8:close 1:open 1,dn,15,"u9":input#1,en,em$,et,es
  3. 110 if right$(em$,2)<>"71" then print:print "not a 1571 drive":close 1:end
  4. 120 print#1,"m-r"chr$(0)chr$(128)chr$(2):get#1,a$,b$:close 1
  5. 130 a=asc(a$+chr$(0)):b=asc(b$+chr$(0)):r$="unknown"
  6. 140 if a=157 then if b=30 then r$="-01"
  7. 150 if a=146 then if b=37 then r$="-03"
  8. 160 if a=242 then if b=104 then r$="-05"
  9. 170 print "1571 dos rom revision is ";r$
  10.