Program Bintang Bergerak Pascal

Selamat Malam Kali Ini Mr Stolid Ingin Memposting Coding/Program Bintang Bergerak  Berbentuk Kotak, Kebetulan Baru" Ini Mr Stolid Dapat Tugas Dari Kampus Membuat Program Bintang Bergerak Mengunakan Turbo Pascal 1.5, Kali Aja Lagi Ada Yang Butuh Programnya Oke Deh Gak Panjang Lebar Lagi Berikut Codingnya :

Program Bintang_bergerak;

uses wincrt;

var

delay: longint; i: integer;

begin

begin

Gotoxy (8,5);writeln('Nama    : taufik');

Gotoxy (8,6);writeln('Jurusan : Sistem Informasi A');

Gotoxy (8,7);writeln('MK      : Algrotitma dan Pemerograman');

end;

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;

{Bintang Bergerak 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;

 end.

Berikut Screnshot Programnya :