<sup>SauveBDG 5:FonctNAff :ZStandard:AxesNAff
EffEcr
Disp "    MORPION
Disp "    VERS 1.6
Disp "
Disp " PROGRAMMING BY
Disp "    TETAR 27
Output(7,1,"TETAR-27.WEBNODE.FR
For(A,1,1000
End
1 -> L
While L
EffDessin
Horizontale 3.33
Horizontale -3.33
Verticale 3.33
Verticale -3.33
0 -> A:0 -> B:0 -> C:0 -> D:0 -> E:0 -> F:0 -> G:0 -> H:0 -> I
2 -> J
0 -> T
1 -> K
While K
1+T -> T
1+(J=1) -> J
If J=1:"X" -> Chaine1
If J=2:"o" -> Chaine1     ## o c'est le petit carré q'on trouve a la fin du catalogue ##
1 -> M
While M
codeTouch( -> N
If N=92 et G=0 ou N=93 et H=0 ou N=94 et I=0
Then
If N=92:J -> G
If N=93:J -> H
If N=94:J -> I
Texte(50,13+(N-92)*32,Chaine1
0 -> M
End

If N=82 et D=0 ou N=83 et E=0 ou N=84 et F=0
Then
If N=82:J -> D
If N=83:J -> E
If N=84:J -> F
Texte(28,13+(N-82)*32,Chaine1
0 -> M
End
If N=72 et A=0 ou N=73 et B=0 ou N=74 et C=0
Then
If N=72:J -> A
If N=73:J -> B
If N=74:J -> C
Texte(8,13+(N-72)*32,Chaine1
0 -> M
End
If A=B et B=C et C≠0 ou D=E et E=F et F≠0 ou G=H et H=I et I≠0 ou A=D et D=G et G≠0 ou B=E et E=H et H≠0 ou C=F et F=I et I≠0 ou A=E et E=I et I≠0 ou C=E et E=G et G≠0
Then
0 -> K
End
End
End
EffEcr
If T<10
Then
Disp "VICTOIRE DU
Disp "JOUEUR",J
Else
Disp "EGALITEE"
End
Disp "ARRETER=0"
Disp "CONTINUER≠0
Input "",L
End
RappelBDG 5
EffEcr</sup>