0 REM FROM GREKELCOM -- 405-722-5056 30 REM DISK DRIVE TEST SPEED CHECK BASED ON A CONCEPT FROM THE MAY 82 COMPUTE & REVISED BY A.C.A.O.C. 40 REM RPM SPEEDS UNDER 285 ARE TOO SLOW AND NEED ADJUSTMENT. SPEEDS 285- 290 ARE OK. LEAVE AS THEY ARE. 50 REM SPEEDS OVER 290 ARE TOO FAST. 51 REM THIS TEST PROGRAM ASSUMES THAT 288 RPM IS PERFECT, ALTHOUGH THERE IS AN ACCEPTABLE RANGE THAT WORKS. 52 REM UNLIKE MY FIRST DISKRPM PROGRAM DONATION, THIS ONE WORKS WITH THE NEW FAST FORMATTING DRIVE CHIPS. 53 REM LET THE DISK RUN UNTIL YOU GET SEVERAL READINGS TO GIVE YOU AN IDEA WHAT YOUR DRIVE DOES WHEN ON. 60 REM REVISED & DONATED BY FRED WARD 100 POKE 82,10:POKE 752,1 110 ? " " 120 POKE 709,0:POKE 710,12:POKE 712,12 130 FOR I=0 TO 72 140 READ A:POKE 1536+I,A:NEXT I 160 ? " DISK SPEED READER" 170 ? :? :? " PUSH SYSTEM RESET" 190 ? :? " TO TERMINATE TEST":? :? :? 210 ? "TESTING WHICH DRIVE NUMBER"; 220 OPEN #1,4,0,"K:":GET #1,K:CLOSE #1 230 D=K-48:IF D<1 OR D>4 THEN 220 240 ? D:? 250 ? " RPM READING: " 260 POKE 1610,D 270 X=USR(1536) 280 A=PEEK(1611):B=PEEK(1612) 290 M=(256*B+A)/3600 300 R=INT(100/M+0.5) 310 SOUND 1,50,10,15 320 FOR A=1 TO 100 330 POSITION 26,12:? R;" " 340 NEXT A:SOUND 1,0,0,0:? :? :? :? 370 ? " SPEED IS "; 380 POSITION 20,17 390 IF R<285 THEN ? " TOO SLOW":GOTO 270 400 IF R>290 THEN ? " TOO FAST":GOTO 270 410 IF R=288 THEN ? "PERFECT ":GOTO 270 420 ? "O.K. ":GOTO 270 430 DATA 104,169,1,141,10,3,169,0 440 DATA 141,11,3,141,4,3,169,5 450 DATA 141,5,3,173,74,6,141,1 460 DATA 3,169,82,141,2,3,169,5 470 DATA 141,73,6,32,83,228,206,73 480 DATA 6,208,248,169,100,141,73,6 490 DATA 169,0,133,19,133,20,32,83 500 DATA 228,206,73,6,208,248,165,20 510 DATA 164,19,141,75,6,140,76,6,96