SizeCursor


Purpose   Sets the cursor to any acceptable size.

Decln.    SizeCursor(Top,Bot:byte);

Remarks   Top, Bot are the top and bottom scan lines of the cursor.

          The top scan line is 0. The bottom scan line is 12 on monochrome
          systems and 7 on color systems.

Example

BEGIN
    IF COLORSCREEN
       SIZECURSOR(0,3)
    ELSE
       SIZECURSOR(0,6);
END;