HalfCursor


Purpose   Changes the cursor to a half block.

Decln.    HalfCursor;

Remarks   Sets the cursor on monochrome and color systems.

Example

BEGIN
    IF INSERTMODE THEN
       HALFCURSOR;
END;