'Megajeu2 by Jean-Baptiste Paquy and Lionel Baboud
'casio site=http.//perso.wanadoo.fr/duobab/index.htm
'e-mail=roland.baboud@wanadoo.fr
'-----------

Characters translation :
------------------------
|  >=   : greater or equal
|  <=   : less or equal
|  <>   : not equal
|  _    : -disp- (the triangle)
|  ->   : the single arrow
|  =>   : the double arrow

AxesOff
BG-None
ClrGraph
ClrText
Locate 1,2,"xxxxxxxxxxxxxxxxxxxxxx"
Locate 1,3,"x                   x"
Locate 1,4,"x  PAQUY PRODUCTION x"
Locate 1,5,"x      PRESENTS     x"
Locate 1,6,"x                   x"
Locate 1,7,"xxxxxxxxxxxxxxxxxxxxxx"_
'M
For -6.2 -> A To -5.8 Step 0.1
F-Line A,2,A,-2:Next
F-Line -5.8,2,-5.4,0
F-Line -5.4,0,-5,2
F-Line -5,2,-5,-2
'E
For -4.7 -> A To -4.3 Step 0.1
F-Line A,2,A,-2:Next
F-Line -4.3,2,-3.9,2
F-Line -4.3,-2,-3.9,-2
F-Line -4.3,0,-4.1,0
'G
F-Line -3.7,1.2,-3.7,-1.2
F-Line -3.6,1.6,-3.6,-1.6
F-Line -3.5,1.8,-3.5,-1.8
F-Line -3.4,2,-3.4,-2
F-Line -3.3,2,-3.3,-2
F-Line -3.3,2,-2.8,2
F-Line -3.3,-2,-2.8,-2
F-Line -2.8,-2,-2.8,0
'A
F-Line -2.6,-2,-2.1,2
For -2.1 -> A To -1.7 Step 0.1
F-Line A,2,A+0.5,-2:Next
F-Line -2.5,-1,-1.7,-1
'J
F-Line 0,0,0,-1
F-Line 0,-1,0.1,-1.5
F-Line 0.1,-1.5,0.4,-2
F-Line 0.4,-2,0.7,-2
F-Line 0.7,-2,0.7,2
F-Line 0.8,-1.9,0.8,2
F-Line 0.9,-1.7,0.9,2
F-Line 1,-1.4,1,2
F-Line 1.1,-1,1.1,2
F-Line 0.5,2,1.3,2
'E
For 1.5 -> A To 1.9 Step 0.1
F-Line A,2,A,-2:Next
F-Line 2,2,2.3,2
F-Line 2,-2,2.3,-2
F-Line 2,0,2.2,0
'U
F-Line 2.5,2,2.5,-1.2
F-Line 2.6,2,2.6,-1.6
F-Line 2.7,2,2.7,-1.8
F-Line 2.8,2,2.8,-1.9
F-Line 2.9,2,2.9,-2
F-Line 3,-2,3.3,-2
F-Line 3.3,-2,3.5,-1.8
F-Line 3.5,-1.8,3.6,-1.5
F-Line 3.6,-1.5,3.7,-1.2
F-Line 3.7,-1.1,3.7,1.4
'2
F-Line 4.5,1,4.5,1.5
F-Line 4.5,1.5,5,2
F-Line 5,2,5.5,2
F-Line 5.5,2,6,1.5
F-Line 6,1.5,6,1
F-Line 6,1,4.5,-1.5
F-Line 4.5,-1.5,4.5,-2
F-Line 4.5,-2,6,-2
Text 12,97,"TM"
Horizontal 2.4
{-6.2,-4.1,4.3} -> List 1
For 1 -> A To 3
List 1[A] -> B
F-Line B,-2.3,B+1.9,-2.3
F-Line B+1.9,-2.3,B+1.9,-3.1
F-Line B+1.9,-3.1,B,-3.1
F-Line B,-3.1,B,-2.3
Next
Lbl 2
Text 57,109,"EXIT"
Text 02,47,"VERSION 2"
Text 57,04,"EASY"
Text 57,25,"HARD"
PlotOn -5.7,-2.3
ClrText
Do:Getkey -> Y:LpWhile Y <> 79 And Y <> 69 And Y <> 29
If Y=29
Then ClrText
"So long..."
Stop:IfEnd
Y=79 => 50 -> U
Y=69 => 15 -> U
"Number A="
Intg (Ran#x1000) -> W
Locate 10,1,W
"Find B to have"
"A+B=1000"
1000-W -> Z
0 -> T
Lbl 1
Locate 7,4," -> "
T+1 -> T
0 -> R
{0,0,0} -> List 1
For 1 -> I To U
Getkey -> K
If K=71 Or K=52 Or K=62 Or K=72 Or K=53 Or K=63 Or K=73 Or K=54 Or K=64 Or K=74
Then R+1 -> R
K/10 -> L
Int L -> A
10Frac L -> B
3B-A+2 -> S
S=-2 => 0 -> S
Locate 8+R,4,S
R<4 => S -> List 1[R]
IfEnd
K=31 => Break
Next
R=1 => List 1[1] -> S
R=2 => 10List 1[1]+List 1[2] -> S
R=3 => 100List 1[1]+10List 1[2]+List 1[3] -> S
ClrText
If S <> Z
Then For 1 -> I To 10:Locate 9,4,"Wrong":Next
ClrText
If T<4
Then Locate 1,1,"Remainder:A="
Locate 10,1,W
Locate 1,2,"B=?"
Goto 1:IfEnd
ClrText
Locate 9,2,"You lose"
Locate 4,4,"T'ES UNE LOQUE!"
Locate 6,7,"answer:"
Locate 14,7,Z_
Else Locate 8,3,"You win"
Locate 3,5,"Number of turns:"
Locate 19,5,T_
IfEnd
Goto 2