Ti Basic: Bug etrange dans un prog binaire :S

Bonjour,

Je suis en train d'écrire un programme pour TI84+ en Ti Basic et j'ai un pb : Le programme se termine trop tot pourtant il est tres simple je comprends pas d'où ca vient :'(

D'abord une petite description du programme :
Nom : SAVEMAT
Logiciel : TI program editor

Le but du prog est d'enregistrer le contenu de la matrice [A] dans un PIC pour liberer la matrice dans le cas ou toutes les matrices sont utilisées. Question d'honneur, je ne veut pas utiliser d'autres méthode que celle là !

Pour cela, et c'est là que ca devient compliqué, les valeurs de [A] sont transformées en binaire et stockées en octet dans le PIC
Cela sous entend que :
pixel noir = 1
pixel blanc = 0
Les valeures de la matrices doivent etres inferieures a 255
le programme dessine la valeur sur une ligne de largeur 8 pix et passe a la ligne suivante pou la valeur suivante.

Mon programme actuellement ne veut ecrire que la premiere valeure de la matrice et apres il s'arrete !
Pour la premiere valeure les pixels dessinés correspondent a l'ecriture binaire de la valeur donc a priori c'est pas ca qui cloche...
Par exemple y'a 145 dans la matrice [A]
En pixel ca donne :
10001001
1+16+128 = 145 !

Bref voici le code :

0->C
0->D
0->E

ClrHome
Disp "- SAVE  MATRIX -            //intro
Disp " 
Disp "Effacer le graph             //securite graph
Disp "Actuel ?
Disp "1:Oui 0:Non
Input A

If A=1
Then
Goto A
Else
ClrHome
Disp "Enregistrez
Disp "le graph et
Disp "recommencez !
Stop
End



Lbl A
ClrDraw
ClrHome
Disp "Entrez les 
Disp "dimensions
Disp "de [A] (L,C)
Disp " 
Input X
Input W



For(A,1,X)               // verif si aucune valeure ne depasse 255
For(B,1,W)
If [A](A,B)>255
Then
ClrHome
Disp "Cette entree est
Disp "superieure a 255
Disp A
Disp B
Disp "Notez la !"
Pause
1->C
End
End
End


If C=1                          // arret du programme si valeur > 255
Then
ClrHome
Disp "valeurs > 255
Disp "....
Disp "Impossible de
Disp "Continuer ...
Stop
End

ClrHome
Disp "Start writing...       // dernier avertissement
Disp "Continue ?
Disp "1:Oui 0:Non
Input A

If A=1
Then
0
Else
ClrHome
Disp "Arret du prog
Disp "...
Stop
End

Disp "ok!"



                        //attention c'est la que ca devient chaud...
rappel des variables :
X : nbr de lignes de [A]
W :  nbr de coonnes de [A]

For(A,1,X)
For(B,1,W)
[A](A,B)->V

D+1->D            // D est l'ordonnée de la ligne où l'octet qui est écrite
                         // A chaque nouvelle valeur de [A] D est incrémentée
Lbl B 



If (V/128)>=1         //debut de la conversion en binaire de la valeure
Then
8->E
V-128->V
Goto Z
End

If (V/64)>=1
Then
7->E
V-64->V
Goto Z
End

If (V/32)>=1
Then
6->E
V-32->V
Goto Z
End

If (V/16)>=1
Then
5->E
V-16->V
Goto Z
End

If (V/8)>=1
Then
4->E
V-8->V
Goto Z
End

If (V/4)>=1
Then
3->E
V-4->V
Goto Z
End

If (V/2)>=1
Then
2->E
V-2->V
Goto Z
End

If (V/1)>=1
Then
1->E
V-1->V
Goto Z
End


Lbl Z                       // dans ce label on dessine le pixel
Pxl-On(D,E
If V>0
Then
Goto B
End

End                    // fin des deux For
End

</ fin du code>

Avis à tout les chevronnés du TI-Basic ! S--O--S !!!

N'hésitez pas a me demander plus de précisions sur le deroulement du programme !