Реферат: Программирование игры Змейка

116 }ramka(x,y);

117 }MenuSelect:=MenuSelect+1;

118 }IF MenuSelect > 6 THEN MenuSelect:=1;

119 }textcolor(14);

120 }textbackground(0);

121 }gotoxy(x+1,y+MenuSelect);

122 }write(MenuItem[MenuSelect]);

123 }textcolor(0);

124 }textbackground(0);

125 }gotoxy(x,y);

126 }End;

{------------------------------------------------------}

127 }Procedure Menu;

128 }label b;

129 }Var

130 }X,Y,I:integer;

131 }Begin

132 }b:

133 }dlina:=5;

134 }Naprav:=1;

135 }HeadX:=5;

136 }HeadY:=1;

137 }Score:=0;

138 }X:=28;Y:=20;

139 }clrscr;

140 }Ramka(x,y);

141 }textcolor(14);

142 }textbackground(0);

143 }gotoxy(x+1,y+Menuselect);