{***********************************************************************}
{ Determine primary adapter and print it				}
{***********************************************************************}

procedure print_primary;
const
type0 : array[0..8] of char = 'Undefined';
type1 : array[0..6] of char = 'EGA/VGA';
type2 : array[0..2] of char = 'CGA';
type3 : array[0..11] of char = 'MDA/Hercules';
var
display : integer;
begin
    display := get_primary;
    case display of
        0 : writeln(type0,' is the primary adapter');
        1 : writeln(type1,' is the primary adapter');
        2 : writeln(type2,' is the primary adapter');
        3 : writeln(type3,' is the primary adapter');
    end;
end;