()0X*BTC-PS/8 FOCAL, 1971?MW+BAT !!,"STATISTICS PROGRAM",!,"USE 0 FOR MISSING DATA AND 1E10 FOR ENDCODE?MCEBFS !=-1;G 2.05?MC\BJA "REALLY  ",LI;I (LI-0YES)2.1,1.12,2.1?MC BLC?MC$BNE?MC*BOG 1.25?MC:BTD 2.32;G 1.25?MGSB1S U=";?MD!BYA !,"WHICH UNIT ",U;I (U)
.49,1.3;I (U-1)1.26,1.26;I (!-U)1.26,1.2,1.26?MD/BZI (U-")1.29,1.27,1.29?MELB[A "CONTINUE IN FILE 
 ",LI;I (LI-0YES)1.29,1.28,1.29?ME2B\T %3.0 !,() "   COLUMNS IN INPUT FILE";I ()3.01,3.01;SET KO=;G 1.33?ME;B]D 4.1;G 1.28?MFJB^A !,"COL IN INPUT  ",KO,?MFMB
?MFSB G 1.5?MF6B!A !, "NR OF COL TO BE USED  ",KB;I (KB-KO)1.34,1.50;T "NO";G 2.1?MGKB"T !,"STATE THESE   ";F I=1,KB;A X(I)?MC4BT !;G 1.52?MGB2S KB=KO;F I=1,KB;S X(I)=I?MG0B4I (U)1.53,1.53,1.55?MHEB5T !;I (1-N)1.6,1.6;T "DATA",!;G 1.6?MHKB7O R I?MH$B<A X(
100+1);I (X(-100+1)-1E9)1.65,1.65,1.82?MH7CAI (KO-2)1.7;F J=2,KO;A X(-100+J)?MIOCFS N=N+1;F I=1,KB;S X(I*100+N)=X(-100+X(I))?MI[CPO I TTY:,E;G 1.52?MI5CRI (U)1.87,1.87;A X;I (X)1.83,1.83;S =X;G 1.87?MJHCST !,"END OF INPUT FILE";SET "=0?MJTCWO I TTY:,E;T %
.03?MJ-CZA !,"NUMBER OF ERRORS  ",LI;I (LI)1.95,1.95?MKQC\F K=1,LI;A !,"ROW ",I,"COL ",J;T X(J*100+I);A  "  NEW ",X(J*100+I)?MK5C
A !,"LIST NUMBER  ",LI;I (LI)2.4,1.96;T !!;D (2.95+LI/100);G 1.97?MLSC A "WRITE TO OUTPUT FILE 
",LI;I (LI-0YES)2.01,2.3,2.01?ML+C!S LI=80;I (-!)1.98,1.98;O O LPT:;S LI=130?MMGC"D 3.1;F J=1,N;S LF=0;F I=1,KB;S X=X(I*100+J);D 12?MM(CT !,%3.00, N, " ROWS";I (-!)1.87,1.87;O C;O O TTY:,E;G 1.87?MNFDAI (-U)2.05;T !, "YOU HAVE NOT SAVED YOUR INPUT DATA",!
MNQDBSET U=10;G 1.96?MN^DEO I TTY:,E;O O TTY:?MN:DJA !!!,"ANALYSIS ",LI;I (LI)1.87,1.1;L R SORT 2.15?MORD^A "WHICH UNIT  ",U; I (U-!)2.31,2.42,2.31?MO(D
I (U-1)2.35,2.35;I (U-")2.35,2.32,2.35?MPDD T !,"INPUT AND OUTPUT FILES MUST NOT BE SAME !!",!?MPJD!G 2.3?MP,DI (!)2.41,2.41;A "CHANGE OUTPUT 
",LI;I (LI-0YES)2.3,2.36,2.3?MP;D$S !=0;O R O;T "0" ,!;O C?MQGD)D 4.2; T !;S U=10?MQWD*O R O;T %4.00, KB,!;D 2.98?MQ!D+S LI=0;D 1.98?MRDD,T !, "1.0E10",,!;S D=FOUT(140);I (1-!)2.45;F I=1,50;S D=FOUT(0)?MROD-O O TTY:,E;G 2.1?MRZE T %8.03;S TC=11?MR%E!T %8.
0;S TC=10?MXME"T %;S TC=14?MR7FAS "=0;G 1.25?MSCFJS CR=FITR(LI/TC)-1?MS[HJS "=U;D (4.5+U/100);A X;SET =X;O I TTY:,E?MS,HTS !=U;D (4.4+U/100);O O TTY:?MS3H)O O PTP:?MS;H*O O STDA2?MTCH+O O STDA3?MTKH,O O STDA4?MTSH-O O STDA5?MT\H.O O STDA6.DA?MT	H/O O SYS:
TDA7.DA?MT.H3O I PTR:?MT6H4O I STDA2?MT>H5O I STDA3?MUFH6O I STDA4?MUNH7O I STDA5?MUWH8O I STDA6.DA?MU"H9O I SYS:STDA7.DA?MU*J2O I TTY:,E?MU9XAI (LF)12.03,12.02,12.05?MVHXBI (J-1)12.05,12.05,12.04?MVWXCT !,:TC+1;S LF=1;G 12.05?MV\XDT !?MV1XEI (LI)12.1,12.
;I  (X)12.1,12.2,12.1?MV9XJT X;G 12.4?MV=XTC?MWLXYT :((LF+1)*TC-3),"****"?MW[X(I (LF-CR)12.5,12.6,12.5?MW$X2S LF=LF+1;R?MX<S LF=-1?MB;BEI (-!)2.05;A !,"USE LPT: 
",LI;S !=0;I (LI-0YES)2.05,1.06,2.05?MR.EA "FIGURES ",I,"DECIMALS ",J,!,!;T %I+J/100;S TC=I+2?MS L S STAT?M?M,"DECIMALS ",J,!,!;T %I+J/100;S TC=I+2?MS C(P)=0;S C(J)=0;S J=J+1;T !!;S P=J+1;I (J-KB)23.4?MY&4JT !!;E?MY*4TG?MY76JF IS=1,5-NF+R;T " "?MZD6TF IS=
-NF+R,5;

Note: Lines longer than 256 characters were wrapped