home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / 1541-TIMING-CHECKER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  41 lines

  1. 10 REM              DISK TIMER
  2. 20 REM                 BY
  3. 30 REM             A.E. KRAUSE
  4. 40 PRINT"[147]";:PRINT"  4040/2031/8050/1540/1541 "
  5. 50 PRINT:PRINT"    SPEED CHECK PROGRAM"
  6. 60 PRINT"       BY A.E. KRAUSE"
  7. 65 PRINT"THIS PROGRAM WILL NOT WORK WITH FAST"
  8. 66 PRINT"LOAD OR SIMILAR PRODUCTS!"
  9. 70 PRINT:PRINT
  10. 80 INPUT "DISK DEVICE # = 8[157][157][157]";DV
  11. 90 OPEN 15,DV,15
  12. 100 INPUT "DRIVE #  0[157][157][157]";DR$:DR=VAL(DR$)
  13. 110 INPUT "CHECK TRACK #  35[157][157][157][157]";TR
  14. 120 V=0:IF(PEEK(59459)=0)THEN V=1:KL=40:GOTO140
  15. 130 A1=56328:A2=A1+1:A3=A1+2:A4=A1+3:KL=100
  16. 140 PRINT#15,"I"+DR$
  17. 150 OPEN 2,DV,2,"#2"
  18. 160 T=TR:S=0:KM=100:YU=0.03
  19. 170 PRINT"[147]";
  20. 180 PRINT"ENTER SHIFT C TO STOP PROGRAM"
  21. 190 PRINT"      CORRECT SPEED IS 4.95 TO 5.05"
  22. 200 PRINT#15,"U1:";2;DR;T;S
  23. 210 PRINT#15,"U1:";2;DR;T;S
  24. 220 FOR K=1 TO KM
  25. 230 IF(V=0)THEN POKE A4,0:POKE A3,0:POKEA2,0:POKEA1,0
  26. 240 T1=TIME
  27. 250 FOR J=1TOKL
  28. 260 PRINT#15,"U1:";2;DR;T;S
  29. 270 NEXTJ
  30. 280 T2=TIME
  31. 290 IF(V=1)THEN DT=(T2-T1)/60:GOTO340
  32. 300 CC=PEEK(A4)
  33. 310 B1=PEEK(A2):B2=PEEK(A1)
  34. 320 B=(B1 AND (15*16))/16*10+(B1 AND 15)
  35. 330 DT=B+B2/10
  36. 340 PRINT"           [157][157][157][157][157][157][157][157][157][157][157][157]";KL/DT-YU
  37. 350 GETZ$:IF(Z$="[195]")THEN CLOSE15:STOP
  38. 360 NEXT K
  39. 370 STOP
  40. 380 END
  41.