cara buat listing Program Animasi Bergerak dengan TURBO PASCAL

MASIH DALAM AREA TAHUN BARU SAYA AKAN MEMBERIKAN BEBERAPA LISTING PROGRAM DENGAN MENGGUNAKAN TURBO PASKAL PADA SAAT KULIAH PEMROGRAMAN PASCAL DI STMIK AMIKOM PURWOKERTO tempat saya berkuliah kuliah diwaktu semester 1 dan alhamdulilah sekarang saya sudah memasuki semester 3 dan maju terus STMIK AMIKOM PURWOKERTO TETAP JAYA
dan ini contohnya silahkan di COPAS ke aplikasi turbo pascal anda semoga bermanfaat tanks from DOKTERS BAND jangan lupa di kasih komentar

Program Animasi_Bergerak;
Uses wintypes,winprocs,wincrt;
var
a : integer;
Procedure
Delay (msec : integer);
var
time : longint;
msg : tmsg;
Begin
time := gettickcount;
inc (time,msec);

while gettickcount < time do
Begin
If peekmessage (msg,0,0,0,pm_remove) then
Begin
If msg.message = wm_quit then
Begin
postquitmessage (msg.wparam);
exit
end;
translatemessage (msg);
dispatchmessage (msg)

end;
end;
end;
Begin
For A :=1 to 11 do
Begin

clrscr;
GotoXY(A,10);Write('5 ULUL AZMI ');
Delay (100);

End;
For A :=11 to 22 do
Begin

clrscr;
GotoXY(A,9);Write(' NABI MUHAMMAD SAW');
Delay (100);

End;
For A :=22 to 33 do
Begin

clrscr;
GotoXY(A,8);Write(' NABI NUH AS');
Delay (100);

End;
For A :=33 to 44 do
Begin

clrscr;
GotoXY(A,9);Write(' NABI ISYA AS');
Delay (100);

End;
For A :=44 to 55 do
Begin
clrscr;

GotoXY(A,10);Write('NABI MUSA AS');
Delay (100);
End;
For A :=44 Downto 33 do

Begin
clrscr;
GotoXY(A,11);Write('NABI IBROHIM AS');
Delay (100);
End;
For A :=33 Downto 22 do
Begin

clrscr;
GotoXY(A,12);Write('BERJUANG DI JALAN ALLOH SWT ');
Delay (100);

End;
For A :=22 Downto 1 do
Begin

clrscr;
GotoXY(A,11);Write('ALLAHHU AKBAR');
Delay (100);

End;
For A :=1 to 29 do
Begin

clrscr;
GotoXY(A,9);Write('BINTANG JAYA KOMPUTER PURBALINGGA '');
Delay (100);

End;
For A :=29 to 48 do
Begin
GotoXY(A,8);Write('*');Delay (50);
GotoXY(A,10);Write('*');Delay (50);

End;
For A :=20 to 20 do
Begin
GotoXY(A,12);Write('BINTANG JAYA KOMPUTER PURBALINGGA');

End;
For A :=20 to 20 do
Begin
GotoXY(A,14);Write(' E-Mail : stmik_ikmi@yahoo.com');

End;
For A :=20 to 20 do
Begin
GotoXY(A,16);Write(' Website : http://www.ikmi.ac.id');
End;
End.