ViewWindow 1,127,0,1,63,0
ÐÞI
Lbl 0
[[0,0,0][0,0,0][0,0,0ÞMat H
0ÞA~Z
‡2ÞJ
Cls
F-Line 64,55,64,19
F-Line 44,19,44,55
F-Line 24,43,84,43
F-Line 84,31,24,31
Text 12,18,"A"
Text 25,18,"B"
Text 37,18,"C"
Text 47,33,"1"
Text 47,53,"2"
Text 47,73,"3"
Text 63,127," "
Lbl 2
Isz Z
Z=10ãGoto 8
J‰3ÞJ
J>4ã1ÞJ
Lbl 9
J=1ãText 1,1,"1"
J=4ãText 1,1,"2"
Text 63,127," "
Do
Getkey
LpWhile Ansá76 And Ansá66 And Ansá56
1ÞN
Ans=76ã3ÞN
Ans=66ã2ÞN
Do
Getkey
LpWhile Ansá72 And Ansá62 And Ansá52
3ÞO
Ans=72ã1ÞO
Ans=62ã2ÞO
Mat H[N,O
Ans=1 Or Ans=4ãGoto 6
JÞMat H[N,O]
20©O‰4ÞA
12N‰7ÞB
If J=1
Then Orange F-Line A‰17,B‰9,A‰3,B‰3
Orange F-Line A‰17,B‰3,A‰3,B‰9
Else Green Plot A‰10,B‰10
Green Plot A‰17,B‰6
Green Line
Green Plot A‰10,B‰2
Green Line
Green Plot A‰3,B‰6
Green Line
Green Plot A‰10,B‰10
Green Line
IfEnd
Lbl 7
0ÞE
1ÞD
For 1ÞC To 3
Mat H[D,C]‰Mat H[D‰1,C]‰Mat H[D‰2,C]
Ans=3ãÐÞE
Ans=12ã‡ÐÞE
Abs E=ÐãGoto 3
Next
1ÞC
For 1ÞD To 3
Mat H[D,C]‰Mat H[D,C‰1]‰Mat H[D,C‰2]
Ans=3ãÐÞE
Ans=12ã‡ÐÞE
Abs E=ÐãGoto 3
Next
Mat H[1,1]‰Mat H[2,2]‰Mat H[3,3]
Ans=3ãÐÞE
Ans=12ã‡ÐÞE
Abs E=ÐãGoto 3
Mat H[1,3]‰Mat H[2,2]‰Mat H[3,1]
Ans=3ãÐÞE
Ans=12ã‡ÐÞE
Lbl 3
If Abs E=Ð
Then ClrText
Text 20,90,"LE JOUEUR"
E=ÐãText 30,90,"1"
E=‡ÐãText 30,90,"2"
Text 30,97,"A GAGNE"Ý
Goto 0
IfEnd
Goto 2
Lbl 8
Text 20,98,"MATCH"
Text 28,102,"NUL"Ý
Goto 0
Lbl 6
Text 3,30,"CASE OCCUPEE"Ý
Text 3,30,"            "
Goto 9