()0O0NBC-PS/8 FOCAL, 1971?MMVBEE;S NT=0;O S 160,:?MB	BOT %6.02?MO!BTF I=1,RA;T !;F J=1,KO;D 5?MCABXI (EX)2.9,2.9?MCVB^I (FABS(RA-2)+FABS(KO-2))1.4,2.1,1.4?MC]BT %6.02?MC.B(S C2=0;F I=1,RA;F J=1,KO;D 4?MC;B-I (-EX)1.5;T !!!!;G?MDUB2T !,"CHI-2=",C2,"   DF="
%4.00,(RA-1)*(KO-1);?MD*B<S OK=1;S NK=0;F I=1,RA;F J=1,KO;D 8?MD=CFI (OK)1.9,1.9;I (NK-RA*KO/5)2.9?MN*CZT !"WARNING !!,CONDITIONS FOR TEST NOT FULFILLED";G 2.9?ME6DJS A=NT*(FABS(N(11)*N(22)-N(12)*N(21))-NT/2)^2?MFDOT !, "CHI-2="?MF"DTT A/((N(11)+N(12))*(N
21)+N(22))*(N(11)+N(21))*(N(12)+N(22)))?MF,DWT "   DF=    1?MF2DYS OK=1?MF?D^I (NT-40)2.4,2.9,2.9?MGRD(I (NT-20)2.6;F I=1,2;F J=1,2;D 6?MG^D2I (OK)2.6,2.6,2.9?MOND<T !, "YOU OUGHT TO USE FISHERS TEST IN THIS CASE !!";G 2.9?MHVHJD 7;I (EX)4.3,4.3;S X=(N(10
I+J)-EX)^2/EX?MH^HTS C2=C2+X?MH"H^R?MH;JJA X;S N(10*I+J)=X;S NT=NT+X;S RT(I)=RT(I)+X;?MIFJTS CT(J)=CT(J)+X?MIRLJD 7;I (EX-5)6.2;R?MIXLTS OK=0?MI%NJS EX=RT(I)*CT(J)/NT?MI0NTI (EX)7.3,7.3;R?MJKN^T !,"EXPECTED FR. IN COL",%2.00,I,"  ROW",J,"=0?MJWN(T "   DEL
TED  ";?MJ"N2S I=100;S J=100?MJ0PJD 7;I (EX-5)8.2,8.2;R?MKAPTI (EX-1)8.3,8.3;S NK=NK+1;R?MKGP^S OK=0?MKYTET %6.00,!!!,"OBSERVED FREQ.",?MKTJF I=1,RA;D 11?MK1TTT !!;F I=1,KO;T CT(I)?MK:T^T "    ",NT?MLKT(T !!,"EXPECTED FREQ.",,%6.02?ML%T2F I=1,RA;T !;F J=1
KO;D 7;I (EX)10.6,10.6;T EX?ML.T<T !!!,%6.02?MM8VJT !;F J=1,KO;T N(10*I+J)?MBTBDE?MM.BLA "LIST OF EXP VAL. 
",LI?MB7BWD 10?MMABJA !, "NUMBER OF ROWS ",RA,"COLUMNS  ",KO,!?MB BMT !, "DATA ",!?MVTT "  ", RT(I)?MN\BAA !!!,"ANALYSIS  ",LI;I (LI-37)1.02,1.04,1.02?MN BBE?ML=BCL R SORT 2.15?MOHC
F I=1,RA;F J=1,KO;D 7?MMQBVI (LI-0YES)1.95,1.23,1.95?ME\C G 1.24?MG>EZI (-!)1.01,1.01;O C;O O TTY:,E;G?MN8BUI (-!)1.22,1.22;O O LPT:?M?ML S STAT37?M?M.22;O O LPT:?M?M

Note: Lines longer than 256 characters were wrapped