Procedure Ramka;

 

Begin{Procedure}

SetColor(Green);

SetlineStyle(0,0,NormWidth);

Rectangle(5,5,635,475);

Rectangle(40,35,600,50);

SetTextStyle(0,0,1);

SetColor(Red);

Case n_menu of

1:Begin{1}

OutTextXY(250,15,'Гдавное меню');

OutTextXY(270,40,'Разделы');

OutTextXY(170,435,'Выберите пункт меню и нажмите Enter');

SetColor(Green);

Rectangle(40,430,600,445);

End;{1}

2:Begin{2}

OutTextXY(70,40,mas_pun[p_kur]);

SetColor(Green);

Rectangle(40,430,600,445);

End;{2}

3:Begin{3}

OutTextXY(70,40,mas_pun2[x]);

SetColor(Green);

Rectangle(40,390,600,445);

End;{3}

4:Begin{4}

SetColor(Green);

Rectangle(40,430,600,445);

End;{4}

5..10:Begin{5..10}

OutTextXY(70,40,mas_pun[x]);

SetColor(Green);

Rectangle(40,430,600,445);

Line(40,155,600,155);

End;{5..10}

11:Begin{11}

OutTextXY(270,40,' ');

End;{11}

12:Begin{12}

SetColor(Green);

Rectangle(5,5,635,475);

Rectangle(40,35,600,50);

Rectangle(40,430,600,445);

End;{12}

13:Begin{13}

OutTextXY(70,40,mas_pun[n_pun]);

SetColor(Green);

Rectangle(5,5,635,475);

Rectangle(40,35,600,50);

End;{13}

End;{Case}

End;{Procedure}