{**********************************************************************}
{ 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;