{***********************************************************************}
{ Fetch type of display attached to EGA and print it			}
{***********************************************************************}

procedure print_display_type;
var
index : integer;
begin
	index := get_display_type;		{ Get display type	}
						{ Print the type	}
	case index of
		3 : writeln('Enhanced Display attached to EGA');
		4 : writeln('Color Display attached to EGA');
		5 : writeln('Monochrome Display attached to EGA');
		7 : writeln('Monochrome Display attached to VGA');
		8 : writeln('Color Display attached to VGA');
	else 
		writeln('Unknown display attached');

	end;
end;