I wrote program that calculates sample standard deviation, mean, variance, population standard deviation, and population variance. Here is the code:

```
:ClrHome
:ClrList L1
:Lbl SM
:Menu(" FIND? ","SAMPLE SD",SP,"MEAN",ME,"VARIANCE",VA,"POPULATION SD",PS,"POPULATION VARIANCE",PV,"QUIT",QU
:Lbl SP
:Disp "USE BRACES FOR L1"
:Prompt L1
:Disp "STND. DEV. OF L1",stdDev(L1)
:Pause
:Goto SM
:Lbl ME
:Disp "USE BRACES FOR L1"
:Prompt L1
:Disp "MEAN OF L1",mean(L1)
:Pause
:Goto SM
:Lbl VA
:Disp "USE BRACES FOR L1"
:Prompt L1
:Disp "VARIANCE OF L1",variance(L1
:Pause
:Goto SM
:Lbl PS
:Disp "USE BRACES FOR L1"
:Prompt L1
:Disp "POP STND. DEV. OF L1",stdDev(augment(L1,{mean(L1
:Pause
:Goto SM
:Lbl PV
:Disp "USE BRACES FOR L1"
:Prompt L1
:(stdDev(augment(L1,{mean(L1)})))^^2^^→A
:Disp "POPULATION VARIANCE",A
:Pause
:Goto SM
:Lbl QU
:Stop
```