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

{
>Hello, I am writing an application that is some what color
>coordinated. I would like to have the background changed (usually
>black) to one of the background colors without affecting the
>foreground (so I do not have to reWrite the foreground screen).  So
}

Uses
  Dos;

Procedure ChangeBG(Color : Byte);
Var i : Word;
begin
  For i := 0 to 3999 do
    If Odd(i) then
      Mem[$b800:i] := (Mem[$b800:i] and 15) or ((Color and 7) shl 4)
end;

Var
  ColChar : String;
begin
  ColChar := ParamStr(1);
  ChangeBg(Ord(ColChar[1]));
end.

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