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

088 } y:=1;

089 } while not eof(d) do begin

090 } read(d,f1);

091 } gotoxy(1,y); write('Iм`я: ',f1.name);

092 } gotoxy(30,y); write('Довжина: ',f1.len);

093 } gotoxy(45,y); write('Oчки: ',f1.scor:5);

094 } y:=y+1;

095 } end;

096 } Close(d);

097 } end;

098 } repeat until keypressed;

099 } textcolor(0);

100}End;

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

101 } Procedure GoUp(x,y:integer);

102 } Begin

103 } Ramka(x,y);

104 } MenuSelect:=Menuselect-1;

105 } IF MenuSelect < 1 THEN MenuSelect:=6;

106 } TextColor(14);

107 } TextBackground(0);

108 } GotoXY(x+1,y+MenuSelect);

109 } write(MenuItem[MenuSelect]);

110 } Textbackground(0);

111 } textcolor(0);

112 } gotoxy(1,1);

113 } End;

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

114 }Procedure GoDown(x,y:integer);