OPEN "pi.txt" FOR OUTPUT AS #1
CLS
DEFLNG A-G: DIM f(8401) AS LONG
a = 10000: c = 8400
compteur = 0
hdepart = TIMER
WHILE (b <> c)
    f(b) = a \ 5: b = b + 1
WEND
WHILE (c > 0)
    g = 2 * c: d = 0: b = c
    WHILE (b > 0)
        d = d + f(b) * a: g = g - 1: f(b) = d MOD g
        d = d \ g: g = g - 1: b = b - 1
        IF (b <> 0) THEN d = d * b
    WEND
    c = c - 14: x$ = STR$(e + d \ a): l = LEN(x$)
    PRINT LEFT$("0000", 5 - l); RIGHT$(x$, l - 1);
    PRINT #1, LEFT$("0000", 5 - l); RIGHT$(x$, l - 1);
    e = d MOD a
    compteur = compteur + 1
WEND
CLOSE
compteur = 4 * compteur
temps = TIMER - hdepart
PRINT
PRINT compteur; "chiffres de PI"
PRINT temps; "secondes de calcul"