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

{
> How would I implement the high intensity colors For the TextBACKGROUND
> Procedure in the Crt Unit?
}

Procedure LightEGAVGA(TurnOn : Boolean);
Var Regs : Registers;
begin
  Regs.AH := $10;
  Regs.AL := $03;
  Regs.BL := Byte(TurnOn);
  Int($10,Regs);
end;

Procedure LightHGC(TurnOn : Boolean);
begin
  if TurnOn then Port[$3b8] := $29
  else           Port[$3b8] := $09;
end;

Procedure LightCGA(TurnOn : Boolean);
begin
  if TurnOn then Port[$3d8] := $29
  else           Port[$3d8] := $09;
end;

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