[Basic Casio] Highscore / Top 3 avec pseudonymes

# Youtube : https://youtu.be/nASEtEMRX-Y

For 0->B To 300:Next
"SCORE"->List 1[0
If Dim List 1≠3
Then
{.1,.2,.3->List 1
{0,0,0->List 2
IfEnd
""->Str 1
0->L
Locate 7,4,"[        ]"
Do
Do
Do
Getkey->G
LpWhile Not G
If G≠31
Then If G=44
Then If L
Then
L-1->L
StrLeft(Str 1,L)->Str 1
Locate 8+L,4," "
For 0->B To 150:Next
IfEnd
0->Z
Else .1G->G
6-10Frac G->R
8-Int G+5R+R(R<3->Z
IfEnd
IfEnd
LpWhile (Z<1 Or Z>26) And G≠31
If G≠31
Then
Prog "INT2TXT"
Str 1+Str 6->Str 1
Locate 8,4,Str 1
Isz L
For 0->B To 150:Next
IfEnd
LpWhile L<8 And G≠31
RanInt#(1,1000->B
If B≥List 1[3
Then Str 1->Str 6
Prog "TXT2INT"
10Frac List 1[3->C
B+.1C->List 1[3
Z->List 2[C
SortD(List 1
IfEnd
ClrText
For 1->L To 3
List 1[L
Locate 1,L,Int Ans
List 2[10Frac Ans->Z
Prog "INT2TXT"
Locate 6,L,Str 6
Next