P0 10 GOTO 200 100 M=0 110 FOR C=1 TO N 120 X=2*RAN#-1 130 Y=2*RAN#-1 140 R=SQR(X*X+Y*Y) 150 IF R>1 THEN 170 160 M=M+1 170 NEXT C 180 P=4*M/N 190 RETURN 200 PRINT "SIMULATION Pi" 210 INPUT "N=",N 220 GOSUB 100 230 SET F4 240 PRINT "Pi=";P 250 GOTO 200