REPEAT.I

[Table of Contents]

The REPEAT.I include file resides on the Kyan Pascal 2.x Utilities Disk 1.

• PROCEDURE Fast_Key_Repeat;
• PROCEDURE Normal_Key_Repeat;
• PROCEDURE Slow_Key_Repeat;

Source Code

PROCEDURE Fast_Key_Repeat;
BEGIN
#A
  LDA #$01 ;poke 1 (too fast!) into
  STA 730  ;...repeat rate location
#
END;(* Speed Up Cursor procedure*)



PROCEDURE Normal_Key_Repeat;
BEGIN
#A
  LDA #$06 ;poke 6 (1/10th sec.) into
  STA 730  ;...repeat rate location
#
END;(* Normal Cursor Speed procedure *)



PROCEDURE Slow_Key_Repeat;
BEGIN
#A
  LDA #60  ;poke 60 (1 second) into
  STA 730  ;...repeat rate location
#
END; (* Slow Cursor Speed procedure *)