bon ok dsl je voyait pas pk tu pouvais avoir un problème.
le code : ( il y a des caractère qui ne passe pas. es-tu un spécialiste en la matière ? moi av je recopiait les prgm basic sur ma ti av que j'ai un cable, alors je mis connais un peu

)
EffEcr
Output(3,7,"MsC"
Pause
EffListe Lƒ
3üdim(Lƒ)
3üdim(L)
EffEcr
Lbl X
Menu(">-----MSC------<","CREER UNITE",C,"EXPLOITER",EX,"COMMUNIQUER",CO,"STATISTIQUE",ST,"NOUV. PARTIE",QO,"QUITTER",Q
Lbl Q:EffEcr

top
Lbl QO
EffListe L
3üdim(L)
Goto X
Lbl ST
EffEcr
Disp "UNITE:",L(2),"OR:",L(1)
Pause
EffEcr
Goto X
Lbl EX
Output(8,4,"[2nd]=Stop"
Output(2,1,"ressource :"
If codeTouch(=21:Goto X
L(1)+1üL(1)
Output(4,8," "
Output(4,8,L(1)
Goto EX
Lbl C
EffEcr
Disp "COUT/unite: 10","NB UNITE:",L(2)
Input "NB DE +:",Á
If 10Á>L(1):Then

isp "PAS ASSEZ":Pause :Goto X:End
L(1)-10ÁüL(1):L(2)+ÁüL(2)
Goto X
Lbl CO
Menu("COMMUNIQUER...","SE FAIRE ATT",SF,"ATTAQUER !",AT,"RETOUR",X
Lbl SF
EffEcr
EffListe L‚
3üdim(L‚
0üÁ
Disp "nô fait par","l autre ti"
Input "Á:",Cha ne3
For(W,1,4,3
sous-Cha ne(Cha ne3,W,3)üCha ne1
For(A,1,3
sous-Cha ne(Cha ne1,A,1)üCha ne2
Cha neåEqu(Cha ne2,Y)
Y(0)üB
BüL‚(A)
End
100L‚(1)+10L‚(2)+L‚(3)üC
EffEcr
If W=1:CüLƒ(2)
If W=4:CüLƒ(1)
End
If L(2)>Lƒ(2):Then
L(2)-Lƒ(2)üL(2)
L(1)+5Lƒ(2)üL(1)
Lƒ(1)-5Lƒ(2)üLƒ(1)
0üLƒ(2):0üLƒ(3):End
If L(2)<Lƒ(2):Then
Lƒ(2)-L(2)üLƒ(2)
L(1)-5L(2)üL(1)
Lƒ(1)+5L(2)üLƒ(1)
0üL(2)
0üU:1üLƒ(3):End
If L(2)=Lƒ(2):Then:2üLƒ(3):End
If L(2)<0:0üL(2)
If Lƒ(2)<0:0üLƒ(2)
If L(1)<0:0üL(1)
If Lƒ(1)<0:0üL(1)
EffEcr
" "üCha ne1
0üW
Lbl XI
W+1üW
Lƒ(W)üÁ:3üA
Lbl XF
If A=3:Then

artEnt(Á/100)üV:2üA:Goto XG:End
If A=2:Then

artD–c(Á/100)üZ:10ZüZ

artEnt(Z)üV:1üA:Goto XG:End
If A=1:Then:10partD–c(Á/10)üV:0üA:End
Lbl XG
If V=1:Cha ne1+"1"üCha ne1
If V=2:Cha ne1+"2"üCha ne1
If V=3:Cha ne1+"3"üCha ne1
If V=4:Cha ne1+"4"üCha ne1
If V=5:Cha ne1+"5"üCha ne1
If V=6:Cha ne1+"6"üCha ne1
If V=7:Cha ne1+"7"üCha ne1
If V=8:Cha ne1+"8"üCha ne1
If V=9:Cha ne1+"9"üCha ne1
If V=0:Cha ne1+"0"üCha ne1
If W=3 et A=0:Goto XH
If A=0:Goto XI
Goto XF
Lbl XH
EffEcr
Disp Cha ne1,"nô a entrer sur","l autre TI"
Pause
Goto X
Lbl AT
EffListe L‚
3üdim(Lƒ)
EffEcr
" "üCha ne1
1üW
Lbl XB
L(W)üÁ
3üA
Lbl XA
If A=3:Then

artEnt(Á/100)üV:2üA:Goto XX:End
If A=2:Then

artD–c(Á/100)üZ:10ZüZ

artEnt(Z)üV:1üA:Goto XX:End
If A=1:Then:10partD–c(Á/10)üV:0üA:End
Lbl XX
If V=1:Cha ne1+"1"üCha ne1
If V=2:Cha ne1+"2"üCha ne1
If V=3:Cha ne1+"3"üCha ne1
If V=4:Cha ne1+"4"üCha ne1
If V=5:Cha ne1+"5"üCha ne1
If V=6:Cha ne1+"6"üCha ne1
If V=7:Cha ne1+"7"üCha ne1
If V=8:Cha ne1+"8"üCha ne1
If V=9:Cha ne1+"9"üCha ne1
If V=0:Cha ne1+"0"üCha ne1
If A=0:Goto FI
If Aø0:Goto XA
Lbl FI
W+1üW:If W=3:Goto XC
Goto XB
Lbl XC
EffEcr

isp Cha ne1,"Nô a entrer sur","l autre TI":Pause :EffEcr:Goto XD
Lbl XD
EffEcr
EffListe L‚
3üdim(L‚
0üÁ
Input "Á:",Cha ne3
For(W,1,7,3
sous-Cha ne(Cha ne3,W,3)üCha ne1
For(A,1,3
sous-Cha ne(Cha ne1,A,1)üCha ne2
Cha neåEqu(Cha ne2,Y)
Y(0)üB
Á+1üÁ
BüL‚(A)
End
100L‚(1)+10L‚(2)+L‚(3)üC
If W=1:CüLƒ(2)
If W=4:CüLƒ(1)
EffEcr
End
If C=1

isp "GAGNE !"
If C=0

isp "PERDU."
If C=2:Then

isp "MATCH NUL":Pause :Goto X:End
Lƒ(1)üL(1)
Lƒ(2)üL(2)
Pause
Goto ST