C-FOCAL., 1968

01.10 ERASE
01.20 A "NO SS IN GROUP",N
01.30 T !!!,"ENTER DATA",!!
01.40 FOR J=1,1,N; ASK A(J),B(J);T !
01.50 FOR J=1,1,N;S A(J)=B(J)-A(J);S B(J)=FABS(A(J));S G(J)=J

02.10 S I=N-1;T !!!
02.15 T "WAIT PATIENTLY",!!!
02.20 DO 2.3
02.30 S CH=0;DO 2.4;IF (CH)4.1,4.1,2.2
02.40 FOR J=1,1,I;DO 3

03.10 S TS=B(J);S K2=G(J)
03.20 IF (TS-B(J+1))3.5,3.5,3.3
03.30 S CH=CH+1;S B(J)=B(J+1);S G(J)=G(J+1)
03.40 S B(J+1)=TS;S G(J+1)=K2
03.50 RETURN

04.10 S K2=N;S K=0;S IT=0;S IC=0;S TS=0
04.11 S K=K+1;IF (K-N)4.12,4.12,4.20
04.12 IF (B(K))4.13,4.13,4.20
04.13 S K2=K2-1;GOTO 4.11
04.20 S B(N+1)=999;FOR J=K,1,N;DO 5
04.30 GOTO 6.1

05.05 S Z=J;S TS=TS+1
05.10 IF (B(J)-B(J+1))5.3,5.2,5.3
05.20 S IT=IT+1;S IC=IC+TS;GOTO 5.8
05.30 IF (IT)5.7,5.7,5.4
05.40 S IC=IC+TS;S IT=IT+1;S CH=IC/IT
05.50 S K2=(J-IT)+1;FOR I=K2,1,Z;S RN(I)=CH
05.60 S IC=0;S IT=0;GOTO 5.8
05.70 S RN(J)=TS
05.80 RETURN

06.10 S IC=0;S IT=0;S J=0;S K=0;S Z=N
06.20 FOR I=1,1,N;DO 7
06.30 GOTO 8.1

07.10 S K2=G(I);IF (A(K2))7.2,7.4,7.3
07.20 S IC=IC+1;S J=J+RN(I);GOTO 7.5
07.30 S IT=IT+1; S K=K+RN(I);GOTO 7.5
07.40 S Z=Z-1
07.50 RETURN

08.10 S N=Z;S CH=(N*(N+1))/4
08.20 S TS=FSQT(((N*(N+1))*((2*N)+1))/24)
08.30 IF (IC-IT)8.4,8.4,8.5
08.40 S Z=(J-CH)/TS;GOTO 8.6
08.50 S Z=(K-CH)/TS
08.60 T "Z-SCORE";T %10.6,Z,!
08.70 T "N"; T %3,N,!!!
08.80 QUIT
*8|