[Back to COLOR SWAG index] [Back to Main SWAG index] [Original]

    {
    > know a good, easy way to detect mono/color?
    }

    Program CheckDisplay;
    Var
      Display: Byte Absolute $40:$10;

    begin
      if ((Display and $30) = $30) then
        Writeln('Monochrome display')
      ELSE
        Writeln('Color display');
    end.

[Back to COLOR SWAG index] [Back to Main SWAG index] [Original]