Pascal/Turbo Pascal - Colores en modo TEXTO

Más colores en modo texto:

En modo texto y graficos 16 colores ,solo disponemos de una paleta de colores de 16 colores , a modo de paleta de un pintor, solo disponemos de 16 colores pero no necesariamente los mismos que vienen por defecto , nosotros podemos cambiar el
color del color que queramos a otro de nuestro gusto por medio de los componetes que
forman cada color RGB RED-GREEN-BLUE ó rojo verde y azul.

dicho esto
textcolor(1) representaria al azul por defecto
textcolor(0) representaria al negro por defecto

cambiando los componentes RGB del color 1 (azul) o color 0 (negro) podemos darle otras tonalidades como un verde un blanco o incluso los mismos colores pero mas claros o mas obscuros.

ahí van dos procedimientos para el que quiera practicar con la paleta de colores , recordar que cualquier cambio de paleta afectara al MS-DOS y a todos sus programas.

_REF008001___________________________________________________________

{ definir estado color de la pagina INT 10H funcion 10h subfuncion 13h
solo valido para modos 16 colores }
{ 0,0= 4 paginas de 64 registros }
{ 0,1=16 paginas de 16 registros }
procedure FIJAR_ESTADO_PAG_COLOR(pagina,modo:byte);assembler;
asm
mov ah,10h
mov al,13h
mov bh,modo
mov bl,0
int 10h

end;

{............................................................................}
Procedure DefinePaleta(color,r,g,b:byte);
var nulo:byte;
begin
nulo:=port[$3c9];
port[$3c8]:=color;
port[$3c9]:=r;
port[$3c9]:=g;
port[$3c9]:=b;
end;
{............................................................................}

NO ENTIENDO TU EXPLIACION XQ NO LO PONES MAS FACIL

estas re loco hermano, como vas a midificar los colores del ms-dos, con esta sentencia modificas todo...