{**********************************************************************}
{ Print 'Hello' in the middle of 80x25 screen                          }
{**********************************************************************}

procedure print_hello;
const
hello : string[5] = 'Hello';
begin
	clear_screen;
	write_string(12, 40, seg(hello), ofs(hello));  { Display a string }
end;