#
# Liste des 100 premiers nombres premiers
#

    declare max
    max = 100
    declare premier(100), nb
    premier(1) = 2
    declare candidat

    candidat = 3
bouclecandidat
    call essayercandidat
    candidat = candidat + 2
    jump bouclecandidat if nb < max
    println "fin"
    stop

# ------------------------------
essayercandidat
    declare i
    i = 1
testdiviseur
    jump nonpremier if candidat % premier(i) == 0
    i = i + 1
    jump testdiviseur if candidat < premier(i)*premier(i)
    nb = nb + 1
    premier(nb) = candidat
    println "premier",nb,"->", candidat
nonpremier
    return