| 1. | ClrHome | comment: clears screen |
| 2. | Output(1,1,"SELECT LIST OR | |
| 3. | Output(2,1,"DATA TO BEGIN - | |
| 4. | Output(3,1,"USE COMMAS BTWN | |
| 5. | Output(4,1,"NUMBERS IN LIST | |
| 6. | Output(5,1,"ENTER n, Σx, Σx² | |
| 7. | Output(6,1,"FOR DATA | |
| 8. | Pause | |
| 9. | ClrHome | comment: clears screen |
| 10. | Float | comment: see note below |
| 11. | Menu("STD DEV","LIST",L,"DATA",D | |
| 12. | Lbl D | comment: input data items |
| 13. | Input "n =",N | |
| 14. | Input "Σx =",B | |
| 15. | Input "Σx² =",Y | |
| 16. | Goto X | |
| 17. | Lbl L | comment: input list items |
| 18. | Disp "DATA LIST | |
| 19. | Input "L1=",Str1 | comment: see note below |
| 20. | expr("{"+Str1->L1 | |
| 21. | ClrHome | comment: clears screen |
| 22. | dim(L1->N | comment: see note below |
| 23. | L1L1->L2 | |
| 24. | sum(L2->Y | |
| 25. | sum(L1->B | comment: see note below |
| 26. | mean(L1->C | comment: see note below |
| 27. | variance(L1->S | comment: see note below |
| 28. | stdDev(L1->Z | comment: see note below |
| 29. | Lbl X | comment: display routine |
| 30. | ClrHome | comment: clears screen |
| 31. | Disp "n = | |
| 32. | Output(1,4,N | comment: displays sample size |
| 33. | Disp "Σx = | |
| 34. | Output(2,4,B | comment: displays sum X (Σx) |
| 35. | Disp "Σx ² = | |
| 36. | Output(2,4,Y | comment: displays sum X ² (Σx ²) |
| 37. | Fix 4 | comment: see note below |
| 38. | Disp "x = | |
| 39. | Output(3,4,C | comment: displays mean (x) |
| 40. | Disp "S² = | |
| 41. | Output(4,4,S | comment: displays Variance |
| 42. | Disp "S = | |
| 43. | Output(5,4,Z | comment: displays Std Dev |
| 44. | Pause | |
| 45. | ClrHome | comment: clears screen |
| 46. | Stop | |