+-------------------------------------------------------+
|
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.4A To ‡4.2 Step 0.1
F-Line A,2,A,‡2:Next
'E
For ‡3.8A 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.4A To 0.1 Step 0.1:A‰0.8B
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.2A 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.3C:‡3.1D
For ‡6.2A To 5.3 Step 2.1:A‰1.9B
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
57A
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:GetkeyA
LpWhile A79 And A69 And A59 And A49 And A39 And A29
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=79Intg (Ran#100)X
A=69Intg (Ran#1000)X
A=59Intg (Ran#10000)X
0B
"FIND THE NUMBER"
Do:B‰1B:?Y
Y>XGreen "LOWER"
Y<XOrange "HIGHER"
LpWhile YX
B=1Orange "You must have cheat"
B1"At last"
"Number of turns:":B
"Score:"
A=79Int (2000B)B
A=69Int (4000B)B
A=59Int (6000B)B
If B500
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 B330Orange "You aren't so bad"
B<330 And B280Green "Not very good."
B<280"You are baaaad"
For 1A To 400:Next
Goto 0