13 lines
186 B
Text
13 lines
186 B
Text
open window 100, 100
|
|
clear window
|
|
|
|
for i = 1 to 100
|
|
repeat
|
|
x = ran(30)-15
|
|
y = ran(30)-15
|
|
r = sqr(x*x + y*y)
|
|
until 10 <= r and r <= 15
|
|
color 255, 0, 0
|
|
dot x+15, y+15
|
|
next i
|
|
end
|