X()0JFH(C-PS/8 FOCAL, 1971?MB]DJS S=0;S Q=0?MB)DTF I=1,KB;S QC(I)=0?MB5D^F I=1,N;S QR(I)=0?MB?FET !!,"ANOVA",!?MCMFJF I=1,N;F J=1,KB;DO 10?MC[FTF I=1,N;F J=1,KB;DO 11?MC	F^I (Q) 1.1,1.1,3.4?MC=F(S S1=0;F I=1,KB;S S1=S1+QC(I)*QC(I)/N?MDSF2S S2=0;F I=1,N;S 
2=S2+QR(I)*QR(I)/KB?MD^F<S SQ=S*S/(KB*N)?MD;GFT !,%8.04,,,"SOURCE   SS       DF      MS         F?MEIGPS S1=S1-SQ;S S2=S2-SQ?MEXGZS SQ=Q-SQ; S Q=SQ-S1-S2?ME$HES DF=N*KB-(N+KB)+1?MIIHGT !,"COL ",%8.04,S1,%3.00,KB-1,%8.04,S1/(KB-1)?MJBH^T Q,%3.00,DF,%8.04,Q
DF,!,"TOT ",SQ,%3.00,N*KB-1?ME>HTT S2*DF/(Q*(N-1)),!,"ERR "?MF3TES X=X(100*J+I)?MGTJI (X)10.4,10.2,10.4?MGWTTT !!,"I CANNOT DEAL WITH MISSING VALUES"?MG0TYT %2.00,!,"COL ",J,"  ROW ",I," IS MISSING"?MG?T^S I=100;S J=100;S Q=0;R?MHKT(S S=S+X;S Q=Q+X*X?MHRV
D 10.05?MH]VTS QR(I)=QR(I)+X?MV^S QC(J)=QC(J)+X?MH?BJA !!,"ANALYSIS ",LI;I (LI-36)1.2,1.3,1.2?MI(BTL R SORT 2.15?MFYHJT S1*DF/(Q*(KB-1)),!,"ROWS",S2,%3.00,N-1,%8.04,S2/(N-1)?MBTB^S S=0;L R STAT6 2.4;WE CANNOT USE SAVED MEANS?MF)H(G?MWEL S STAT8?M?SAVED ME
NS?MT H(G?G?M?USE SAVED MEANS?MT E 3.65?M?MM?ANS?", I,"COL ",J?MKLVTT "  "OLD ",X(J*100+I),"NEW  ";A X(J*100+I)?MVXV^G?MNG,TT "      ***";G 22.4?MK7^TT !,"INPUT AND OUTPUT FILES MUST NOT BE SAME !?MB[^UG 15.1?MW[\<G NK;D 17;T !?MHVVTD 17?MGVF:T %8.8?MH?F3
 I=1,NH;S D=FOUT(X(I))?MCKFTO R I;O O SYS:FFSTAT.DA?MCQGFT "000";D 11.05;D 11.3;T !;O C;O  O TTY:,E;O I TTY:,E;D 11.92;G?MT L S CONVERT?M?G?MT E 1.2?M?;O C;O  O TTY:,E;O I TTY:,E;D 11.92;G?MT E 1.1?M?42?M?MD 11

Note: Lines longer than 256 characters were wrapped