()0IH]C-PS/8 FOCAL, 1971?MB-HZS X=(X(FITR((N1+1)/2))+X(FITR((N1+2)/2)))/2?MIJH^C?MCEH"S VP=-1;S N1=0;S VT=0;F I=1,N;D 11?MCVH$S B=BA;S BA=BE;F I=1,N;D 11?MC H&F I=1,N1;D 10?MC0H(D 4.26;S ME=X;S VT=B;D 13?MC<H*T !,%4.00,A1,A2,J?MDLH,S VT=BE;D 13;D 4.42;G 2
1?MDRTES J=N1?MD&TJS X1=X(100*VT+I);S X2=X(100*VT+J)?MH6TTI (X1-X2)10.4,10.3,10.3?MEUTS X(100*VP+I)=X(100*VP+I);S X(100*VP+J)=X(100*VP+J);D 10.6?ME	T(S J=J-1; I (J-I)10.9,10.9,10.1?MFHT<S X1=X(100*VP+I);S X(100*VP+I)=X(100*VP+J);S X(100*VP+J)=X1?MFLUZR?MF
VJI (X(BA*100+I)-SA)11.2,11.9,11.2?MF4VTS N1=N1+1;S X(100*VT+N1)=X(BA*100+I)?MF8WZR?MGHZJS A1=0;S A2=0;S I=0;S J=0?MGYZOS I=I+1; I (I-N)13.2,13.2;R?MG.ZTI (X(VT*100+I)-SA) 13.25,13.15,13.25?MHEZYS J=J+1;I (X(VT*100+I)-ME)13.3,13.4,13.4?MHQZ^S A1=A1+1;G 13
15?MZ(S A2=A2+1;G 13.15?MIYDJA !!!!,"ANALYSIS ",LI;IF (LI-12)2.2,4.30,2.2?MD5T^S X(100*VT+I)=X2;S X(100*VT+J)=X1?MB1H A "VARIABLES  ",BA,BE,!?MBTDTL R SORT 2.15?M!?L S STAT12.EX?M?.15?E,!?MME ES  ",BA,BE,!?MME 1?M?AT

Note: Lines longer than 256 characters were wrapped