Keyboard auto-repeat for Dragon and Coco

Use this forum to submit new files for the download section of the archive. I will check each submission and upload it to the archive on a regular basis.
Post Reply
zephyr
Posts: 1474
Joined: Mon Jul 21, 2008 1:18 am

Keyboard auto-repeat for Dragon and Coco

Post by zephyr » Tue Nov 24, 2009 12:15 am

Here's a great little keyboard auto-repeat routine by Steve Woolham. He sent me this little gem via e-mail the other day and asked me to post it here after I had tested it. The routine works perfectly and its 100% compatible with both Dragon and CoCo machines. I have included a listing of the BASIC loader so that you can type it in directly if you prefer, but please read the included ReadMe file before running the program for the first time.

ENJOY! :)

Code: Select all

0 'KEYBOARD AUTO-REPEAT V1.0
1 'FOR THE DRAGON 32/64/TANO
2 'AND TANDY COLOR COMPUTER
3 'MODELS 1, 2, AND 3.
4 '
5 '(C) 2009 STEPHEN J WOOLHAM
6 '
10 CLEAR200,32696:START=32697
20 HERTZ=50:X=PEEK(49150)+PEEK(49151):IF X=167 OR X=199 THEN COCO=1
30 CLS:FOR I=START TO START+70:READ A$:X=VAL("&H"+A$):CSUM=CSUM+X:POKE I,X:NEXT:IF CSUM<>6161 THEN PRINT"ERROR IN DATA LINE":END
50 IF COCO=1 THEN FOR I=START+32 TO START+67:POKEI,PEEK(I+3):NEXT:POKE START+27,PEEK(START+27)-3:POKE START+31,PEEK(START+31)-3
60 IF HERTZ=60 THEN POKE I-7,6:POKE I-22,48
70 PRINT"START ADDRESS =";START:PRINT"END ADDRESS =";I-1:PRINT"EXEC ADDRESS =";START
80 PRINT@128,"EXEC ADDRESS TOGGLES AUTO-REPEAT ON/OFF."
90 END
100 DATA 1A,50,30,8D,0,12,BC,1,D,27,7,FC,1,D,DD,76,20,2,9E,76,BF,1,D,39,9E,E3,26,27,9E,8D,26,23,74,1,51
110 DATA CC,FF,8,8E,1,52,A1,80,26,7,5A,26,F9,86,28,20,D,A,8C,26,B,30,1F,A7,80,5A,26,FB,86,5,97,8C,6E,9F,0,76
Attachments
autorpt10.zip
(8.3 KiB) Downloaded 135 times

Post Reply