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