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

AxesOff
BG-None
ClrGraph
ClrText
Locate 1,2,""
Locate 1,3," "
Locate 1,4," PAQUY PRODUCTION "
Locate 1,5," PRESENTS "
Locate 1,6," "
Locate 1,7,""
'M
For ™6.2A 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.7A 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.1A 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.5A 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 1A 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:GetkeyY:LpWhile Y79 And Y69 And Y29
If Y=29
Then ClrText
"So long..."
Stop:IfEnd
Y=7950U
Y=6915U
"Number A="
Intg (Ran#1000)W
Locate 10,1,W
"Find B to have"
"A‰B=1000"
1000™WZ
0T
Lbl 1
Locate 7,4,""
T‰1T
0R
{0,0,0}List 1
For 1I To U
GetkeyK
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‰1R
K10L
Int LA
10Frac LB
3B™A‰2S
S=™20S
Locate 8‰R,4,S
R<4SList 1[R]
IfEnd
K=31Break
Next
R=1List 1[1]S
R=210List 1[1]‰List 1[2]S
R=3100List 1[1]‰10List 1[2]‰List 1[3]S
ClrText
If SZ
Then For 1I 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