Кто нибудь может перевести эту прогу из Pascala на Борланд С

Uses crt,graph;
 Var drdr,mode,d,x,y,s:integer;
  ch:string;
  vector:char;
  color:byte;
Procedure ugol(x,y:integer);
 begin
  moveto(x,y);
  Lineto(x+s,y);
  Lineto(x+s+(s div 2),y+(s div 2));
  Lineto (x+s,y+s);
  Lineto(x,y+s);
  Lineto(x-(s div 2),y+(s div 2));
  Lineto(x,y);
 end;
 
Procedure Move(var x,y:integer; d:integer; vector:char; color:byte);
begin
       d:=5; {Кол-во точек для перемещения} 
       case vector of
       'u': begin
       setcolor(getbkcolor);
       ugol(x,y);
       setcolor(color);
       y:=y-d;
       ugol(x,y);
       end;
       'r': begin
       setcolor(getbkcolor);
       ugol(x,y);
       setcolor(color);
       x:=x+d;
       ugol(x,y);
       end;
       'l':begin
       setcolor(getbkcolor);
       ugol(x,y);
       setcolor(color);
       x:=x-d;
       ugol(x,y);
       end;
       'd':begin
       setcolor(getbkcolor);
       ugol(x,y);
       setcolor(color);
       y:=y+d;
       ugol(x,y);
       end;
       end;
end;
 
Begin
randomize;
       drdr:=detect;
       initgraph(drdr,mode,'d:\bp\bgi');
       color:=random(16);
       setcolor(color);
       setbkcolor(black); x:=getmaxX div 3;  y:=getmaxY div 3;
       s:=100;
       ugol(x,y);
       repeat
       ch:=readkey;
       if ch=#0 then
       case readkey of
       #72:begin
       vector:='u';
       move(x,y,d,vector,color);
       end;
       #77:begin
       vector:='r';
       move(x,y,d,vector,color);
       end;
       #75:begin
       vector:='l';
       move(x,y,d,vector,color);
       end;
       #80:begin
       vector:='d';
       move(x,y,d,vector,color);
       end; end;
       until ch=#27;
       Closegraph;
End.