Program ex_06;

uses Crt;

var Fon,Col,ColD,FonInv,ColInv,ColInvD:byte; OldC:byte;

procedure Frame(i1,j1,i2,j2:integer);

var i,j:integer;

begin

if (i1 < 1) or (i2 > 80) or (i1 >= i2) or

(j1 < 1) or (j2 > 25) or (j1 >= j2) then exit;

GotoXY(i1,j1);

write('г');for i:=i1 + 1 to i2 - 1 do

write('=');write('¬');

for j:=j1 + 1 to j2 - 1 do

begin GotoXY(i1,j);write('¦');

GotoXY(i2,j);write('¦')

end;

GotoXY(i1,j2);

write('L');for i:=i1 + 1 to i2 - 1 do

write('=');write('-');

GotoXY(i2 - 1,j1 + 1)

end;

procedure MySetColor(var Fon,Col,ColD,FonInv,ColInv,ColInvD:byte);

var c:char;

begin

ClrScr; Writeln('УСТАHОВКА ЦВЕТА ДЛЯ МЕHЮ И ПАHЕЛЕЙ');

Writeln('клавиша ц в е т ');

Writeln('c основной цвет ');

Writeln('v выделенный цвет ');

Writeln('f цвет фона ');

Writeln('i инверсный основной цвет ');

Writeln('j инверсный выделенный цвет');

Writeln('g инверсный цвет фона ');

begin

Writeln('Hажмите <ENTER> после установки');

Frame(2,10,41,15); Window(3,11,40,14);

repeat

TextBackGround(FonInv); ClrScr;

TextBackGround(Fon);

TextColor(Col);Write(' Основной текст ');

TextColor(ColD );

Write (' Выделенный цвет ');

TextBackGround(FonInv);

TextColor(ColInv );

Write (' Инвеpсный основной текст ');

TextColor(ColInvD);

Write('Инвеpсный выделенный текст ');

c:=ReadKey;

case c of

'f': Fon :=(Fon+1) mod 8;

'g': FonInv :=(FonInv+1) mod 8;

'c': Col :=(Col+1) mod 16;

'v': ColD :=(ColD+1) mod 16;

'i': ColInv :=(ColInv+1) mod 16;

'j': ColInvD:=(ColInvD+1) mod 16;

else;

end

until c=#13;

TextBackGround(Fon);

TextColor(Col );

end;

TextBackGround(0);

TextColor(15);

OldC:=TextAttr;

Fon:=0;Col:=15;ColD:=14;FonInv:=7;

ColInv:=0;ColInvD:=1;

MySetColor(Fon,Col,ColD,FonInv,ColInv,ColInvD);

Window(1,1,80,25);ClrScr;

writeln('Установлены цвета:');

writeln(' Fon Col ColD FonInv ColInv ColInvD');

writeln(Fon:7,Col:7,ColD:7,FonInv:7,ColInv:7,ColInvD:7);

repeat until KeyPressed;

TextAttr:=OldC

end.

***********************************

CheckBreak: (Boolean)

Controls user termination of an application using the CRT window.

const CheckBreak: Boolean = True;

When CheckBreak is True, the user can terminate the application at any time by pressing Ctrl-Break

CheckEOF: (Boolean)

Controls the end-of-file character checking in the CRT window.

Const CheckEOF: Boolean = False;

When CheckEOF is True, an end-of-file marker is generated when the user presses Ctrl+Z while reading from a file assigned to the CRT window. When CheckEOF is False, pressing Ctrl+Z has no effect.