Programmer roulette TI-Basic

Bonjour je voudrai insérer dans un jeu une "roulette" avec des probabilités différentes mais je n'y arrive pas.le code est :
Et je recommence avec des nombres différents pour respecter les probabilités mais quand je test, je ne gagne que le 2eme objet (les probas vont de 2 à 5
- Code: Select all
RandInt (1,100)->L1 (28)
If (L1 (28)=1)
Then
// les lignes suivantes sont pour l'animation visuelle
RecallPic Pic7
Text (0,25,"Vous avez gagné :"
Text (10,20,"//le gain"
For(A,1,500)
End
L1(5)+1->L1 (5)
Goto DB
End
Et je recommence avec des nombres différents pour respecter les probabilités mais quand je test, je ne gagne que le 2eme objet (les probas vont de 2 à 5