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

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#©100)ÞX
A=69ãIntg (Ran#©1000)ÞX
A=59ãIntg (Ran#©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