# https://en.wikipedia.org/wiki/Algorithms_for_calculating_variance
1 REM running stats

10 LET upper=100
20 LET n=100
30 LET k=0
40 LET sum=0
50 LET sumsq=0

60 PRINT "upper?"
61 INPUT upper$
62 upper=VAL(upper$)
70 PRINT "n samples?"
71 INPUT n$
72 n=VAL(n$)

100 FOR i=1 TO n
110 LET v=RND*upper
120 k=k+1
130 sum=sum+v
140 sumsq=sumsq+(v*v)
150 NEXT i

200 LET mean = sum/k
210 LET var = (sumsq - (sum*sum)/k)/(k-1)

300 PRINT "count: "; k
310 PRINT "mean: "; mean
320 PRINT "var: ; var