Programalama > PASCAL

uses crt;
var i:integer;
begin
textcolor(yellow);
clrscr;
gotoxy(30,1);
write('d');
gotoxy(41,49);
write('n');
for i:=1 to 25 do
begin
gotoxy(30,i);
write('d');
gotoxy(41,(49-i));
write('n');
delay(100);
end;
gotoxy(32,1);
write('e');
gotoxy(43,49);
write('a');
for i:=1 to 25 do
begin
gotoxy(32,i);
write('e');
gotoxy(43,(49-i));
write('a');
delay(100);
end;
gotoxy(34,1);
write('m');
gotoxy(45,49);
write('z');
for i:=1 to 25 do
begin
gotoxy(34,i);
write('m');
gotoxy(45,(49-i));
write('z');
delay(100);
end;
gotoxy(36,1);
write('i');
gotoxy(47,49);
write('');
for i:=1 to 25 do
begin
gotoxy(36,i);
write('i');
gotoxy(47,(49-i));
write('');
delay(100);
end;
gotoxy(38,1);
write('r');
gotoxy(49,49);
write('m');
for i:=1 to 25 do
begin
gotoxy(38,i);
write('r');
gotoxy(49,(49-i));
write('m');
delay(100);
end;
gotoxy(30,1);
write('                                               ');
gotoxy(41,49);
write('                                               ');
for i:=1 to 23 do
begin
gotoxy(30,i);
write('                                               ');
gotoxy(41,(49-i));
write('                                               ');
delay(100);
end;
gotoxy(30,24);
write('                             ');
clrscr;
gotoxy(30,24);
write('d e m i r  ');
gotoxy(41,26);
write('n a z  m');
delay(100);
clrscr;
gotoxy(30,23);
write('d e m i r');
gotoxy(41,27);
write('n a z  m');
delay(100);
clrscr;
gotoxy(30,22);
write('d e m i r');
gotoxy(41,28);
write('n a z  m');
delay(100);
for i:=1 to 12 do
begin
clrscr;
gotoxy((30+i),22);
write('d e m i r');
gotoxy((41-i),28);
write('n a z  m');
delay(100);
end;
clrscr;
gotoxy(29,27);
write('n a z  m');
gotoxy(42,23);
write('d e m i r');
delay(100);
clrscr;
gotoxy(29,26);
write('n a z  m');
gotoxy(42,24);
write('d e m i r');
delay(100);
clrscr;
gotoxy(29,25);
write('n a z  m');
gotoxy(42,25);
write('d e m i r');
gotoxy(29,25);
textcolor(20);
write('n a z  m    d e m i r');
readln;
end

nazım demİr
demirnazim@hotmail.com