[Basic Casio] Mario Kart

MARIO KART en Basic Casio par TOTOYO
planet-casio.com
http://youtu.be/fXHpRLuxe68
========================================================

1→D
"SCORE"→List 2[0
If Dim List 2>1
Then {0→List 2
IfEnd
Do
ClrText
"==== MARIO KART ====  "
" "
"DIFFICULTE <   >"
" "
" "
"Meilleur score"
Locate 16,7,List 2[1
Do
Locate 14,4,D
For 1→B To 150:Next
Do
Getkey→K
LpWhile Not K
K=38⇒D>1⇒Dsz D
K=27⇒D<3⇒Isz D
LpWhile K≠31 And K≠47
If K=31
Then ""→Str 1
For 1→C To D
Str 1+"^"→Str 1
Next
7D→Dim List 1
11→A
For 1→B To 7
" "
Next
0→W
Do
Locate A,1,"ä"
Locate 1,1,W
Getkey→K
If K
Then Locate A,1," "
K=27⇒A<21⇒Isz A
K=38⇒A>1⇒Dsz A
IfEnd
Int 21Ran#+1→Z
For 0→C To D-1
Z+C
7+.01(Z+C→List 1[1+C
Next
Locate Z,7,Str 1
SortA(List 1
List 1-1→List 1
" "
W+D→W
LpWhile 0=Sum (List 1=.01A
ClrText
"BOOM ·!·"
"VOTRE SCORE :"
Locate 15,2,W
If W>List 2[1
Then W→List 2[1
" "
"NOUVEAU HIGH SCORE"
IfEnd
Do
LpWhile Getkey≠31
ClrText
"RECOMMENCER ?"
"1.oui"
"2.non"
Do
Getkey
LpWhile Ans≠72 And Ans≠62
IfEnd
LpWhile Ans≠62 And K≠47
ClrText
ClrList 1
"MARIO KART par TOTOYOinspire par MIKE de  casioexpert.com"Ø
" "
"Retrouvezºmoi sur PLANETºCASIO et YOUTUBE"Ø
Stop
IfEnd