home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / TEST-DOS-VERSION (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  37 lines
  1. 10 REM CHECK DISK TYPE F.BOWEN 09/15/87
  2. 20 REM
  3. 30 REM  THIS PROGRAM WILL IDENTIFY THE
  4. 40 REM  CBM DISK TYPE  BY CHECKING THE
  5. 50 REM  DRIVE'S CHECKSUM BYTE.
  6. 70 REM
  7. 100 INPUT"CHECK WHICH UNIT";U: OPEN8,U,15
  8. 110 PRINT#8,"M-R"CHR$(00)CHR$(192)CHR$(2): GET#8,A$,B$
  9. 120 PRINT#8,"M-R"CHR$(47)CHR$(255)CHR$(1): GET#8,C$
  10. 125 PRINT#8,"M-R"CHR$(230)CHR$(254): GET#8,D$
  11. 130 CLOSE8
  12. 140 :
  13. 150 A=ASC(A$):B=ASC(B$):C=ASC(C$):D=ASC(D$): REM ADD +CHR$(0) IF C64
  14. 160 :
  15. 170 IF A<>151 THEN 230
  16. 180 IF C<>169 THEN 295
  17. 190 IF B= 70  THEN PRINT"1541B WITH UPDATE VERSION 251968-02": END
  18. 200 IF B= 170 THEN PRINT"1541B VERSION 251968-01, NEEDS UPDATE": END
  19. 210 IF B= 224 THEN PRINT"1541-II VERSION 251968-03": END
  20. 220 :
  21. 230 IF A=56   THEN PRINT"1571- WITH UPDATE": END
  22. 240 IF A=66   THEN PRINT"1571- NEEDS UPDATE": END
  23. 250 IF A=132  THEN PRINT"1571CR": END
  24. 260 :
  25. 270 IF A=192  THEN PRINT"1581": END
  26. 280 :
  27. 290 PRINT"UNRECOGNIZED DRIVE":LIST292-294:END
  28. 292 REM 1540 HAD DOS VERSION 325303-XX
  29. 293 REM PLEASE E-MAIL R.DAY ON GENIE            IF YOU HAVE 1540 ROM!
  30. 294 REM THERE WAS NO 901229-02 OR -04
  31. 295 V$="1541 VERSION 901229-0"
  32. 300 IF D=253THENPRINTV$;"1": END
  33. 310 IF D=14THENPRINTV$;"3": END
  34. 320 IF D=62THENPRINTV$;"5": END
  35. 330 IF D=166THENPRINT"1541 WITH JIFFYDOS 5.0": END
  36. 340 GOTO290
  37.