参数说明：x!,y!是椭圆的中心点的坐标
          r!   是椭圆的长轴的长度
          e!   是椭圆的短轴与长轴的比
          a!   是椭圆的长轴与X轴的夹角（度）

DECLARE SUB ellipse (x!, y!, r!, e!, a!)
SCREEN 12
CALL ellipse(300, 200, 350, .5, 30)

SUB ellipse (x, y, r, e, a)
  CLS
  pi = 3.14159: a = a * pi / 180         '将角度换为弧度
  PSET (x + r * COS(a), y - r * SIN(a))  '初始点

  FOR rad = -10 / r TO 2 * pi STEP 10 / r
    x1 = r * COS(rad) + x                 '计算出横向椭圆的点坐标
    y1 = r * e * SIN(rad) + y
    x2 = x + (x1 - x) * COS(a) + (y1 - y) * SIN(a)  '将该坐标绕点（x,y）旋转a度
    y2 = y + (y1 - y) * COS(a) - (x1 - x) * SIN(a)
    LINE -(x2, y2)
  NEXT rad
END SUB