)0ü ( 
) Xmin
94ü ( ) Xmax
1ü ( ) Xscl
0ü ( ) Ymin
62ü ( ) Ymax
1ü ( ) Yscl
8ü ( ) Xres
ClrHome
ClrDraw
int(rand*2+1)ü ( ) Q
0ü ( ) O
0ü ( ) P
Lbl Z
ClrDraw
0ü ( ) R
0ü ( ) S
0ü ( ) T
0ü ( ) U
0ü ( ) V
0ü ( ) W
0ü ( ) X
0ü ( ) Y
0ü ( ) Z
Line(0,0,0,62
Line(23,0,23,62
Line(46,0,46,62
Line(68,0,68,62
Line(0,0,68,0
Line(0,22,68,22
Line(0,42,68,42
Line(0,62,68,62
Text(2,2,"1
Text(2,26,"2
Text(2,50,"3
Text(22,2,"4
Text(22,26,"5
Text(22,50,"6
Text(42,2,"7
Text(42,26,"8
Text(42,50,"9
Text(6,69,"JOUEUR
Text(12,69,"1=X
Text(18,69,"2=O
Text(0,69,"SIGNE
Text(24,69,"PARTIE
Text(30,69,"GAGNEE:
Text(36,69,"JOUEUR
Text(42,69,"1=",O
Text(48,69,"2=",P
Pause
If Q=3
Then
1ü ( ) Q
End
If Q=1
Then
Output(1,1,"JOUEUR 1 COMMENCE
Pause
ClrHome
Goto A
End
If Q=2
Then
Output(1,1,"JOUEUR 2 COMMENCE
Pause
ClrHome
Goto B
End
Lbl A
Input "JOUEUR 1 ENTRE LE NUMERO DE LA CASE",A
If A=1 and R=0
Then
Goto 1
End
If A=2 and S=0
Then
Goto 2
End
If A=3 and T=0
Then
Goto 3
End
If A=4 and U=0
Then
Goto 4
End
If A=5 and V=0
Then
Goto 5
End
If A=6 and W=0
Then
Goto 6
End
If A=7 and X=0
Then
Goto 7
End
If A=8 and Y=0
Then
Goto 8
End
If A=9 and Z=0
Then
Goto 9
End
If Aø1 and Aø2 and Aø3 and Aø4 and Aø5 and Aø6 and Aø7 and Aø8 and Aø9
Then
ClrHome
Disp "CASE INEXISTANTE
Pause
ClrHome
Goto A
End
Goto 11
Lbl 1
Text(10,10,"X
1ü ( ) R
Goto 10
Lbl 2
Text(10,40,"X
1ü ( ) S
Goto 10
Lbl 3
Text(10,60,"X
1ü ( ) T
Goto 10
Lbl 4
Text(30,10,"X
1ü ( ) U
Goto 10
Lbl 5
Text(30,40,"X
1ü ( ) V
Goto 10
Lbl 6
Text(30,60,"X
1ü ( ) W
Goto 10
Lbl 7
Text(50,10,"X
1ü ( ) X
Goto 10
Lbl 8
Text(50,40,"X
1ü ( ) Y
Goto 10
Lbl 9
Text(50,60,"X
1ü ( ) Z
Goto 10
Lbl 11
ClrHome
Output(1,1,"CASE DEJA UTILISEE
Pause
ClrHome
Goto A
Lbl 10
Pause
If S=1 and R=1 and T=1
Then
Goto 12
End
If U=1 and W=1 and V=1
Then
Goto 12
End
If X=1 and Z=1 and Y=1
Then
Goto 12
End
If R=1 and X=1 and U=1
Then
Goto 12
End
If S=1 and Y=1 and V=1
Then
Goto 12
End
If T=1 and Z=1 and W=1
Then
Goto 12
End
If R=1 and Z=1 and V=1
Then
Goto 12
End
If T=1 and X=1 and V=1
Then
Goto 12
End
If Rø0 and Sø0 and Tø0 and Uø0 and Vø0 and Wø0 and Xø0 and Yø0 and Zø0
Then
Goto 40
End
Goto B
Lbl 12
ClrHome
Output(1,1,"JOUEUR 1 GAGNE!
Pause
ClrHome
2ü ( ) Q
O+1ü ( ) O
Goto Z
Lbl B
Input "JOUEUR 2 ENTRE LE NUMERO DE LA CASE",A
If A=1 and R=0
Then
Goto 21
End
If A=2 and S=0
Then
Goto 22
End
If A=3 and T=0
Then
Goto 23
End
If A=4 and U=0
Then
Goto 24
End
If A=5 and V=0
Then
Goto 25
End
If A=6 and W=0
Then
Goto 26
End
If A=7 and X=0
Then
Goto 27
End
If A=8 and Y=0
Then
Goto 28
End
If A=9 and Z=0
Then
Goto 29
End
If Aø1 and Aø2 and Aø3 and Aø4 and Aø5 and Aø6 and Aø7 and Aø8 and Aø9
Then
ClrHome
Disp "CASE INEXISTANTE
Pause
ClrHome
Goto B
End
Goto 31
Lbl 21
Text(10,10,"O
2ü ( ) R
Goto 30
Lbl 22
Text(10,40,"O
2ü ( ) S
Goto 30
Lbl 23
Text(10,60,"O
2ü ( ) T
Goto 30
Lbl 24
Text(30,10,"O
2ü ( ) U
Goto 30
Lbl 25
Text(30,40,"O
2ü ( ) V
Goto 30
Lbl 26
Text(30,60,"O
2ü ( ) W
Goto 30
Lbl 27
Text(50,10,"O
2ü ( ) X
Goto 30
Lbl 28
Text(50,40,"O
2ü ( ) Y
Goto 30
Lbl 29
Text(50,60,"O
2ü ( ) Z
Goto 30
Lbl 31
ClrHome
Output(1,1,"CASE DEJA UTILISEE
Pause
ClrHome
Goto B
Lbl 30
Pause
If S=2 and R=2 and T=2
Then
Goto 32
End
If U=2 and W=2 and V=2
Then
Goto 32
End
If X=2 and Z=2 and Y=2
Then
Goto 32
End
If R=2 and X=2 and U=2
Then
Goto 32
End
If S=2 and Y=2 and V=2
Then
Goto 32
End
If T=2 and Z=2 and W=2
Then
Goto 32
End
If R=2 and Z=2 and V=2
Then
Goto 32
End
If T=2 and X=2 and V=2
Then
Goto 32
End
If Rø0 and Sø0 and Tø0 and Uø0 and Vø0 and Wø0 and Xø0 and Yø0 and Zø0
Then
Goto 40
End
Goto A
Lbl 32
ClrHome
Output(1,1,"JOUEUR 2 GAGNE!
Pause
ClrHome
1ü ( ) Q
P+1ü ( ) P
Goto Z
Lbl 40
ClrHome
Output(1,1,"EGALITE
Pause
ClrHome
Goto Z
If Q=3
Then
1ü ( ) Q
EndIf Q=3
1ü ( ) Q
) )