C-PS/8 FOCAL, 1971
 1.01 E
 1.02 A "G"G;S J=1
 1.04 A "N"N(J);S P=1;S S=0
 1.05 A "S"X(P);S S=S+X(P)
 1.07 S P=P+1;I (N(J)-P)1.08,1.05,1.05
 1.08 D 2
 1.09 S J=J+1;I (G-J)1.10,1.04,1.04
 1.10 F J=1,G;S SZ=SZ+(N(J)*M(J))/SN
 1.11 T "ANALYSIS OF VARIANCE TABLE:",!;G 3.01
 2.01 S M(J)=S/N(J);S K=N(J)-1;S SX=0;S SN=SN+N(J)
 2.02 F P=1,N(J);S SX=SX+(X(P)-M(J))^2
 2.03 S V(J)=SX/K;S SD=FSQT(V(J))
 2.04 T "GROUP   DF          MEAN               ",
 2.05 T "VARIANCE         STAND. DEV.",!
 2.06 T %2 J,"  ",K,"  ";T %, M(J),"  ",V(J),"  ",SD,!
 3.01 F J=1,G;S SB=SB+N(J)*(M(J)-SZ)^2;S SW=SW+(N(J)-1)*V(J)
 3.02 S KB=G-1;S MB=SB/KB;S ST=SB+SW
 3.03 F J=1,G;S KW=KW+(N(J)-1)
 3.04 S KT=KB+KW;S MW=SW/KW
 3.05 T "   VARIATION          DF           SS                  MS",!
 3.06 T %4,"BETWEEN:          "KB;T %,"    "SB,"    "MB,!
 3.07 T %4," WITHIN:          "KW;T %,"    "SW,"    "MW,!
 3.08 T %4,"  TOTAL:          "KT;T %,"    "ST,!
 3.09 T "RATIO BETWEEN/WITHIN : ",MB/MW,!;Q