10 MODE 2 20 LET R = 200 30 LET XC = 800 40 LET YC = 400 50 PROCruner 60 LET R=100 70 LET XC=125 80 LET YC=200 90 PROCruner 100 END 110 DEF PROCruner 120 FOR Y=-R TO R STEP 4 130 X1=INT(SQR(R*R-Y*Y)) 140 FOR X=-X1 TO X1 STEP 5 150 N=INT(RND(1)*(2)*X1*2)+1 160 IF N<X1+X THEN PLOT 69,X+XC,Y+YC 170 NEXT X 180 NEXT Y 190 ENDPROC