CURSOR.I

[Table of Contents]

The CURSOR.I include file resides on the Kyan Pascal 2.x Utilities Disk 1. It contains two procedures for manipulating the cursor.

• PROCEDURE Disable_Cursor;
• PROCEDURE Enable_Cursor;

Source Code

PROCEDURE Disable_Cursor;
BEGIN
#A
  LDA #$01 ;poke 1 into
  STA $2F0 ;...CRSINH (752)
#
END;(* Cursor Off procedure *)



PROCEDURE Enable_Cursor;
BEGIN
#A
  LDA #$00  ;poke zero into
  STA $2F0  ;...CRSRINH (752)
#
END;(* Cursor On procedure *)