Курсовая работа: Разработка компьютерной игры "Змейка"
assign (f1,'d:\kkk\imena.txt');
assign (f2,'d:\kkk\rec.dat');
repeat
repeat
Clrscr;
TextBackground (0);
TextColor (15);
For X1:=25 to 55 do
Begin
GotoXY (X1,4);
Write ('*');
GotoXY (X1,22);
Write ('*');
end;
For Y1:=4 to 22 do
begin
GotoXY (25,Y1);
Write ('*');
GotoXY (55,Y1);
Write ('*');
end;
K:=0;
Repeat
k:=k+kk;
kk:=0;
If k=0 Then Ramka (30,6,' ИГРАТЬ ',128) else
Ramka (30,6,' ИГРАТЬ ',15);
If k=1 Then Ramka (30,10,' РЕКОРДЫ ',128) else
Ramka (30,10,' РЕКОРДЫ ',15);