{**********************************************************************}
{ Display 'Hello' in a single line box                                 }
{**********************************************************************}

procedure boxed_hello;
const
line1 : string[9] = #218#196#196#196#196#196#196#196#191;
line2 : string[9] = #179' Hello '#179;
line3 : string[9] = #192#196#196#196#196#196#196#196#217;
var
i : integer;
begin
	{--- Set default text mode					}
	i := get_display_type;
	if i = MONO then set_mode(7)
	else	set_mode(3);

	write_string(10, 35, seg(line1),ofs(line1)); { Display top of box }
	write_string(11, 35, seg(line2),ofs(line2)); { Display middle of box }
	write_string(12, 35, seg(line3),ofs(line3)); { Display bottom of box }
end;