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

320 }while key<>#27 do

321 }begin

322 }if KeyPressed then

323 }begin

324 }key:=readkey;

325 }if key=#0 then

326 }case readkey of

#72: if Naprav <> 4 then Naprav := 3;{Down}

#80: if Naprav <> 3 then Naprav := 4;{up}

#75: if Naprav <> 1 then Naprav := 2;{Left}

#77: if Naprav <> 2 then Naprav := 1;{Rigth}

327 }end;

328 }end;

329 }textcolor (0);

330 }gotoxy(1,1);

331 }DELAY(DTime);

332 }Move;

333 }textcolor (0);

334 }gotoxy( 1,1);

335 }end;

336 }kill;

337 }goto 1;

338 }close(f);

339 }end.