C-PS/8 FOCAL, 1971
 1.01 A !!!,"ANALYSIS  ",LI;I (LI-37)1.02,1.04,1.02
 1.02 E
 1.03 L R SORT 2.15
 1.04 E
 1.05 E;S NT=0;O S 160,:
 1.10 A !, "NUMBER OF ROWS ",RA,"COLUMNS  ",KO,!
 1.12 A "LIST OF EXP VAL. 
",LI
 1.13 T !, "DATA ",!
 1.15 T %6.02
 1.20 F I=1,RA;T !;F J=1,KO;D 5
 1.21 I (-!)1.22,1.22;O O LPT:
 1.22 I (LI-0YES)1.95,1.23,1.95
 1.23 D 10
 1.24 I (EX)2.9,2.9
 1.30 I (FABS(RA-2)+FABS(KO-2))1.4,2.1,1.4
 1.35 T %6.02
 1.40 S C2=0;F I=1,RA;F J=1,KO;D 4
 1.45 I (-EX)1.5;T !!!!;G
 1.50 T !,"CHI-2=",C2,"   DF=",%4.00,(RA-1)*(KO-1);
 1.60 S OK=1;S NK=0;F I=1,RA;F J=1,KO;D 8
 1.70 I (OK)1.9,1.9;I (NK-RA*KO/5)2.9
 1.90 T !"WARNING !!,CONDITIONS FOR TEST NOT FULFILLED";G 2.9
 1.95 F I=1,RA;F J=1,KO;D 7
 1.96 G 1.24
 2.10 S A=NT*(FABS(N(11)*N(22)-N(12)*N(21))-NT/2)^2
 2.15 T !, "CHI-2="
 2.20 T A/((N(11)+N(12))*(N(21)+N(22))*(N(11)+N(21))*(N(12)+N(22)))
 2.23 T "   DF=    1
 2.25 S OK=1
 2.30 I (NT-40)2.4,2.9,2.9
 2.40 I (NT-20)2.6;F I=1,2;F J=1,2;D 6
 2.50 I (OK)2.6,2.6,2.9
 2.60 T !, "YOU OUGHT TO USE FISHERS TEST IN THIS CASE !!";G 2.9
 2.90 I (-!)1.01,1.01;O C;O O TTY:,E;G
 4.10 D 7;I (EX)4.3,4.3;S X=(N(10*I+J)-EX)^2/EX
 4.20 S C2=C2+X
 4.30 R
 5.10 A X;S N(10*I+J)=X;S NT=NT+X;S RT(I)=RT(I)+X;
 5.20 S CT(J)=CT(J)+X
 6.10 D 7;I (EX-5)6.2;R
 6.20 S OK=0
 7.10 S EX=RT(I)*CT(J)/NT
 7.20 I (EX)7.3,7.3;R
 7.30 T !,"EXPECTED FR. IN COL",%2.00,I,"  ROW",J,"=0
 7.40 T "   DELETED  ";
 7.50 S I=100;S J=100
 8.10 D 7;I (EX-5)8.2,8.2;R
 8.20 I (EX-1)8.3,8.3;S NK=NK+1;R
 8.30 S OK=0
10.05 T %6.00,!!!,"OBSERVED FREQ.",
10.10 F I=1,RA;D 11
10.20 T !!;F I=1,KO;T CT(I)
10.30 T "    ",NT
10.40 T !!,"EXPECTED FREQ.",,%6.02
10.50 F I=1,RA;T !;F J=1,KO;D 7;I (EX)10.6,10.6;T EX
10.60 T !!!,%6.02
11.10 T !;F J=1,KO;T N(10*I+J)
11.20 T "  ", RT(I)