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

0M~N
™1C
ClrText
Identity 9Mat X
For 1A To 7
For 1B To 7
Int (9Ran#)‰1Mat X[B‰1,A‰1]
Locate A‰7,B,Mat X[B‰1,A‰1]
Next
Next
0Mat X[5,5]
4A~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:GetkeyK
K10L
LpWhile Int L<5 Or Frac L=0.1 Or Frac L>0.4
Locate A‰7,B," "
AG
BH
Int L=7G™1G
Int L=5G‰1G
Frac L=0.4H™1H
Frac L=0.2H‰1H
If Mat X[H‰1,G‰1]0
Then GA:HB
C=™1M‰Mat X[B‰1,A‰1]M
C=1N‰Mat X[B‰1,A‰1]N
0Mat X[B‰1,A‰1]
™CC
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 1Mat X
If M>N
Then "THE PLAYER 1 WINS"
Else "THE PLAYER 2 WINS"
IfEnd