Bon, à ce que j'ai comrpis, ton prog est une sorte de magasin... Bon :
* déjà un premier truc : ce qui fait ramer c'est le goto dans la boucle -> A éviter à tout prix !
* While est plus rapide que Repeat.
* Si la flèche s'afiche mal, c'est à cause de la quantité de calcul entre l'effacement de celle ci et sont affichage.
Je te propose ça (peut être notre ami Baruch optimisera mieux que moi, mais...) :
EffDessin
AxesNAff
Texte(0,40,"COMPTA
Texte(15,10,"VIENNOISERIE
Texte(25,10,"BARRE
Texte(35,10,"BOISSON
Texte(45,10,"BONBON
Texte(55,10,"RESET
Texte(55,45,"FIN
15→E
0→B
0→K
Text(E,B,"→"
While K/=45 or (K=105 and B=35)
0→K
Texte(15,70,A
Texte(25,70,F
Texte(35,70,C
Texte(45,70,D
While not(K)
GetKey→K
End
Text(E,B," "
If B=0:E+10(K=34)-10(K=25)→E
If E>55:15→E
If E<15:55→E
If K=26:Then
55→E
35→B
End
If K=24:Then
15→E
0→B
End
Text(E,B,"→"
If K=105 or K=85:Then
If E=15
(K=105)-(K=85)+A→A
If E=25
(K=105)-(K=85)+F→F
If E=35
(K=105)-(K=85)+C→C
If E=45
(K=105)-(K=85)+D→D
If E=55 and B=0:Then
0→A:0→C:0→D:0→F
End:End:End
EffDessin
Texte(10,8,"TOTAL:"
0.60*A+0.50*F+0.80*C+0.40*D→X
Texte(10,40,X
Pause
EffDessin
EffEcr
AxesAff