{**********************************************************************}
{ Determine if there is a second video adapter in the system		}
{**********************************************************************}

procedure print_if_second;
begin
    if get_second_adapter > 0 then writeln('Second adapter is present')
    else  writeln('EGA/VGA is the only adapter present');
end;