X()0LFJ:C-PS/8 FOCAL, 1971?MBZH2D 4.32?MB	H4S N1=0;F I=1,N; D 6?MB8H6S VT=0;S VP=-1;F I=1,N1;D 10?MCLH8D 14;S VT=-1; S VP=0;F I=1,N1;D 10?MC(H:S TX=T;D 14;S X=(N1^3-N1)/12-TX;S Y=(N1^3-N1)/12-T?MC>H<S T=0;F I=1,N1;S T=T+(X(I)-X(I-100))^2?MK7H>S R=(X+Y-T)/
2*FSQT(X*Y))?MD!LJS X=X(100*BA+I); S Y=X(100*BE+I)?MD.LOI (X-SA)6.3,6.9,6.3?MD;L^I (Y-SA)6.4,6.9,6.4?MECL(S N1=N1+1?MERL2S X(N1)=X;S X(N1-100)=Y?MEVMZR?ME\TES J=N1?ME0TJS X1=X(100*VT+I);S X2=X(100*VT+J)?ME?TTI (X1-X2)10.4,10.3,10.3?MFST^S X(100*VT+I)=X2;S
X(100*VT+J)=X1?MF3TS X(100*VP+I)=X(100*VP+I);S X(100*VP+J)=X(100*VP+J);D 10.6?MGET(S J=J-1; I (J-I)10.9,10.9,10.1?MG&T<S X1=X(100*VP+I);S X(100*VP+I)=X(100*VP+J);S X(100*VP+J)=X1?MG*UZR?MG8\FS N0=N0;S I=N0-1;S T=0?MHJ\JS I=I+1;I (I-N1)14.15,14.15;R?MH)\OS
X(VT*100+I+1)=X(VT*100+I+1);S X(VT*100+I)=X(VT*100+I)?MKS\PI (X(VT*100+I)-X(VT*100+I+1)) 14.17,14.2?MIM\TS NT=0;S J=I; S M=0?MI!\WS J=J+1;S X(VT*100+J)=X(VT*100+J);?MI9\YI (X(VT*100+J)-X(VT*100+I))14.3,14.23,14.3?MK$\^S NT=J-I;F K=I-N0+1,J-N0;;S M=M+K?M\(
 I=J-1;S T=T+(NT^3-NT)/12;G 14.1?MBTH A "VARIABLES  ",BA,BE,!?MJ!DTL R SORT 2.15?MJ0DJA !!!!,"ANALYSIS ",LI;IF (LI-16)2.2,4.50,2.2?MI\QS X(I+VT*100)=I-N0+1;G 14.1?MJM\F K=I,J-1;S X(VT*100+K)=M/(J-I)?MDNIT %8.03, !, 
R  
; G 2.1?M-1L S STAT16?M?M G 2.1?M-100)?M?4.50,2.2?ME 1?M??M16?M?M  ",BA,BE,!?ML3H2S D=1;S =*7?ML>H7I (U(181)),4.65?MMHH<S E=1;S =*11?MMSIAI (U(182)),4.75?MM]IFS G=1;S =*13?MM(IKI (U(183)),4.85?MM2IPS H=1;S =*17?MM=IUI (U(184)),4.95?MNHIZS 

Note: Lines longer than 256 characters were wrapped