'===========================================================================
' Subject: SET CURSOR TYPEMATIC KEYRATE      Date: Unknown Date           
' Author:  Unknown Author(s)                 Code: QB, PDS                
' Origin:  FidoNet QUIK_BAS Echo           Packet: KEYBOARD.ABC
'===========================================================================
'$INCLUDE: 'QBX.BI' or QB.BI

SUB KeySpeed (rate, delay)
 
'Sets the cursor typematic keyrate.  Rate is the speed at which
'the keys repeat, the range is from 0 to 31, 0 being fastest.
'Delay is the amount of time in 250 millisecond parts before the
'keys begin to repeat.  The range is from 0 to 3, 0 being the
'shortest wait.
 
DIM Regs AS RegType
Regs.ax = &H305
Regs.bx = (delay AND 3) * 256 + (rate AND 31)
CALL Interrupt(&H16, Regs, Regs)
END SUB