Курсовая работа: Разработка компьютерной игры "Змейка"

write ('*');

end;

For Y1:=2 to 23 do

Begin

GotoXY (3,Y1);

Write ('*');

GotoXY (77,y1);

Write ('*');

end;

assign(f4,'d:\kkk\avtor.pas');

reset(f4);

d:=7;

While not EOF (f4) do

begin

textcolor(10);

readln(f4,prav);

GotoXY (19,d);

Write (prav);

d:=d+2;

for i:=1 to 4 do

Delay (59000);

end;

close(f4);

readln;

end;

if k2=2 then

TextBackground (0);

textcolor(15);

end;