***** Circle Routine for TBC *****
***** r=radius, c=color *****

SubRoutine Circle(x,y,r,c)
        Integer x,y,r,c,a,b,d
        Real dd
        d=CInt(r*0.7071)
        dd=r^2
        For a=0 to d
          b=CInt(Sqr(dd-a^2))
          Call p_set(x+a,y+b,c)
          Call p_set(x-a,y+b,c)
          Call p_set(x+a,y-b,c)
          Call p_set(x-a,y-b,c)
          Call p_set(x+b,y+a,c)
          Call p_set(x-b,y+a,c)
          Call p_set(x+b,y-a,c)
          Call p_set(x-b,y-a,c)
        Next a
        Return
SubEnd

End
