Курсовая работа: Игровая программа 15

{Рисование двойной рамочки}

setcolor(1);

setlinestyle(0,0,1);

rectangle(243,183,417,257);

rectangle(248,188,412,252);

setfillstyle(1,14);{Орнамент и

цвет заполнения указателя}

{Указатель-выбор пункта}

bar(250,190+30*b3,410,220+30*b3);

setcolor(13);

settextstyle(8,0,1);

outtextxy(275,195,'Continue . .

.');

outtextxy(275,220,'Exit ');

b2:=readkey;

setfillstyle(1,0);

bar(250,190+30*b3,410,220+30*b3);

{Движение по пунктам меню}

if b2=up then b3:=0;

if b2=down then b3:=1;

if b3=0

then kl:='z'{Выбран пункт

Continue}

else kl:=Esc{Выбран пункт Exit}

until b2=Enter;

end; (*if*)

{Если выбран пункт Continue,то

страничка возвращается из буфера,а

затем буфер очищается}