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