Programme TI 83+ : Diviseurs d'un entier relatif

[invite09737e28]

Bonjour,

Quelqu'un aurait-il un programme à taper manuellement sur TI 83+ Fr (ou anglais, je traduirais) qui donne la liste des diviseurs (positifs et négatifs) d'un entier relatif ?

J'ai entendu dire que les programmes téléchargeables depuis un ordinateur peuvent endommager la calculatrice, c'est pourquoi j'emploie uniquement des programmes que je crée moi-même directement sur la machine. Qu'en pensez vous ?

Merci par avance.
-----

[invite39d4c2c3]

Voila celui que j'ai :
les tirets du bas _ représentent des fleches
Prompt_ N
2_D
1_C
1_I
EffListe L1
Lbl 1
If D*D<=N
Then
If partDec(N/D)
=0
Then
D_L1(I)
I+1_I
N/D_N
Else
D+C_D
2_C
End
Goto 1
End
N_L1(I)
Disp "Voir L1"