RosettaCodeData/Task/Constrained-random-points-on-a-circle/ZX-Spectrum-Basic/constrained-random-points-on-a-circle.basic
2023-07-01 13:44:08 -04:00

6 lines
141 B
Text

10 FOR i=1 TO 1000
20 LET x=RND*31-16
30 LET y=RND*31-16
40 LET r=SQR (x*x+y*y)
50 IF (r>=10) AND (r<=15) THEN PLOT 127+x*2,88+y*2
60 NEXT i