Pada kesempatan ini, saya akan sedikit sharing source code bagaimana cara membuat efek loading di pemrograman Pascal. Pada snippet sebelumnya ada saya jelaskan bahwa untuk membuat efek loading di pascal yang perlu Anda kuasai ialah teknik perulangan, delay dan gotoxy. Sekarang saya akan bagikan lagi 1 efek loading yang mungkin bisa menjadi salah satu pilihan Anda untuk mempercantik program Anda. Berikut ialah source code.
(*
Author by Yudi Setiawan
*)
program Loading2;
uses crt;
(*Variable*)
var
x, y, z :integer;
count :integer;
(*Main*)
begin
clrscr;
(*Pembatas Loading*)
gotoxy(5, 5);
write('[');
gotoxy(30, 5);
write(']');
(*Efek Loading Berjalan*)
count := 0;
repeat
begin
(*Perulangan untuk loading kekanan*)
y := 0;
z := 6;
for x := 6 to 33 do
begin
delay(90);
if(y > 3) then
begin
gotoxy(z, wherey);
write(' ');
inc(z);
end;
if(x <= 29) then
begin
gotoxy(x, wherey);
write('=');
inc(y);
end;
end;
(*Perulangan untuk loadin ke kiri*)
y := 0;
z := 29;
for x := 29 downto 2 do
begin
delay(90);
if(y > 3) then
begin
gotoxy(z, wherey);
write(' ');
dec(z);
end;
if(x >= 6) then
begin
gotoxy(x, wherey);
write('=');
inc(y);
end;
end;
end;
inc(count);
until count = 3;
gotoxy(1, wherey+2);
write('Press any key . . .');
readkey;
end. 
