cara membuat animasi begerak koding pascal

dalam membuat animasi bergerak sangatlah mudah broo! pernah coba?bagi yang belum sabar yaaa!:)
baiklah disini saya akan memberikan cara bagaimana kita membuat gambar animasi bergerak pada pascal..
okee langsung saja pada kalian masukkan koding dibawah ini
__________________________________________________

program tembak_tembak;
uses crt;
var
i:integer;
begin
for i:=1 to 30 do
begin
clrscr;
textcolor(0);
textbackground(3);
begin
writeln('____________ pistol duaaar  __________________');
writeln('  ');
writeln('');
writeln('        -\________________,,__     ');
writeln('       / `-|||||||||----------]    ');
writeln('      /==0--------------------`     ');
writeln('      ),-.(_(__)/                   ');
writeln('      //(\)),--                     ');
writeln('     //__//                         ');
writeln('    /`--/                           ');
writeln('   /___/                            ');
gotoxy(i+20,5);writeln('>-->');
end;
delay(300);
end;
readln();
end.
______________________________________________________________
selanjutnya kalian bisa save dengan namaapasaja(.pas) .lalu compile dan running akan keluar tampilan berikut!!!!

yaaah cukup mudah bukan🥰
sekian program dari saya,terimakasih😊