C-PS/8 FOCAL, 1971
 1.01 T !!,"STATISTICS PROGRAM",!,"USE 0 FOR MISSING DATA AND 1E10 FOR ENDCODE
 1.05 I (-!)2.05;A !,"USE LPT: 
",LI;S !=0;I (LI-0YES)2.05,1.06,2.05
 1.06 S !=-1;G 2.05
 1.10 A "REALLY  ",LI;I (LI-0YES)2.1,1.12,2.1
 1.12 C
 1.14 E
 1.15 G 1.25
 1.20 D 2.32;G 1.25
 1.25 A !,"WHICH UNIT ",U;I (U)1.49,1.3;I (U-1)1.26,1.26;I (!-U)1.26,1.2,1.26
 1.26 I (U-")1.29,1.27,1.29
 1.27 A "CONTINUE IN FILE 
 ",LI;I (LI-0YES)1.29,1.28,1.29
 1.28 T %3.0 !,() "   COLUMNS IN INPUT FILE";I ()3.01,3.01;SET KO=;G 1.33
 1.29 D 4.1;G 1.28
 1.30 A !,"COL IN INPUT  ",KO,
 1.31 
 1.32 G 1.5
 1.33 A !, "NR OF COL TO BE USED  ",KB;I (KB-KO)1.34,1.50;T "NO";G 2.1
 1.34 T !,"STATE THESE   ";F I=1,KB;A X(I)
 1.35 T !;G 1.52
 1.49 S U=";
 1.50 S KB=KO;F I=1,KB;S X(I)=I
 1.52 I (U)1.53,1.53,1.55
 1.53 T !;I (1-N)1.6,1.6;T "DATA",!;G 1.6
 1.55 O R I
 1.60 A X(-100+1);I (X(-100+1)-1E9)1.65,1.65,1.82
 1.65 I (KO-2)1.7;F J=2,KO;A X(-100+J)
 1.70 S N=N+1;F I=1,KB;S X(I*100+N)=X(-100+X(I))
 1.80 O I TTY:,E;G 1.52
 1.82 I (U)1.87,1.87;A X;I (X)1.83,1.83;S =X;G 1.87
 1.83 T !,"END OF INPUT FILE";SET "=0
 1.87 O I TTY:,E;T %8.03
 1.90 A !,"NUMBER OF ERRORS  ",LI;I (LI)1.95,1.95
 1.92 F K=1,LI;A !,"ROW ",I,"COL ",J;T X(J*100+I);A  "  NEW ",X(J*100+I)
 1.95 A !,"LIST NUMBER  ",LI;I (LI)2.4,1.96;T !!;D (2.95+LI/100);G 1.97
 1.96 A "WRITE TO OUTPUT FILE 
",LI;I (LI-0YES)2.01,2.3,2.01
 1.97 S LI=80;I (-!)1.98,1.98;O O LPT:;S LI=130
 1.98 D 3.1;F J=1,N;S LF=0;F I=1,KB;S X=X(I*100+J);D 12
 1.99 T !,%3.00, N, " ROWS";I (-!)1.87,1.87;O C;O O TTY:,E;G 1.87
 2.01 I (-U)2.05;T !, "YOU HAVE NOT SAVED YOUR INPUT DATA",!
 2.02 SET U=10;G 1.96
 2.05 O I TTY:,E;O O TTY:
 2.10 A !!!,"ANALYSIS ",LI;I (LI)1.87,1.1;L R SORT 2.15
 2.30 A "WHICH UNIT  ",U; I (U-!)2.31,2.42,2.31
 2.31 I (U-1)2.35,2.35;I (U-")2.35,2.32,2.35
 2.32 T !,"INPUT AND OUTPUT FILES MUST NOT BE SAME !!",!
 2.33 G 2.3
 2.35 I (!)2.41,2.41;A "CHANGE OUTPUT 
",LI;I (LI-0YES)2.3,2.36,2.3
 2.36 S !=0;O R O;T "0" ,!;O C
 2.41 D 4.2; T !;S U=10
 2.42 O R O;T %4.00, KB,!;D 2.98
 2.43 S LI=0;D 1.98
 2.44 T !, "1.0E10",,!;S D=FOUT(140);I (1-!)2.45;F I=1,50;S D=FOUT(0)
 2.45 O O TTY:,E;G 2.1
 2.96 T %8.03;S TC=11
 2.97 T %8.00;S TC=10
 2.98 T %;S TC=14
 2.99 A "FIGURES ",I,"DECIMALS ",J,!,!;T %I+J/100;S TC=I+2
 3.01 S "=0;G 1.25
 3.10 S CR=FITR(LI/TC)-1
 4.10 S "=U;D (4.5+U/100);A X;SET =X;O I TTY:,E
 4.20 S !=U;D (4.4+U/100);O O TTY:
 4.41 O O PTP:
 4.42 O O STDA2
 4.43 O O STDA3
 4.44 O O STDA4
 4.45 O O STDA5
 4.46 O O STDA6.DA
 4.47 O O SYS:STDA7.DA
 4.51 O I PTR:
 4.52 O I STDA2
 4.53 O I STDA3
 4.54 O I STDA4
 4.55 O I STDA5
 4.56 O I STDA6.DA
 4.57 O I SYS:STDA7.DA
 5.50 O I TTY:,E
12.01 I (LF)12.03,12.02,12.05
12.02 I (J-1)12.05,12.05,12.04
12.03 T !,:TC+1;S LF=1;G 12.05
12.04 T !
12.05 I (LI)12.1,12.1;I  (X)12.1,12.2,12.1
12.10 T X;G 12.4
12.20 C
12.25 T :((LF+1)*TC-3),"****"
12.40 I (LF-CR)12.5,12.6,12.5
12.50 S LF=LF+1;R
12.60 S LF=-1