100 REM: PI
110 REM: COPYRIGHT 1979 BY PHIL FELDMAN AND TOM RUGG
150 RANDOMIZE:CLEAR 50
160 T%=0:TH%=0:DEFDBL P-Z
170 PI=3.141592653589794#
300 GOSUB 600
310 INPUT"SAMPLE SIZE FOR PRINTING";NP%
315 INPUT"TOTAL # DARTS TO THROW";ND%
320 IF NP%<1 THEN 300
330 GOSUB 600
340 PRINT"# HITS       # THROWN";TAB(36);"PI"," ","% ERROR"
400 GOSUB 500:TH%=TH%+NH%:T%=T%+NP%:P=4*TH%/T%
405 PE=100*ABS(P-PI)/PI
410 PRINT TH%,T%,P,PE
415 IF T%>=ND% THEN END
420 GOTO 400
500 NH%=0:FOR J%=1 TO NP%
510 X=RND:Y=RND
520 IF X^2+Y^2<1 THEN NH%=NH%+1
530 NEXT:RETURN
600 PRINT CHR$(26);TAB(6);"A DARTBOARD PI CALCULATOR":PRINT:RETURN
D:Y