BkTxtAttr: byte;
begin
ClrScr; { borro la pantalla }
BkTxtAttr:=TextAttr; { me guardo los atributos de texto originales }
Write('Este es el fondo de la pantalla');
ReadKey;
BkPant:=Pant; { guardo la pantalla }
Window(10,10,20,15); { creo una ventana }
TextbackGround(4);
ClrScr; { pinto su fondo de rojo }
Write('Esto es adentro de una ventana de texto');
ReadKey;
Window(1,1,80,25); { reestablezco el tamaño original de 80 x 25 }
Pant:=BkPant; { reestablezco el fondo }
TextAttr:=BkTxtAttr; { reestablezco los atributos de texto }
GotoXY(1,25);
Write('Estoy afuera de la ventana otra vez.');
ReadKey;
end.