Программа работает в турбо си но не работает в дев си

#include<graphics.h>
#include<stdio.h>
#include<conio.h>
#include<math.h>
#include<dos.h>
#define R "C:\\TC\\bgi"
void vector(int a, int l)
{
#define G 0.0174532
int x0,y0;
int x1,y1;
x0 = getx();
y0 = gety();
x1 = x0+l*cos(a*G);
y1 = y0-l*sin(a*G);
lineto(x1,y1);
}
void clock()
{
int x0=100,y0=190;
int d = 50;
int s = 0;
int m = 0;
int as = 90;
int am = 90;
setfillstyle(XHATCH_FILL, YELLOW);
fillellipse(x0,y0,90,90);
setfillstyle(SOLID_FILL, YELLOW);
fillellipse(x0,y0,70,70);
setcolor(RED);
outtextxy(x0-7,y0-65,"12");
outtextxy(x0,y0+60,"6");
outtextxy(x0+60,y0,"3");
outtextxy(x0-65,y0,"9");
outtextxy(x0+35,y0-50,"1");
outtextxy(x0+55,y0-30,"2");
outtextxy(x0+50,y0+30,"4");
outtextxy(x0+30,y0+50,"5");
outtextxy(x0-30,y0+52,"7");
outtextxy(x0-54,y0+30,"8");
outtextxy(x0-43,y0-50,"11");
outtextxy(x0-60,y0-26,"10");
settextstyle(TRIPLEX_FONT, HORIZ_DIR,88);
outtextxy(x0-90,y0-50,",");
settextstyle(TRIPLEX_FONT, HORIZ_DIR,88);
outtextxy(x0+90,y0-200,",");
setfillstyle(SOLID_FILL, WHITE);
bar(x0+240,y0,210,135);
do
{
    moveto(x0,y0);
    setcolor(BLACK);
    vector (as,d);
    moveto(x0,y0);
    setcolor(RED);
    vector(am,d-10);
    delay(1000);
    setcolor(YELLOW);
    moveto(x0,y0);
    vector(as,d);
    moveto(x0,y0);
    vector(am,d-10);
    s++;
    if (s>60)
    { 
    m++;
    s=0;
    am-=6;
    if(am<0)
    am=354;
    }
    while (!kbhit());
}
int main (void)
{
    int gd=DETECT;
    int gm;
    int errorcode;
    initgraph(&gd,&gm, R);
    errorcode=graphresult();
    if (errorcode==grOk)
    {
        clock();
        closegraph();
    }
    else
    {
        printf("OSHIBKA: %d\n", errorcode);
        getch();
        }
    }
}

#include<graphics.h>
#include<conio.h>
#include<dos.h>
 
main()
{
   int gd = DETECT, gm, x, y, color, angle = 0;
   struct arccoordstype a, b;
   initgraph(&gd, &gm, "C:\\TC\\BGI");
   delay(2000);                                                                
   while(angle<=360)
   {
      setcolor(BLACK);
      arc(getmaxx()/2,getmaxy()/2,angle,angle+2,100);
      setcolor(RED);
      getarccoords(&a);
      circle(a.xstart,a.ystart,25);
      setcolor(BLACK);
      arc(getmaxx()/2,getmaxy()/2,angle,angle+2,150);
      getarccoords(&a);
      setcolor(GREEN);
      circle(a.xstart,a.ystart,25);
      angle = angle+5;
      delay(50);
      setcolor(BLACK);
      arc(getmaxx()/2,getmaxy()/2,angle,angle+2,100);
      setcolor(RED);
      getarccoords(&a);
      circle(a.xstart,a.ystart,25);
      setcolor(BLACK);
      arc(getmaxx()/2,getmaxy()/2,angle,angle+2,150);
      getarccoords(&a);
      setcolor(GREEN);
      circle(a.xstart,a.ystart,25);
      angle = angle+5;
      delay(50);
   }
   getch();
   closegraph();
}