C-FOCAL., 1968

01(01T %.03;E
01.02A "R"R;A "C"C;S DF=(R-1)*(C-1);S L=R*C
01.03S I=1;S J=1;S =1;S P=0;S RS=0;S CS=0;S T=09S X2=0
01.04A "S"N();S R=RP+N(K);S CS(J)=CS(J)+(K);S K=K+1
01.05S J=J+1
01.06I (C-)1.07,1.04,1.04
0.07 S(I P;SJ=1;S I=I 18S R=0
01.08I (R-I)1.09,1.04,1.04
01.09	 (L-(K-1))1.10,2.01,2.01
01.10T !!; "E1"0T !!; 1.01

02.01F J=1,1,R;S T=T+RS(J)
02.02S J=12S I=1;S K=1
02.03S E(=(RSI)/T) CS(J);S J=J+1;S KK+1
02.04I (C-J)2.05,2.03,2 03
02.05S J=1;S I=I 1
02.06I (R(I)2.07,2.03,2.03
02.07I (L-(K-1))2.08,3.01,3.01
02.08T !!;T "E2";  !

00.01F K=1,1,L;S X2=X2+((N(K)-E(K))^2)/E()

04.01T !!;S K=1;S Y=1;S N=1;S=1;D 8.0;T!
04.02F =1,1,;D 6.
 4(03T "'";T !;F J=1 1,C;D 5.0
04.04T "'";T    ";T "RS"RS(N);S N=N+1;T !
04.05F J=1,1,C; 7.0
04.06T "'";T !;D 8.0;T !;S I=I0;I (-I)4.7,4.02,4.02
04.07T  ;F J=,1,C; 9.0
04.08T %;T "  T"; !!T "X2 X2"   ;T %.03;T "F"DF;T !!
04.09A "M?"Z;	 (Z-2)4.10,1.01,1.01
04.10Q

05.01T "' ;T "            "

06.01T "'";T " ";T "O"N(K);T " ";S K=K+1

07.01T " "" ";T "E"E();T " ";S Y=Y+1

08.01F M=1,1,(C*13+1);T "-"

09.01T " ";T "CS"S(J); " "
*8