10 REM *** PROGRAMM PI3 ***
20 REM W.LAUBACH 15-FEB-1978
80 PRINT "APPROXIMATION VON PI NACH ARCHIMEDES"
81 PRINT "1. 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 S1=SQR(2) \ S2=2 \ GOTO 135
130 S1=SQR(3)\S2=2*S1
135 N=N0\U1=N*S1\U2=N*S2
140 PRINT "ECKENZAHL","EINBESCHRIEBEN",,"UMBESCHRIEBEN"
141 PRINT ,"SEITENLAENGE","PI","SEITENLAENGE","PI" \ PRINT
150 PRINT N,S1,U1/2,S2,U2/2
160 FOR I=1 TO Z
170   S1=(2-(4-S1*S1)^.5)^.5 \ S2=2*S1/(4-S1*S1)^.5
180   N=N*2 \ U1=N*S1 \ U2=N*S2
190   PRINT N,S1,U1/2,S2,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