ZX PI32

10 DIM z(94)
20 LET d=0: LET m=94: PRINT "PI=";
30 FOR i=1 TO m: LET z(i)=20: NEXT i
40 LET e=d-100*INT(d/100): LET d=0
50 FOR i=1 TO m
60 LET j=m-i
70 LET d=d+d*j+z(j+1)*100
80 LET a=j+j+1
90 LET z(j+1)=d-a*INT(d/a)
100 LET d=INT(d/a)
110 NEXT i
120 LET m=m-6: LET e=e+INT(d/100)
130 PRINT INT(e/10);
140 IF m=88 THEN PRINT ",";
150 PRINT e-10*INT(e/10);
160 IF m>10 THEN GOTO 40