Ex:
For(X, 1, 5) If x=3 Goto A If x=4 Goto B if not(max(X={1,2,5 End lbl 0 Disp"Main Disp "Ce texte ne fait pas partie du for... Stop lbl A End lbl B Disp "Affiché par le For. End
For(X, 1, 5) If x=3 Goto A If x=4 Goto B if not(max(X={1,2,5 End lbl 0 Disp"Main Disp "Ce texte ne fait pas partie du for... Stop lbl A End lbl B Disp "Affiché par le For. End
gon33 (./60) :
Oui, sauf que je peux mettre tout mon code entre Le For et le label, et je peux mettre plusieurs labels pour un seul for.
:Menu("TRUC","DFSDF",A,"SFQSDQF",1,"DGFSEF",EB,"SCSVD",C2,"DGSDG",3D) :Lbl A :Lbl B :Lbl C :Lbl D :Lbl E :Lbl 1 :Lbl EB :Lbl 2 :Lbl C2 :Lbl 3 :Lbl 3D
gon33 (./73) :
He ben, si on a un label inexistant, avoir une liste de liens (ancres) qui correspondent aux Goto vers le label inexistant.
For(Y,1,8) :__For(X,1,16) :____sub(Str1,[A](Y,X)+1,1 :____Output(Y,X,Ans :____If Ans="H":Then :____X→U:Y→V :__End :End :End
:While X≠16 :__Output(V,U," " :__0→[A](V,U) :__4→[A](Y,X) :__X→U:Y→V : :__Output(Y,X,"N" : :__0 :__While Ans=0 :____getKey→K :__End :__If Ans=45:Then:0→ᴸLABRO(2):Goto NG:End :If Ans=15:Then:prgmCALTO:Goto GG:End //toute la partie d'ici à... :If Ans=22:Goto QT :If Ans=24 and X>1:Then :If [A](Y,X-1)=0:Then:X-1→X:Else :If [A](Y,X-1)≠1:Then :If [A](Y,X-1)=2 and ([A](Y,X-2)=0 or [A](Y,X-2)=3):Then:X-1→X :If [A](Y,X-1)=0:Then:2→[A](Y,X-1):Output(Y,X-1,"O":End :If [A](Y,X-1)=3:Then:0→[A](Y,X-1):Output(Y,X-1," ":End :End:End:End:End :If Ans=26 and X<16:Then :If [A](Y,X+1)=0:Then:X+1→X:Else :If [A](Y,X+1)≠1:Then :If [A](Y,X+1)=2 and ([A](Y,X+2)=0 or [A](Y,X+2)=3):Then:X+1→X :If [A](Y,X+1)=0:Then:2→[A](Y,X+1):Output(Y,X+1,"O":End :If [A](Y,X+1)=3:Then:0→[A](Y,X+1):Output(Y,X+1," ":End :End:End:End:End :If Ans=25 and Y>1:Then :If [A](Y-1,X)=0:Then:Y-1→Y:Else :If [A](Y-1,X)≠1:Then :If [A](Y-1,X)=2 and ([A](Y-2,X)=0 or [A](Y-2,X)=3):Then:Y-1→Y :If [A](Y-1,X)=0:Then:2→[A](Y-1,X):Output(Y-1,X,"O":End :If [A](Y-1,X)=3:Then:0→[A](Y-1,X):Output(Y-1,X," ":End :End:End:End:End :If Ans=34 and Y<8:Then :If [A](Y+1,X)=0:Then:Y+1→Y:Else :If [A](Y+1,X)≠1:Then :If [A](Y+1,X)=2 and ([A](Y+2,X)=0 or [A](Y+2,X)=3):Then:Y+1→Y :If [A](Y+1,X)=0:Then:2→[A](Y+1,X):Output(Y+1,X,"O":End :If [A](Y+1,X)=3:Then:0→[A](Y+1,X):Output(Y+1,X," ":End :End:End:End:End //...ici devrait être indenté de 1 :End //le While du début fini ici
:If A:Then: Disp 1 : Disp 1:End: Disp 1:If A:Then: Disp 1 : Disp 1:End