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

145 }textcolor(0);

146 }textbackground(0);

147 }gotoxy(1,1);

148 }repeat

149 }I:=ord(readkey);

150 }case I of

151 }72:GoUp(x,y);

152 }80:GoDown(x,y);

153 }end;

154 }Until (I=27)or(I=13);

155 }IF i=27 THEN halt;

156 }Case MenuSelect of

157 }1: Begin

DTime:=10000;

ScorePlus:=5;

End;

158 }2: Begin

DTime:=8000;

ScorePlus:=10;

End;

159 }3: Begin

DTime:=6000;

ScorePlus:=15;

End;

160 }4: Begin

DTime:=4000;

ScorePlus:=20;

End;

161 }5: Begin