C-PS/8 FOCAL, 1971
 1.05 E
 1.10 A 
KOLUMNS ROWS 
,!,
OBSERVATIONS 

 1.20 F A=1,1,RO;T !;D 10
 1.30 F A=1,1,KO;S QR=QR+SK(A)^2/OB*RO
 1.40 S SV=SV^2/OB*KO*RO;S B=SB
 2.20 S SR=SR-SV;S QR=QR-SV;S SS=SS-SV
 2.25 S B=B-SV;S SV=SS-B;S X=B-SR-QR
 2.30 T !!
 2.40 T !, "SOURCE      SS          DF       MS        F
 2.50 T !, %8.04,"ROWS       ",SR,%2.00,RO-1,%8.04,SR/(RO-1)
 2.55 T RO*KO*(OB-1)*SR/SV*(RO-1),!,"KOLUMNS    ",QR,%2.00
 2.60 T KO-1,%8.04,QR/(KO-1),RO*KO*(OB-1)*QR/SV*(KO-1),!
 2.70 T "INTERACTION",X,%2.00,(KO-1)*(RO-1),%8.04,X/(KO-1)*(RO-1)
 2.75 T X*RO*KO*(OB-1)/(KO-1)*(RO-1)*SV,!,"SUBTOTAL   ",B
 2.80 T %2.00,KO*RO-1,%8.04,B/(KO*RO-1),
 2.85 T B*RO*KO*(OB-1)/SV*(KO*RO-1),!,"WHITHIN    
 2.90 T SV,%2.00,KO*RO*(OB-1),%8.04,SV/KO*RO*(OB-1),!
 2.95 T "TOTAL      ",SS,%2.00,KO*RO*OB-1,!!;Q
 3.05 S SX=0;S XX=0
 3.10 F C=1,1,OB;A X;S SX=SX+X;S XX=XX+X*X
 3.20 S RR=RR+SX;S K(B)=SK(B)+SX
 3.30 S SV=SV+SX;S SS=SS+XX
 3.40 S SB=SB+SX^2/OB
10.10 S RR=0;F B=1,1,KO;T !;D 3
10.20 S SR=SR+RR^2/OB*KO