C-FOCAL,1969

01.10 TYPE "MEAN & STANDARD DEVIATION CALCULATION"
01.20 ASK,!!, "GROUP SIZE",N
01.25 TYPE "GROUP DATA"
01.30 FOR I=1,N;ASK X(I)
01.40 SET SX=0
01.50 FOR I=1,N;SET SX=SX+X(I)
01.55 SET SQX=0
01.60 FOR I=1,N;SET SQX=SQX+X(I)^2
01.70 TYPE %4.02,!,"MEAN ",SX/N
01.80 TYPE %4.02,!,"S.D. ",FSQT<(SQX-(SX^2/N))/(N-1)>
01.90 ERASE
01.95 GOTO 1.2
*