program ring;
uses crt;
type noterecord = record
C,CF,D,DF,E,F,FF,G,GF,A,AF,B: integer;
end;
const notes: noterecord =
(C:1;CF:2;D:3;DF:4;E:5;F:6;FF:7;G:8;GF:9;A:10;AF:11;B:12);
{--------------------------------------------------------------}
procedure play(octave,note,duration: integer);
var f: real; i,u: integer;
begin
f := 30.625;
for i := 1 to octave do f := f * 2;
for i := 1 to note - 1 do f := f * 1.059463094;
if duration <> 0 then
begin
sound(round(f));
delay(duration);
nosound;
end
else
sound(round(f));
end;
{--------------------------------------------------------------}
var ch : char;
i,j,u : integer;
begin
clrscr ; textcolor(12);
writeln("hamid_jalali2008@yahoo.com") ;
writeln("hamid.jalali2008@gmail.com") ;
writeln("pascal4pnu.blogfa.com") ;
writeln("bia2pnu.250free.com/1") ;
randomize;
repeat
randomize;
textcolor(random(15));
gotoxy(20,10);write("Dialing for ostad Aryan...");
gotoxy(20,12);write("Press any key expect enter");
for j:= 1 to 7 do
with notes do
begin
play(4,D,30);
delay(18);
play(4,D,20);
end;
delay(150);
for j := 1 to 7 do
with notes do
begin
play(4,D,30);
delay(18);
play(4,D,20);
end;
delay(1300);
until keypressed;
textcolor(5);
gotoxy(30,20);writeln("Connected");
gotoxy(30,22);writeln("Wonderfull!!!");
writeln(" Hello hamid jalali want say you are in the mind ");
readln;
end.