WHILE au sein d'une FNC déclenche une série de messages ...

rem ============================================================================
  print Inverse_B_Modulo_N(7,9)    : ' <--- 4
' print Inverse_B_Modulo_N(5,77)   : ' <--- 31
' print Inverse_B_Modulo_N(12,27)  : ' <--- 12 n'a pas d'inverse modulo 27
end
rem ============================================================================
' Algorithme d'Euclide étendu
' Calculer l'inverse de b modulo n s'il existe
' Rappel :
' L'inverse modulo n de b est le nombre entier b1 tel que mod(b*b1, n) = 1
' Par exemple :
' *  7 est l'inverse modulo 9 de 4, car mod(4*7,9) = mod(28,9) = 1
' *  12 n'a pas d'inverse modulo 27
FNC Inverse_B_Modulo_N(b,n)
    dim_local n0,b0,t0,t,q,r,temp
    n0 = n : b0 = b : t0 = 0 : t = 1
    q = int(n0/b0)
    r = n0 - q * b0
    while r > 0
        temp = t0-q*t
        if temp >= 0
           temp = mod(temp,n)
        else
           temp = n - mod(0-temp,n)
        end_if
        t0 = t : t = temp : n0 = b0 : b0 = r : q = int(n0/b0) : r = n0-q*b0
    end_while
    if b0 = 1
       result t
    else
       message str$(b) + " n'a pas d'inverse modulo " + str$(n)
    end_if
END_FNC
rem ============================================================================

print Somme(20)
end
FNC Somme(n)
    dim_local s,i
    i = 1
    while i <= n
        s = s + i
        i = i + 1
    end_while
    result s
END_FNC

dim bidon : ' Mettre en REM cette commande qui ne sert absolument à rien dans le programme et  bonjour les dégâts !
print Pi_Salamin_Brent()

end
rem ============================================================================
' Formule basée sur les moyennes arithmétique et géométrique.
' Formule découverte par Eugène Salamin et Richard Brent en 1976
FNC Pi_Salamin_Brent()
    dim_local s_carre, puissance2,a,b,an,bn,un,u,epsilon
    epsilon = 1E-6
    s_carre = 0 : puissance2 = 1 : an = 1 : bn = 1/sqr(2)
    u = 1 : un = 0
    while not(abs(u-un) < epsilon)
       a = an : b = bn : u = un
       an = (a+b)/2 : bn = sqr(a*b)
       puissance2 = puissance2 * 2
       s_carre = s_carre + puissance2 * (an*an - bn*bn)
       un = 4*an*an / (1-2*s_carre)
    end_while
    result un
END_FNC
rem ============================================================================