Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (9 sloc) 223 Bytes
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