| Line | Command or Statement | Comments |
| 1. | ClrHome | Clear Screen |
| 2. | Disp "USE COMMAS BTWN" | Instructions |
| | ,"NUMBERS IN LIST" | | |
| | ,"ENTER NUMBERS" | | |
| | ,"IN LIST L1=" | End Instructions |
| 3. | Pause | |
| 4. | ClrHome | |
| 5. | DelVar L1 DelVar L2DelVar L3 DelVar L6 | |
| 6. | 1->θ | |
| 7. | Input "L1=",Str0 | Input List 1 |
| 8. | While inString(Str0,", | |
| 9. | inString(Str0,",->A | |
| 10. | expr(sub(Str0,1,A-1>L1(θ | |
| 11. | θ+1->θ | |
| 12. | sub(Str0,A+1,length(Str0)-A->Str0 | |
| 13. | End | |
| 14. | expr(Str0->L1(θ | |
| 15. | dim(L1->A | |
| 16. | A->dim(L2 | |
| 17. | For(X,1,A,1 | For( variable,begin,end[increment]) |
| 18. | For(Y,1,A,1 | |
| 19. | If (L1(X)=L1(Y | |
| 20. | 1+L2(X->L2(X | L2 is "high score list" |
| 21. | End:End | |
| 22. | L2(1->θ | |
| 23. | For(Z,1,A,1 | |
| 24. | If L2(Z)>θ | |
| 25. | L2(Z->θ | θ contains highest score found in L2 |
| 26. | End | |
| 27. | 1->O | |
| 28. | For(P,1,dim(L2),1 | |
| 29. | If (L2(P)=θ:Then | |
| 30. | L1(P->L3(O | L1(P) = mode (number) |
| 31. | O+1->O | |
| 32. | End:End | |
| 33. | SortA(L3 | SortA (L3) Sorts elements in ascending order |
| 34. | 0->M | |
| 35. | For(Q,1,dim(L3),θ | checks for multiple modes |
| 36. | M+1->M | |
| 37. | M->dim(L6 | |
| 38. | L3(Q->L6(M | mode into L6 |
| 39. | End | Display |
| 40. | median(L1)->A | median(list Returns the median of list |
| 41. | Disp "MEDIAN=".A | |
| 42. | round(mean(L1),3->B | mean(list Returns the mean of list |
| 43. | Disp "MEAN=",B | |
| 44. | If dim(L1)/=dim(L6) and dim(L1)/=dim(L3 | |
| 45. | Disp "MODE=",L6 | |
| 46. | Pause | |
| 47. | variance(L1)->C | |
| 48. | Disp "VARIANCE=",C | |
| 49. | Pause | |
| 50. | DelVar L1DelVar L2DelVar L3DelVar L6 | |