Bonjour a tous, j'ai un problème avec un programme..
Alors voilà, à l'aide d'un éditeur en ligne j'ai crée mon programme et jusqu'au moment du lancement du programme tout fonctionne correctement mais au bout d'un moment la calculatrice m'affiche "go error"


4ÞZ
CoordOff:GridOff:AxesOff:LabelOff
ViewWindow 1,127,0,1,63,0
0ÞP
Lbl 0
Cls
If P=0
Then Text 4,1,"E DE LA CATHODE EST SOUMIS"
Text 12,1,"A UNE F ELEC"
Text 28,1,"F = ™eE"
Text 44,1,"THEOR de E CIN :"
Text 52,1,"E CIN ANODE ™ E CIN CATHODE : W"
Goto 1
IfEnd
If P=1
Then Text 4,1," F"
Text 20,1,"E CIN = eU en eV"
Text 36,1,"I = Q/t "
Text 44,1,"Q CHARGE TOTALE = I.t = n.e"
Goto 1
IfEnd
If P=2
Then Text 4,1,"n = I.t/e : NBRE D E ARRIVANT SUR"
Text 12,1," ANODE"
Text 28,1,"U = R.I"
Text 36,1,"P = U.I"
Text 44,1,"E = P.t"
Goto 1
IfEnd
If P=3
Then Text 4,1,"PUISSANCE TUBE (P) = KIZU"
073ÞC:106ÞI:4ÞJ:Prog "Lib"
Text 20,1,"RDT TUBE = P TUBE / P ELEC"
Text 36,1,"RDT = KZU"
Text 52,1,"P rayonn"
068ÞC:36ÞI:52ÞJ:Prog "Lib"
Text 52,42,"e = U.I.RDT"
Goto 1
IfEnd
If P=4
Then Text 12,1,"LOI DUANE ET HUNT"
Text 20,1,"E MAX FAISCEAU = h"
013ÞC:76ÞI:20ÞJ:Prog "Lib"
Text 20,82," MAX"
Text 36,1,"E MAX = hc/"
011ÞC:47ÞI:36ÞJ:Prog "Lib"
Text 36,53," = eU"
011ÞC:1ÞI:52ÞJ:Prog "Lib"
Text 52,7," MIN = 1,24/U en nm"
Goto 1
IfEnd
Lbl 1
Do
GetkeyÞK
LpWhile K=31 Or K=0
If K=39
Then P‰1ÞP
If P>Z
Then ZÞP
Goto 1
IfEnd
Goto 0
IfEnd
If K=69
Then P™1ÞP
If P<0
Then 0ÞP
Goto 1
IfEnd
Goto 0
IfEnd
If K=29
Then P‰2ÞP
If PâZ‰2
Then ZÞP
Goto 1
IfEnd
If PâZ‰1
Then ZÞP
IfEnd
Goto 0
IfEnd
If K=79
Then P™2ÞP
If Pà™2
Then 0ÞP
Goto 1
IfEnd
If Pà™1
Then 0ÞP
IfEnd
Goto 0
IfEnd
If K=47
Then CoordOn:GridOn:AxesOn:ViewWindow ™6.3,6.3,1,™3.1,3.1,1
Stop
IfEnd
Goto 1


le problème survient à partir de la partie en gras.
merci d'avance