[Coco] COCO STEP RATE

[bOB sWOGER]

 <johnchasteen at ...> writes:

> 
> Hello Coco Folks
> How do I change the Step rate so my drives will quit chattering?
> Thanks for your help
> 
> John
> 
> ____________________________________________________________
> NetZero now offers 4G mobile broadband. Sign up now.
> http://www.netzero.net/?refcd=NZINTISP0512T4GOUT1
> 
> --
> Coco mailing list
> Coco at ...
> http://five.pairlist.net/mailman/listinfo/coco
> 
> 

10 CLS:LET S=PEEK(&HD816) :REM BY ROBERT SWOGER FOR LOGICALL
20 PRINT:PRINT" YOUR CURRENT ";
30 IF S=23 THEN PRINT"STEP RATE = 30 MS"
50 IF S=21 THEN PRINT"STEP RATE = 20 MS"
60 IF S=20 THEN PRINT"STEP RATE = 6 MS"
70 PRINT
100 PRINT"   1 CHANGE STEP RATE TO 30 MS"
110 PRINT"   2 CHANGE STEP RATE TO 20 MS"
120 PRINT"   3 CHANGE STEP RATE TO  6 MS"
130 PRINT"   4 SAVE THIS PROGRAM TO DISK":PRINT"     PRESS <ENTER> TO EXIT"
140 PRINT:INPUT"        ENTER SELECTION";Q$
150 IF Q$="" THEN GOTO 9998
160 IF Q$="Q" THEN STOP
170 IF Q$ = "1" THEN POKE &HD816, 23
180 IF Q$ = "2" THEN POKE &HD816, 21
190 IF Q$ = "3" THEN POKE &HD816, 20
200 IF Q$ = "4" OR Q$ = "S" THEN GOTO 9999
210 GOTO 10 
9998 RUN"L
9999 SAVE"STEPRATE.BAS" :RUN