{**********************************************************************}
{ Set cursor to the middle of 80x25 screen }
{**********************************************************************}
procedure cursor_in_middle;
begin
clear_screen;
set_cursor_position(12,40); { Cursor in middle }
writeln('This string starts at row 12 column 40');
end;