10 lines
223 B
Plaintext
10 lines
223 B
Plaintext
10 REM 28 digits of pi
|
|
20 M=94:FOR I=0 TO M-1
|
|
30 Z(I)=20:NEXTI:?"PI=";
|
|
40 E=D%100:D=0:FORI=1TOM
|
|
50 J=M-I:D=D+D*J+Z(J)*100
|
|
60 A=J+J+1:Z(J)=D%A:D=D/A
|
|
70 NEXTI:M=M-6:E=E+D/100
|
|
80 ?E/10;:IF M=88 ?".";
|
|
90 ?E%10;:IF M>10 GOTO 40
|