FullCursor


Purpose   Changes the text cursor to a full block.

Decln.    FullCursor;

Remarks   Sets the cursor on monochrome and color systems.

Example

BEGIN
    IF OVERTYPEMODE THEN
       FULLCURSOR;
END;