+-------------------------------------------------------+
| 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.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#©1000)Þ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