Program garis gerak menggunakan turbo pascal 6

Program ini hanya bisa dibuka di turbo pascal 6...di TPW tidak bisa karena kurang mendukung...selamat mencoba

program gambargerak;
uses crt, graph3;
var I: integer;

begin
clrscr;
graphcolormode;
palette(2); setpencolor(2);
setposition(150, 119); showturtle;
for i:=1 to 175 do
begin
forwd(1); delay(5);
end;
turnleft(90);
setpencolor(2);
for i:=1 to 300 do
begin
forwd(1); delay(5);
end;
turnleft(90);
setpencolor(1);
for i:=1 to 175 do
begin
forwd(1); delay(5);
end;
TURNLEFT(90);
SETPENCOLOR(1);
FOR i:=1 TO 250 DO
BEGIN
FORWD(1); DELAY(5);
END;
TURNLEFT(90);
SETPENCOLOR(1);
FOR i:=1 TO 125 DO
BEGIN
FORWD(1); DELAY(5);
END;
TURNLEFT(90);
SETPENCOLOR(1);
FOR i:=1 TO 200 DO
BEGIN
FORWD(1); DELAY(5);
END;
TURNLEFT(90);
SETPENCOLOR(1);
FOR i:=1 TO 75 DO
BEGIN
FORWD(1); DELAY(5);
END;
TURNLEFT(90);
SETPENCOLOR(1);
FOR i:=1 TO 150 DO
BEGIN
FORWD(1); DELAY(5);
END;
TURNLEFT(90);
SETPENCOLOR(1);
FOR i:=1 TO 25 DO
BEGIN
FORWD(1); DELAY(5);
END;
TURNLEFT(90);
SETPENCOLOR(1);
FOR i:=1 TO 100 DO
BEGIN
FORWD(1); DELAY(5);
END;

hideturtle;
gotoxy(18,10); write('selesai');
gotoxy(15,12); write('tekan enter');
readln;
end.