Lbl 0
AxesOn
ClrText
0ŢA~Z
Locate 5,1,"JEU NIAISEUX"
Locate 10,2,"‡"
Locate 1,3,"0ăQuitter"
Locate 1,4,"1ăJouer"
Locate 1,5,"2ăVoir les scores "
While Xá71 And Xá72
GetkeyŢX
X=62ăGoto S
WhileEnd
ClrText
X=71ăStop
1ŢN
Lbl 1
0ŢV
ClrText
ViewWindow 0,126,0,0,62,0
Text 3,3,"NIVEAU"
Text 3,31,N
1ŢA
Int 30Ran#‰15ŢB
Int (124ą(N‰2)ŢW
62™WŢO
Int 42Ran#ŢS
Green Horizontal 62
Int ORan#ŢC
Int ORan#ŢD
Int ORan#ŢE
Int ORan#ŢF
Int ORan#ŢG
Int ORan#ŢH
Green F-Line 18,0,18,C
Green F-Line 18,C‰W,18,62
Green F-Line 36,0,36,D
Green F-Line 36,D‰W,36,62
Green F-Line 54,0,54,E
Green F-Line 54,E‰W,54,62
Green F-Line 72,0,72,F
Green F-Line 72,F‰W,72,62
Green F-Line 90,0,90,G
Green F-Line 90,G‰W,90,62
Green F-Line 108,0,108,H
Green F-Line 108,H‰W,108,62
Green F-Line 126,0,126,S
Green F-Line 126,S‰20,126,62
PlotOn A,BÝ
Lbl Z
GetkeyŢZ
Isz A
Z=0ăV™.32ŢV
Zá0ăV‰.32ŢV
V‰BŢB
F-Line A,B,A™2,B
U‰1‰Abs VŢU
Bŕ0 Or Bâ62ăGoto P
If Frac (Aą18)=0
Then A=18ăBŕC Or BâC‰WăGoto P
A=36ăBŕD Or BâD‰WăGoto P
A=54ăBŕE Or BâE‰WăGoto P
A=72ăBŕF Or BâF‰WăGoto P
A=90ăBŕG Or BâG‰WăGoto P
A=108ăBŕH Or BâH‰WăGoto P
A=126ăB>SăB<S‰20ăGoto N
A=126ăGoto P
IfEnd
Goto Z
Lbl N
Orange Text 10,75,"SCORE"
Isz N
50‰UŢU
Orange Text 10,100,Int UÝ
Goto 1
Lbl P
Orange PlotOn A,B
Aâ75ă75ŢA
Int UŢU
Orange Text 25,A,"Boum «««"
Orange Text 35,A,"Score:"
Orange Text 35,A‰25,UÝ
1ŢL
U<Mat X[5,1] And U>Mat X[1,2]ăGoto 0
ClrList
MatŢList(Mat X,1ŢList 1
MatŢList(Mat X,2ŢList 2
If UâMat X[5,1]
Then UŢList 1[5
SortD(List 1
ListŢMat(List 1,List 2)ŢMat X
ClrText
For 1ŢX To 5
Mat X[X,1]=UăBreak
Next
If X=1
Then "Record battu «««««   Premiere place ««««"Ý
Else "Nouveau record ««"
" "
Locate 1,2,X
Locate 2,2,"e place «"Ý
IfEnd
Else UŢList 2[1
SortD(List 2
ListŢMat(List 1,List 2)ŢMat X
ClrText
For 1ŢX To 5
Mat X[6™X,2]=UăBreak
Next
If X=1
Then "Tu as reussi a battrele score le plus nul.Felicitations «««««"Ý
Else "Bravo «"
"Tu as fait le  e"
Locate 15,2,X
"score le plus nul ««"Ý
IfEnd
IfEnd
Lbl S
ClrText
"Meilleurs scores"
"1"
"2"
"3"
"4"
"5"
For 1ŢX To 5
Locate 4,1‰X,Mat X[X,1]
NextÝ
ClrText
"Scores les plus nuls"
"1"
"2"
"3"
"4"
"5"
For 1ŢX To 5
Locate 4,X‰1,Mat X[6™X,2]
NextÝ
Goto 0