"NOMBRE PREMIER"?->N
3->D
Int sqrt(N)->C          ' sqrt = racine
If Frac(N/2)=0
Then "Div= 2"
Return
IfEnd
While D<C              ' inférieur ou égal
If Frac (N/D)=0        ' / = diviser et pas fraction
Then Goto 2
IfEnd
D+2->D
WhileEnd
Lbl 2
If Frac (N/D)=0        '/ = div et pas fraction
Then "Diviseur":D¤       '¤ signifie triangle (Disp)
Else "Premier"
IfEnd
Return                 ' indispensable car le programme est fait
                       ' de manière a etre le plus rapide possible et la
                       ' syntaxe n'est pas rigoureuse.