{**********************************************************************}
{ Change cursor to a solid cursor by setting cursor start to		}
{ the first line of a character box.					}
{**********************************************************************}

procedure demo_cursor_size;
begin
    set_cursor_size( 0, 13);		{ Full cursor		}
end;