
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
Hewwo, my name is Achak Claw. I was formerly BioHazard.