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

0ÞM~N
™1ÞC
ClrText
Identity 9ÞMat X
For 1ÞA To 7
For 1ÞB To 7
Int (9Ran#)‰1ÞMat X[B‰1,A‰1]
Locate A‰7,B,Mat X[B‰1,A‰1]
Next
Next
0ÞMat X[5,5]
4ÞA~B
Locate 1,2,"PLAYER"
Locate 16,2,"PLAYER"
Locate 4,3,1
Locate 18,3,2
Locate 1,5,"SCORE:"
Locate 16,5,"SCORE:"
Do
Locate A‰7,B,"$"
Locate 7C‰10,3,"Þ"
Locate ™7C‰10,3," "
Locate 3,6,M
Locate 18,6,N
Do:GetkeyÞK
K¹10ÞL
LpWhile Int L<5 Or Frac L=0.1 Or Frac L>0.4
Locate A‰7,B," "
AÞG
BÞH
Int L=7ãG™1ÞG
Int L=5ãG‰1ÞG
Frac L=0.4ãH™1ÞH
Frac L=0.2ãH‰1ÞH
If Mat X[H‰1,G‰1]á0
Then GÞA:HÞB
C=™1ãM‰Mat X[B‰1,A‰1]ÞM
C=1ãN‰Mat X[B‰1,A‰1]ÞN
0ÞMat X[B‰1,A‰1]
™CÞC
IfEnd
LpWhile Mat X[B,A]‰Mat X[B,A‰1]‰Mat X[B,A‰2]‰Mat X[B‰1,A‰2]‰Mat X[B‰2,A‰2]‰Mat X[B‰2,A‰1]‰Mat X[B‰2,A]‰Mat X[B‰1,A]á0
ClrText
Identity 1ÞMat X
If M>N
Then "THE PLAYER 1 WINS«"
Else "THE PLAYER 2 WINS«"
IfEnd