PROGRAM WHICH_DISPLAY;   { For the IBM PC! }

TYPE BYTE_PTR = ^BYTE;

VAR BP : BYTE_PTR;
    B  : BYTE;

BEGIN
  BP := PTR($0030,$0410);  { Address of equipment flag byte }
  B := BP^;
  IF B AND $30 = $30 THEN WRITELN('Monochrome display installed!')
    ELSE WRITELN('Color graphics adapter installed!')
END.