SoloCodigo

Saludos!.
Creé este código en donde aparece el valor de TextAttr (que va de 0 a 255) para cada color de texto (TextColor, que va del 0 al 31, contando los que titilan - blink), con cada color de fondo (TextBackground, que va del 0 al 7, y que son iguales a los 8 primeros colores del TextColor).
>> Para cambiar de color de fondo, presiona cualquier tecla. Para salir del programa, presiona la tecla ESC en cualquier momento <<
Hay una copia de este archivo en http://mipagina.cantv.net/bernardolg/tp/files/BACKGRD1.PAS
Despues que veas la combinación de color de texto con color de fondo, simplemente haces TextAttr:=192 (letras negras que titilan sobre fondo rojo), o TextAttr:=15 (letras blancas en fondo negro), o el que mas te sirva,  en cualquier parte de tu programa.
Utiliza Normvideo para reestablecer el TextAttr original, o lee los mensaje de este foro para otros ejemplos del TextAttr.
A programar!.
Bernardo L.

{* * * *}
PROGRAM TextoFondo;
USES CRT;
VAR C1:BYTE;
    Chr1:CHAR;

PROCEDURE TEXTOO;
  VAR C1,C2:BYTE;
  BEGIN
    FOR C1:=0 TO 31 DO
      BEGIN
        TEXTCOLOR (C1);
        FOR C2:=1 TO 4 DO
          WRITE (TEXTATTR:5)
      END;
    END;

BEGIN
  CLRSCR;
  C1:=0;
  WHILE Chr1 <> #27 DO
    BEGIN
      IF C1 = 8 THEN
        C1:=0;
      TEXTBACKGROUND (C1);
      CLRSCR;
      TEXTOO;
      INC (C1);
      Chr1:=READKEY
    END;
  NORMVIDEO;
  CLRSCR
END.
{* * * *}

NOTA: correciones bien recibidas.

Epale BlackTigerX!.
Pana, thanks por la nota.
No habia visto el boton de CODE!!. Así sí se ve bien.
Cuando "Pegué" el código, se comió todos los tabuladores.
Bernardo L.