C-PS/8 FOCAL, 1971
 1.05 E
 1.10 A 
KO  RO 
,!,
OB 

 1.20 F A=1,1,RO;T !;F B=1,1,KO;T !;D 3
 1.40 T !!;F A=1,1,RO,;T !,;S SR=0;S QR=0;D 5
 1.50 T !;F B=1,1,KO;S SS=0;S SV=0;D 8
 1.60 S SS=0;S SV=0;F A=1,1,KO*RO;D 9.4
 1.70 S C=OB*KO*RO;T !!, "T           ";D 7
 1.75 T %8.04
 1.80 S SR=0;F A=1,1,RO;S X=0;D 10
 1.90 S QR=0;F B=1,1,KO;S X=0;D 11
 2.05 S SV=0;S SS=0;S B=0;F A=1,1,RO*KO;D 12
 2.10 S SV=SV^2/OB*RO*KO
 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.50 T !!!!,"R",SR,RO-1,SR/(RO-1)
 2.55 T RO*KO*(OB-1)*SR/SV*(RO-1),!,"K",QR
 2.60 T KO-1,QR/(KO-1),RO*KO*(OB-1)*QR/SV*(KO-1),!
 2.70 T ,"I",,X,(KO-1)*(RO-1),X/(KO-1)*(RO-1)
 2.75 T X*RO*KO*(OB-1)/(KO-1)*(RO-1)*SV,!,"S",B
 2.80 T ,KO*RO-1,,B/(KO*RO-1),
 2.85 T B*RO*KO*(OB-1)/SV*(KO*RO-1),!,"W
 2.90 T SV,KO*RO*(OB-1),SV/KO*RO*(OB-1),!
 2.95 T "T",,SS,,KO*RO*OB-1,!!;Q
 3.05 S D=(A-1)*KO+B
 3.10 F C=1,1,OB;A X;S SV(D)=SV(D)+X;S SS(D)=SS(D)+X*X
 5.10 F B=1,1,KO;D 6
 5.20 S SV=SR;S SS=QR;S C=OB*KO;T !, "R",%2.00,A,"       ";D 7
 6.10 D 3.05;S SV=SV(D);S SS=SS(D);S C=OB
 6.20 S SR=SR+SV;S QR=QR+SS
 6.30 T %2.00,!,A,",",B,"   ";D 7
 7.10 T %8.04
 7.30 T SV/C,FSQT((SS-SV^2/C)/C*(C-1)),%3.00,C
 8.10 F A=1,1,RO;D 9.3
 8.20 S C=OB*RO;T !,"K",%2.00,B,"       ";D 7
 9.30 D 3.05;S SS=SS+SS(D);S SV=SV+SV(D)
 9.40 S SS=SS(A)+SS;S SV=SV(A)+SV
10.10 F B=1,1,KO;D 3.05;S X=X+SV(D)
10.20 S SR=SR+X*X/OB*KO
11.10 F A=1,1,RO;D 3.05;S X=X+SV(D)
11.20 S QR=QR+X*X/OB*RO
12.10 S SV=SV+SV(A);S SS=SS+SS(A)
12.20 S B=B+SV(A)^2/OB