uses crt;
Label org;
var
a,b:integer;
myap:char;
begin
clrscr;
(* Arka Plan Rengi*)
textbackground(lightgreen);
for a:=1 to 250 do write('':10);
(*Arka Plan Renginin Sonu*)
textcolor(white);
gotoxy(30,8);
writeln('Müzik');
delay(1000);
gotoxy(30,9);
textcolor(lightred);
writeln('Yap');
delay(1000);
gotoxy(30,11);
textcolor(white);
writeln('MüYaP v1.0');
delay(1000);
clrscr;
textbackground(white);
for b:=1 to 250 do write('':10);
gotoxy(30,8);
textcolor(lightred);
writeln('[1]Do');
gotoxy(30,9);
textcolor(black);
writeln('[2]Re');
gotoxy(30,10);
textcolor(lightred);
writeln('[3]Mi');
gotoxy(30,11);
textcolor(black);
writeln('[4]Fa');
gotoxy(30,12);
texcolor(lightred);
writeln('[5]Sol');
gotoxy(30,13);
textcolor(black);
writeln('[6]La');
gotoxy(30,14);
textcolor(lightred);
writeln('[7]Si');
gotoxy(30,15);
textcolor(black);
writeln('[8]İnce Do');
gotoxy(30,17);
textcolor(lightmagenta);
writeln('[Esc]Çıkış');
org:
myap:=readkey;
case myap of
'1':begin
repeat
sound(900);
until keypressed;
nosound;
goto org;
myap:=readkey;
end;
'2':begin
repeat
sound(1000);
until keypressed;
nosound;
goto org;
myap:=readkey;
end;
'3':begin
repeat
sound(1100);
until keypressed;
nosound;
goto org;
myap:=readkey;
end;
'4':begin
repeat
sound(1200);
until keypressed;
nosound;
goto org;
myap:=readkey;
end;
'5':begin
repeat
sound(1300);
until keypressed;
nosound;
goto org;
myap:=readkey;
end;
'6':begin
repeat
sound(1400);
until keypressed;
nosound;
goto org;
myap:=readkey;
end;
'7':begin
repeat
sound(1500);
until keypressed;
nosound;
goto org;
myap:=readkey;
end;
'8':begin
repeat
sound(1600);
until keypressed;
nosound;
goto org;
end;
'0':begin
clrscr;
writeln(chr(2));
write(' BayBayyy');
delay(1000);
exit;
myap:=readkey;
end;
end;
readln;
end.

__________________