Известен радиус круга и его координаты его центра. Необходимо поточечно отрисовать круг — QBasic(Бейсик)

CONST Pi = 3.141592653589793#
DECLARE SUB MyCircle (x, y, Radius, u1, u2, Stp, Cvet%)
 
SCREEN 12
MyCircle 320, 240, 50, 0, Pi / 2, .05, 10
 
SUB MyCircle (x, y, Radius, u1, u2, Stp, Cvet%)
  xo = x + COS(u1) * Radius
  yo = y - SIN(u1) * Radius
  FOR u = u1 TO u2 STEP Stp
     xn = x + COS(u) * Radius
     yn = y - SIN(u) * Radius
    LINE (xn, yn)-(xo, yo), Cvet%
    xo = xn: yo = yn
  NEXT
END SUB

CONST Pi = 3.141592653589793#
SCREEN 12
r = 100: x = 320: y = 240
FOR u = 0 TO 2 * Pi STEP .005
    xn = x + COS(u) * r
    yn = y - SIN(u) * r
    PSET (xn, yn), 10
NEXT