_maxPoints = 190

void local fn DoIt
  window 1, @"Archimedean Spiral", (0,0,500,500)
  WindowSetBackgroundColor( 1, fn ColorBlack )
  pen 3, fn ColorRed

  float x, y, angle
  long i, a = 10, b = 10, x1 = 250, y1 = 250
  for i = 0 to _maxPoints - 1
    angle = 0.1 * i
    x = (a + b * angle) * cos(angle) + 250
    y = (a + b * angle) * sin(angle) + 250
    line x1,y1 to x,y
    x1 = x : y1 = y
  next
end fn

fn DoIt

HandleEvents