This saves high scores with initials.

L₁ has a dimension of `{0,0,0,0,0}`

**If user score is greater then the minimum of L₁**

**Initials are in Str0. Initials are "BHZ"**

**Score is 50**

```
If S>L₁(5:Then
S:For(X,1,3
Ans+inString("ABCDEFGHIJKLMNOPQRSTUVWXYZ",sub(Str0,X,1))/50^X
End:Ans->L₁(6
SortD(L₁
5->dim(L₁
End
```

**Displays scores**

```
Disp "High Scores:
For(Y,1,5
L₁(Y
Output(Y+1,1,int(Ans
For(X,0,2
Output(Y+1,X+5,sub("-ABCDEFGHIJKLMNOPQRSTUVWXYZ",1+int(50fPart(Ans50^X)),1
End:End
```

Output is `50.043408,0,0,0,0`

𝔹𝕚𝕠_ℍ𝕒𝕫𝕒𝕣𝕕𝟙𝟚𝟠𝟚