CURSORS.I

[Table of Contents]


The CURSORS.I include file resides on the Kyan Pascal 2.x Utilities Disk 1. It contains four procedures for moving the cursor.

• PROCEDURE Cursor_Left;
• PROCEDURE Cursor_Right;
• PROCEDURE Cursor_Up;
• PROCEDURE Cursor_Down;

These four procedures are not terribly useful, but they will help to create self-documenting code.

Source Code

PROCEDURE Cursor_Left;
    BEGIN
        Write(Chr(30));
END;


PROCEDURE Cursor_Right;
    BEGIN
        Write(Chr(31));
END;


PROCEDURE Cursor_Up;
    BEGIN
        Write(Chr(28));
END;


PROCEDURE Cursor_Down;
    BEGIN
        Write(Chr(29));
END;