+-------------------------------------------------------+
| 4InARow by Lionel Baboud                              |
| casio site: http://perso.wanadoo.fr/duobab/index.htm  |
| e-mail: roland.baboud@wanadoo.fr                      |
+-------------------------------------------------------+

1ÞP
Identity 9ÞMat A
Fill(0,Mat A
{™1,1,1,1,0,™1,™1}ÞList 1
{1,1,0,™1,™1,™1,0}ÞList 2
{0,0,0,0,0,0,0}ÞList 3
ClrGraph
AxesOff
ViewWindow 0.5,14.5,1,0.9,7.8,1
'Î
Text 48,88,"BABOUD"
Text 54,80,"PRODUCTION"
F-Line 9.2,2.9,13.8,2.9
F-Line 14.1,2.7,14.1,1.2
F-Line 13.8,1,9.2,1
F-Line 8.9,1.2,8.9,2.7
F-Line 9,2.8,9.2,2.7
F-Line 13.9,2.8,13.8,2.7
F-Line 13.9,1.1,13.8,1.2
F-Line 9,1.1,9.2,1.2
'†
Orange F-Line 9.2,2.8,13.8,2.8
Orange F-Line 13.9,2.7,13.9,1.2
Orange F-Line 13.8,1.1,9.2,1.1
Orange F-Line 9,1.2,9,2.7
Green Text 5,76,"PUISSANCE 4"
Orange F-Line 8.6,7.6,13.9,7.6
Orange F-Line 13.9,7.6,13.9,6.7
Orange F-Line 13.9,6.7,8.6,6.7
Orange F-Line 8.6,6.7,8.6,7.6
F-Line 14,7.5,14,6.6
F-Line 14,6.6,8.7,6.6
For 1ÞA To 7
Green F-Line 1,A,8,A
Next
For 1ÞA To 8
Green F-Line A,1,A,7
Next
F-Line 8.2,6.9,8.2,0.9
F-Line 8.2,0.9,1.2,0.9
4ÞA
9ÞG
Orange Text 20,85,"JOUEUR 1"
Text 30,85,"JOUEUR 2"
Do
Green Text 25‰5P,78," "
Green Text 25™5P,78,"Þ"
Do
Green Text 1,9," "
Green F-Line A‰0.5,7.8,A‰0.5,7.2
Green F-Line A‰0.4,7.3,A‰0.6,7.3
Do:GetkeyÞK
LpWhile K=0
K=27ãA‰1ÞA
K=38ãA™1ÞA
A=8ã1ÞA
A=0ã7ÞA
LpWhile Ká31
Mat A[9,A]ÞB
If B<6
Then Text 37,120,"#"
1‰BÞMat A[9,A]
PÞMat A[B‰2,A‰1]
If P=™1
Then F-Line A‰0.4,B‰1.2,A‰0.7,B‰1.2
F-Line A‰0.3,B‰1.3,A‰0.8,B‰1.3
F-Line A‰0.3,B‰1.5,A‰0.8,B‰1.5
F-Line A‰0.3,B‰1.6,A‰0.8,B‰1.6
F-Line A‰0.3,B‰1.7,A‰0.8,B‰1.7
F-Line A‰0.4,B‰1.8,A‰0.7,B‰1.8
Else Orange F-Line A‰0.4,B‰1.2,A‰0.7,B‰1.2
Orange F-Line A‰0.3,B‰1.3,A‰0.8,B‰1.3
Orange F-Line A‰0.3,B‰1.5,A‰0.8,B‰1.5
Orange F-Line A‰0.3,B‰1.6,A‰0.8,B‰1.6
Orange F-Line A‰0.3,B‰1.7,A‰0.8,B‰1.7
Orange F-Line A‰0.4,B‰1.8,A‰0.7,B‰1.8
IfEnd
'Text 57,120,"#"
PlotOn 1,1
For 1ÞC To 7
List 1[C]ÞM
List 2[C]ÞN
0ÞZ
While Mat A[B‰2‰N(Z‰1),A‰M(Z‰1)‰1]=P
Z‰1ÞZ
WhileEnd
ZÞList 3[C]
Next
0ÞO
(List 3[1]‰List 3[4])â3 Or (List 3[2]‰List 3[6])â3 Or (List 3[3]‰List 3[7])â3 Or (List 3[5])â3ã1ÞO
Text 37,120," "
™PÞP
IfEnd
LpWhile Oá1
ClrList
Green Text 1,9," "
Green Text 25‰5P,78," "
Orange Text 20,85," "
Text 30,85," "
P=™1ãOrange Text 20,77,"LE JOUEUR 1"
P=1ãText 20,77,"LE JOUEUR 2"
For 123ÞA To 83 Step ™5
Green Text 28,A,"A GAGNE « "
Next
Green PlotOn 1,1