pascal code

buat temen yang ngefans ma pascal ne aq punya contoh program silakan bleh dicoba..
copy code ne di notepad kemudian save as ganti atribut .txt dengan .pas save all files
then copy lagi pastekan di folder compliler pascal...

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 55 do
Begin
clrscr;
GotoXY(A,12);Write('ELEKTRO ELEKTRO ELEKTRO!!!');
Delay (100);
End;
For A := 55 Downto 27 do
Begin
clrscr;
GotoXY(A,12);Write('JOSS JOSS JOSS JOSS JOSS..');
Delay (100);
End;
For A := 27 to 52 do
Begin
GotoXY(A,11);Write('*');Delay (100);
GotoXY(A,13);Write('*');Delay (100);
end;
For A := 20 to 20 do
Begin
GotoXY(A,15);Write('Exercise Program by : andi rifai');
end;
End.