No replies to this topic

[Tritonio]

Program to sort the stat lists by the value of the X column.

 

FreqOff

n→N

FreqOn

For 1→I To N-1

For I+1→J To N
If List X[I]>List X[J]:Then
List X[I]→T
List X[J]→List X[I]
T→List X[J]
List Y[I]→T
List Y[J]→List Y[I]
T→List Y[J]
List Freq[I]→T
List Freq[J]→List Freq[I]
T→List Freq[J]
​IfEnd
​Next
Cls
Locate 1,1,Int(0.5+(I÷(N-1)×100))
Next
"DONE"