clear offsetx = 10 offsety = 20 radius = 100 diameter = 2 * radius color0 = rgb(0, 0, 0) color1 = rgb(0, 0, 192) color2 = rgb(0, 192, 0) color3 = rgb(192, 0, 0) color4 = rgb(64, 64, 64) _screen.drawwidth = 1 deltaradius = radius - 2 deltaradiussquared = deltaradius * deltaradius for y = 0 to deltaradius x = sqrt(deltaradiussquared - (y * y)) * quadrant 1 _screen.forecolor = color1 _screen.line(offsetx + radius + 1, offsety + radius - (y + 1), ; offsetx + radius + x, offsety + radius - (y + 1)) * quadrant 2 _screen.forecolor = color2 _screen.line(offsetx + radius - 1, offsety + radius - (y + 1), ; offsetx + radius - x, offsety + radius - (y + 1)) * quadrant 3 _screen.forecolor = color3 _screen.line(offsetx + radius - 1, offsety + radius + (y + 1), ; offsetx + radius - x, offsety + radius + (y + 1)) * quadrant 4 _screen.forecolor = color4 _screen.line(offsetx + radius + 1, offsety + radius + (y + 1), ; offsetx + radius + x, offsety + radius + (y + 1)) endfor *_screen.forecolor = color0 *_screen.line(offsetx + 0, offsety + radius, offsetx + diameter, offsety + radius) *_screen.line(offsetx + radius, offsety, offsetx + radius, offsety + diameter)