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

    {
    SEAN PALMER

    > I want to know how to get and set the screen colors Without using the
    > Crt Unit or ansi codes.  Any help is appreciated.

    Change the Byte in video memory For the attribute For a Character.
    }

    Var
      ScreenMem : Array [0..24, 0..79, 0..1] of Char Absolute $B800 : 0;

    Procedure changeColor(x, y, attrib : Byte);
    begin
      screenMem[y - 1, x - 1, 1] := Char(attrib);
    end;

    { For monochrome monitors it's Absolute $B000 : 0; }
    begin
      ChangeColor(34, 12, $1C);
    end.

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