Blackfiul’s Weblog

nih……..

makan tuh…………………

PROGRAM ANIMASI;
USES CRT;
VAR PANAH:STRING;
I:INTEGER;
BEGIN

FOR I:=1 TO 17 DO

BEGIN
CLRSCR;
TEXTCOLOR(0);
TEXTBACKGROUND(3);
WRITELN(‘======================= JET STEALTH =======================’);

BEGIN
GOTOXY(I,4);
WRITELN(‘   ===’);
GOTOXY(I,5);
WRITELN(‘     ===’);
GOTOXY(I,6);
WRITELN(‘       ===’);
GOTOXY(I,7);
WRITELN(‘ \—————\’);
GOTOXY(I,8);
WRITELN(‘ )===============|’);
GOTOXY(I,9);
WRITELN(‘ /—————/’);
GOTOXY(I,10);
WRITELN(‘       ===’);
GOTOXY(I,11);
WRITELN(‘      ===’);
GOTOXY(I,12);
WRITELN(‘     ===’);
GOTOXY(I,13);
WRITELN(‘   ===’);
GOTOXY(I+8,I+8);
WRITELN(‘>###>>’);

END;

DELAY(350);
END;
END.

jalannya program man………

===================================================================

nih ada lagi…..

{modified ‘n’ created by hadi@gila@komputer
date 27 may dini hari jam:02.00
original code ‘om boker…}

PROGRAM ANIMASI_HELIKOPTER;
USES CRT;
VAR
I:INTEGER;

BEGIN

FOR I:=1 TO 18 DO
BEGIN
CLRSCR;
textbackground(9);
textcolor(10);
writeln (‘|  HELIKOPTER CANGGIH TEMPUR  |’);

begin

GOTOXY(I,4);
WRITELN(‘   ====|==== ‘);

end;

begin
GOTOXY(I,5);
WRITELN(‘    /-]-[-\ ');
end;

begin
GOTOXY(I,6);
WRITELN('(---\_]|[_/ ‘);
end;

begin
GOTOXY(I,7);
WRITELN(‘      ____  ‘);
delay (100);

GOTOXY(I,7);
WRITELN(‘      ~~~~   ‘);

GOTOXY(I,4);
WRITELN(‘   ~~~~|~~~~ ‘);

end;

delay (100);
{ubah delay,form,dll,}

begin
GOTOXY(I+3,I+7);
WRITELN(‘>>BOMB>>’);
end;

delay (100);

END;
END.

liat nih… keren gak??? weeekkkzzzz………..