10 'FASTPIE.BAS ---- uses Basica or QBasic
70 PRINT
75 CLS : PRINT : PRINT TAB(30); "FASTPIE.BAS -------- hh": PRINT
80 PRINT "A fast method of computng Pi (to 15 decimal places)."
85 PRINT "Based on the principle of inscribing and circumscribing polygons about a circle."
90 DEFDBL A-C
100 A = 0: B = 1: C = 2
110 FOR D = 1 TO 8
120 A = A + B
130 B = SQR(1 + A * A)
140 C = C + C
145 PRINT
150 PRINT 3 * C / (A + B + B)
160 NEXT D
170 END
200 'from Popular Computing Vol.3,No.8
210 'written by Webb Simmons,San Diego,Cal.
220 'based on principle of inscribing and circumscribing polygons about
230 'a circle (first proposed by Archimedes)