{**********************************************************************}
{ 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;