10 MODE8:DIM:CLS:ANGLE1 20 x=RAN#(1):IFx=0 THEN20 25 y=RAN#(1):IFy=0 THEN25 30 x=SQR(-2*LNx):y=2*PI*y 40 z=x*COSy:GOSUB60 50 z=x*SINy:GOSUB60:GOTO20 60 PRINTTAB(0);z;:z$=INPUT$(1,@):RETURN