Diagnostic Programs
BASIC Code Listings
SPEED UP AT KEYBOARD

100 REM === SPEED UP 'AT' KEYBOARD ===
110 DATA 176, 243, 230, 96, 185, 255, 255, 226, 254, 176, 230, 96, 205, 32
120 INPUT "Enter initial delay in quarter seconds, [1 - 4]: ", I%
125 IF I% < 1 OR I% > 4 THEN 120
130 INPUT "Enter repeat rate, 0=fast 31=slow, [0 - 31]: ", R%
135 IF R% < 0 OR R% > 31 THEN 130
140 OPEN "O", #1, "KEYSPEED.COM"
150 FOR K% = 1 TO 10: READ J%: PRINT #1, CHR$(J%); : NEXT K%
152 PRINT #1, CHR$(I% * 32 - 32 + R%);
154 FOR K% = 1 TO 4: READ J%: PRINT #1, CHR$(J%); : NEXT K%
158 CLOSE #1
160 END