10 REM *** PROGRAMM PI2 ***
20 REM W.LAUBACH 15-FEB-1978
80 PRINT "APPROXIMATION VON PI NACH ARCHIMEDES"
81 PRINT "2. VERFAHREN"\PRINT
90 PRINT "ANZAHL DER VERDOPPELUNGEN, ANFANGSWERT"
91 PRINT
100 INPUT Z,N0
105 PRINT
110 IF N0=3 THEN 130\IF N0=4 THEN 120
115 PRINT "BITTE NUR 3 ODER 4 ALS ANFANGSWERT"\GOTO 90
120 U1=4*SQR(2) \ U2=8 \ GOTO 135
130 U1=3*SQR(3) \ U2=2*U1
135 N=N0
140 PRINT "ECKENZAHL","EINBESCHR.","UMBESCHRIEBEN" \ PRINT
150 PRINT N,U1/2,U2/2
160 FOR I=1 TO Z
170   U2=2*U1*U2/(U1+U2) \ U1=SQR(U2*U1)
180   N=N*2
190   PRINT N,U1/2,U2/2
200 NEXT I
210 PRINT
220 PRINT "NOCH EIN DURCHLAUF (JA=1)";\INPUT W\PRINT
230 IF W=1 THEN 90
999 END