Coding Animasi Nama

Program Animasi;
Uses wincrt;
var delay: longint; i: integer;
begin
begin
   Gotoxy (8,5);writeln('Nama    : Deff Booyy');
   Gotoxy (8,6);writeln('Jurusan : Sistem Informasi A');
   Gotoxy (8,7);writeln('MK      : Algrotitma dan Pemerograman');
end;

{Animasi Bintang 1}

  for i:=1 to 65 do
begin
  gotoxy(6+i,4);write(chr(42));
  for delay:=1 to 1000000 do;
  end;
  for i:=1 to 19 do
  begin
  gotoxy(71,3+i);write(chr(42));
  for delay:=1 to 1000000 do;
  end;
  for i:=1 to 66 do
begin
  gotoxy(72-i,22);write(chr(42));
  for delay:=1 to 1000000 do;
end;
  for i:=1 to 19 do
begin
  gotoxy(6,23-i);write(chr(42));
  for delay:=1 to 1000000 do;
  end;

 {animasi Bintang 2}

 for i:=1 to 70 do
begin
  gotoxy(3+i,3);write(chr(42));
  for delay:=1 to 1000000 do;
  end;
  for i:=1 to 19 do
  begin
  gotoxy(73,3+i);write(chr(42));
  for delay:=1 to 1000000 do;
end;
  for i:=1 to 70 do
begin
  gotoxy(74-i,23);write(chr(42));
  for delay:=1 to 1000000 do;
end;
  for i:=1 to 19 do
begin
  gotoxy(4,23-i);write(chr(42));
  for delay:=1 to 1000000 do;
  end;
 for i:=1 to 62 do
begin
  gotoxy(7+i,8);write(chr(42));
  for delay:=1 to 1000000 do;
  end;
  begin
  for i:= 2 to 72 do
  Begin                                                                
  Gotoxy (8,9);writeln('===================STMIK PALANGKA RAYA=======================');

  end;

  for i:=1 to 62 do
begin
  gotoxy(7+i,10);write(chr(42));
  for delay:=1 to 1000000 do;
  end;
     for i:=1 to 13 do
  begin
  gotoxy(33,9+i);write(chr(42));
  for delay:=1 to 1000000 do;
end;
for delay:=1 to 1000000 do;
  end;
  begin
  for i:= 2 to 72 do
  Begin                                                                
  gotoxy(8,11);write('===================== ');
  gotoxy(8,12);write(' ===Defri Siswanto===  ');
  gotoxy(8,13);write('   ************     ');
  gotoxy(8,14);write('    **********      ');
  gotoxy(8,15);write('     *******       ');
  gotoxy(8,16);write('     *******       ');
  gotoxy(8,17);write('    *********       ');
  gotoxy(8,18);write('   ***********      ');
  gotoxy(8,19);write('  *************      ');

  end;
  end;
end.

Posted in: Pascal