Реферат: Создание игры

write('Заключение');

gotoxy(30,19);

write('Список литературы');{Это всё менюшка}

gotoxy(26,10);

write('>>>');

gotoxy(25,10);

repeat

a:=readkey;

if a=chr(80) then begin{движение курсора вниз}

b:=wherey;

gotoxy(26,b);

write(' ');

if b>=19 then b:=9;

gotoxy(26,b+1);

write('>>>');

gotoxy(25,b+1);

sound(3000);

delay(1000);

nosound;

end;

if a=chr(72) then begin{движение курсора вверх}

b:=wherey;

gotoxy(26,b);

write(' ');

if b<=10 then b:=20;

gotoxy(26,b-1);

write('>>>');

gotoxy(25,b-1);

sound(4000);