Directory of image this file is from
This file as a plain text file

()0L7BTC-PS/8 FOCAL, 1971?MB!BET !,"WILCOXON T",!!?MCCBGE?ML	BTF I=1,N;T %2.0,"I"I;T %4.2;A "  "X,"   "Y,!;S D(I)=Y-X?MB%BJA "N",N,!!;S M=N;T "       X     Y",!!?MC!BYA !"I
",I;?MC9BZA "     X
",X,"   Y
",Y;S D(I)=Y-X;G 1.24?MC>B]T !?MDJB^S X=0;F I=1,N;D 2?MDQB!I (X)1.3?MDWBS T=0?MD%B(F I=1,N-1; S K=I+1;D 3?MD/B2I (T)1.35,1.6?MEB<F I=1,N-1;S K=I+1;S Y=2;D 4?MENCFD 6;T %2.0, "N",N,!!!!?METCPG 1.07?ME^DEI (I-N)2.1,2.1?ME"DFR?ME/DJI (D<I>)2.5,2.3,2.5?ME6D^S
N=N-1?MFGD(F T=I,N;S K=T+1;S D(T)=D(K);?MFMD-S X=-1?MFQD2C?MF&FJI (FABS<D[I]>-FABS<D[K]>)3.2,3.2,3.3?MF,FTG 3.4?MGAF^S H=D(I);S D(I)=D(K);S D(K)=H;S T=-1?MGEF(C?MG[HJI (FABS<D[I]>-FABS<D[K]>)4.2,4.25,4.2?MG0HTS D(I)=I*FSGN(D<I>);S H=I;DO 5;G 4.7?MG6HYS J=
?MHFH^S J=J+1;I (N-J)4.5,4.4,4.4?MLKH(I (FABS<D[K]>-FABS<D[J]>)4.5,4.3,4.5?MH,H<S I=J-1;I (J-N)4.9,4.65,4.9?MH5IAS K=J;G 4.8?MIAIFI (K-N)4.9,4.8,4.8?MISIPS D(K)=K*FSGN(D<K>);S H=K;D 5?MIWIZC?MI$JJI (D<H>)5.2,5.4,5.3?MI3JTS SN=SN+FABS(D<H>);G 5.5?MI?J^S SP
SP+D<H>;G 5.5?MJLJ(T "PROGRAM ERROR";Q?MJPJ2C?MJ[LEI (N)5.4,6.5,6.1?MJ(LJI (SN-SP)6.2,6.4,6.3?MKFLTT "NEGS SMALLER:    T",SN,"     ","(SP   ",SP,"    ";R?MK$L^T "POSV SMALLER:    T",SP,"     ","(SN   ",SN,"    ";R?MK=L(T "NEG AND POSV EQUAL:  SUMS:",SP," 
   ";R?ML2T "ALL PAIRS EQUAL";Q?MH[H2F C=I,J-1;S D(C)=((I+J-1)/Y)*FSGN(D<C>);S H=C;D 5?MCYBXA "OK",A;I (A-0Y)1.25,1.29?MN(L S WLCX?M?M (A-0Y)1.25,1.29?MN(D<C>);S H=C;D 5?D 5?M?MALITY",!!?M!!?M?M?MM(IKI (U(183)),4.85?MM2IPS H=1;S =*17?MM=IUI (U(184)),4.95?
NHIZS 

Note: Lines longer than 256 characters were wrapped