'Megajeu by Lionel Baboud
'casio site:http://perso.wanadoo.fr/duobab/
'e-mail:roland.baboud@wanadoo.fr
'-----------

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


AxesOff
BG-None
ClrGraph
Green Text 3,9,"BABOUD PRODUCTION PRESENTS:"
F-Line -5.9,2,-5.9,-2
F-Line -6.1,-2,-5.7,-2
F-Line -6,-1.9,-5.8,-1.9
F-Line -5.8,0.7,-5.4,-2
F-Line -5.3,-2,-5.8,1.1
F-Line -5.2,-2,-5.8,1.4
F-Line -5.2,-1.7,-5.8,1.7
F-Line -5.2,-1.4,-5.8,2
F-Line -5.1,-1.6,-5.7,2
F-Line -5.1,-1.3,-5.6,2
F-Line -5.1,-0.9,-5.5,2
F-Line -5.1,-2,-4.5,2
F-Line -4.6,1.5,-4.6,-2
F-Line -4.5,1.7,-4.5,-2
For -4.4 -> A To -4.2 Step 0.1
F-Line A,2,A,-2:Next
'E
For -3.8 -> A To -3.3 Step 0.1
F-Line A,2,A,-2:Next
F-Line -3.9,2,-2.7,2
F-Line -3.3,0,-2.9,0
F-Line -3.9,-2,-2.7,-2
'G
F-Line -2.6,1.2,-2.6,-1.2
F-Line -2.5,1.6,-2.5,-1.6
F-Line -2.4,1.8,-2.4,-1.8
F-Line -2.3,1.9,-2.3,-1.9
F-Line -2.2,2,-2.2,-2
F-Line -2.1,-2,-1.8,-2
F-Line -2.1,2,-1.8,2
F-Line -1.8,-2,-1.6,-1.8
F-Line -1.8,2,-1.6,1.8
F-Line -1.6,-1.8,-1.5,-1.5
F-Line -1.6,1.8,-1.5,1.5
F-Line -1.5,-1.5,-1.4,-1.2
F-Line -1.5,1.5,-1.4,1.2
F-Line -1.4,-1.2,-1.4,0
F-Line -1.4,1.2,-1.4,1
F-Line -1.4,0,-1.8,0
'A
F-Line -1.2,-2,-0.4,2
For -0.4 -> A To 0.1 Step 0.1:A+0.8 -> B
F-Line A,2,B,-2:Next
F-Line -1,-1.2,0.4,-1.2
'J
F-Line 1.6,0,1.6,-1
F-Line 1.6,-1,1.7,-1.5
F-Line 1.7,-1.5,2,-2
F-Line 2,-2,2.3,-2
F-Line 2.3,-2,2.3,2
F-Line 2.4,-1.9,2.4,2
F-Line 2.5,-1.8,2.5,2
F-Line 2.6,-1.6,2.6,2
F-Line 2.7,-1.2,2.7,2
F-Line 2.1,2,2.9,2
'E
For 3.2 -> A To 3.7 Step 0.1
F-Line A,2,A,-2:Next
F-Line 3.1,2,4.3,2
F-Line 3.1,-2,4.3,-2
F-Line 3.8,0,4,0
'U
F-Line 4.5,2,4.5,-1.2
F-Line 4.6,2,4.6,-1.6
F-Line 4.7,2,4.7,-1.8
F-Line 4.8,2,4.8,-1.9
F-Line 4.9,2,4.9,-2
F-Line 5,-2,5.3,-2
F-Line 5.3,-2,5.5,-1.8
F-Line 5.5,-1.8,5.6,-1.5
F-Line 5.6,-1.5,5.7,-1.2
F-Line 5.7,-1.2,5.7,1.4
Green Text 12,117,"TM"
-2.3 -> C:-3.1 -> D
For -6.2 -> A To 5.3 Step 2.1:A+1.9 -> B
F-Line A,C,A,D
F-Line A,D,B,D
F-Line B,D,B,C
F-Line B,C,A,C
Next
57 -> A
Green Text A,4,"EASY"
Green Text A,25,"PLAY"
Green Text A,46,"HARD"
Orange Text A,67,"INFO"
Text A,88,"RULE"
Orange Text A,109,"EXIT"
Lbl 0
PlotOn -5.9,-2.3
Do:Getkey -> A
LpWhile A <> 79 And A <> 69 And A <> 59 And A <> 49 And A <> 39 And A <> 29
ClrText
If A=49
Then "MEGAJEU TM"
Green "GAME MADE BY:":Orange "LIONEL BABOUD!"_
Goto 0:IfEnd
If A=29
Then ClrGraph:AxesOn:ClrText:"SALUT!"
Stop:IfEnd
If A=39:Then Green "YOU'LL HAVE TO FIND THE NUMBER N:"
"EASY:N<100"
"PLAY:N<1000"
"HARD:N<10000"_
Goto 0:IfEnd
A=79 => Intg (Ran#(c)100) -> X
A=69 => Intg (Ran#(c)1000) -> X
A=59 => Intg (Ran#(c)10000) -> X
0 -> B
"FIND THE NUMBER"
Do:B+1 -> B:? -> Y
Y>X => Green "LOWER"
Y<X => Orange "HIGHER"
LpWhile Y <> X
B=1 => Orange "You must have cheat!"
B <> 1 => "At last!"
"Number of turns:":B_
"Score:"
A=79 => Int (2000/B) -> B_
A=69 => Int (4000/B) -> B_
A=59 => Int (6000/B) -> B_
If B>=500
Then ClrText
Locate 21,1,"/"
Locate 20,2,"/"
Locate 1,3,"GGG AAA GGG N   N EEE"
Locate 1,4,"G   A A G   NN  H E"
Locate 1,5,"G G A A G G N N N EE"
Locate 1,6,"G G AAA G G N  NN E"
Locate 1,7,"GGG A A GGG N   N EEE"
IfEnd
B<500 And B>=330 => Orange "You aren't so bad!"
B<330 And B>=280 => Green "Not very good."
B<280 => "You are baaaad!!"
For 1 -> A To 400:Next
Goto 0