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

      Hi, Rolfi:

    RM>Anybody know and easy way to do DarkGrey for a bkgrnd???

      ...You have to turn off the "blink-bit", if possible. This is
      only available for CGA and EGA/VGA color text modes.

      (***** Turn the "blink-bit" on/off to allow 16 different background *)
      (*     colors. (CGA ONLY!)                                          *)
      (*                                                                  *)
      procedure SetBlinkCGA({input } TurnOn : boolean);
      begin
        if TurnOn then
          begin
            mem[$0040:$0065] := (mem[$0040:$0065] AND (NOT $20));
            port[$3D8] := $29
          end
        else
          begin
            mem[$0040:$0065] := (mem[$0040:$0065] OR $20);
            port[$3D8] := $09
          end
      end;        (* SetBlinkCGA.                                         *)

      (***** Turn the "blink-bit" on/off to allow 16 different background *)
      (*     colors. (EGA or VGA ONLY!)                                   *)
      (*                                                                  *)
      procedure SetBlinkEGAVGA({input } TurnOn : boolean);
      begin
        asm
          mov ax, 1003h
          mov bl, TurnOn
          int 10h
        end
      end;        (* SetBlinkEGAVGA.                                      *)

                                   - Guy
    ---
     þ DeLuxeý/386 1.25 #5060 þ
     * Rose Media, Toronto, Canada : 416-733-2285
     * PostLink(tm) v1.04  ROSE (#1047) : RelayNet(tm)

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