X()0NNKWC-PS/8 FOCAL, 1971?MC <TS X=1+X+X^2/2+X^3/6+X^4/24+X^5/120+X^6/720?MCG>JI (X^2-2.04*X+1)31.2;S X=FSQT(X);D 31;S X=2*X;R?M>TS X=(X-1)/(X+1);S X=2*(X+X^3/3+X^5/5+X^7/7)?MB,>AC LN;D 31?MBT<JI (X^2-0.01)30.2;S X=X/2;D 30;S X=X^2;R?MC(<AC EXP;DO 30?MDQ
<F J=1,N;D 21?MH<)FG?MF0B2T !,"NOT AVAILABLE ",;G?MGBJTS X=X*U?MGHLTS X=X/U?MGNNTS X=(X/U)*100?MGZRTD 31?MG&VTS X=1/X?MG,XTS X=X*S?MG2ZTS X=X+S?ME]\TS X=X^S?ME^JS I=3?MFX^TD 31;S X=X*S;D 30?MF*,(I (J-KB)22.6,22.5,22.6?MFD-FT !,"  "?MC?-ZR?ML$(JD (2.1+LI);
 I (I)21.5,1.5?MF^ JS I=0?MF$"JS I=0?MMF$JS I=0?MJ-,2T !;R?MKFJS I=1?MH3HJS I=1?MD$JJS I=1?MD+LJS I=1?MD2NJS I=1?MKIPJS I=1?MD<RJS I=2?MHTTJS I=2?MEAVJS I=3?MEHXJS I=3?MEOZJS I=3?MEV\JS I=3?MDH(2A ,"RESULT IN COL ",Q,?MG8((A "CONSTANT ",S;G 20.5?MG TTSET 
=FSGN(X)*FSQT(FABS(X))?MJ$,TT "       ***";G 22.4?MF<HTS X=X-U+1E-7?MIN*JI (X(KO*100+J))21.2,21.15,21.2?MIY*OS X(Q*100+J)=0;R?MI3*TI (2-I)21.3,21.3;I (X(S*100+J))21.3,21.15,21.3?MJR*^S X=X(KO*100+J);S U=X(S*100+J);D (2.2+LI);S X(Q*100+J)=X?MH%,JI (X(100*J
I)) 22.3,22.2,22.3?ME/,^T X(100*J+I)?ME=,<I (FITR(J/7)-J/7)22.9,22.7,22.9?MF6FTS X=X+U+1E-7?MGTPTS X=((X-U)/U)*100+1E-7?MLWBJA !!,"EDIT CODE ",LI;I (LI)1.15,1.2; I (LI-17)20.1,16.1,1.5?MLPBTA !,"HOW MANY COL DO YOU HAVE NOW 
 ",KB;?MDUBUL R SORT?MK8BOD 1.2;L R STAT 1.87?ML9(TA ,"COL A ",KO;I (I-2)20.3,20.5,20.4?MHF(^A ,"COL B ",S;G 20.5?MM
&JA !,"HOW MANY COL DO YOU HAVE NOW 
 ",KB,!;?MM.&TI (-!)19.3,19.3;O O LPT:?MM<&^F I=1,N;F J=1,KB;D 22;?MFH&(I (-!)1.1,1.1;O C;O O TTY:,E;G?MG?L S STAT21?M?MA X;I (1E9-X)6.9,6.9;T !,"FILE ERROR";G 21.12?MOZ*LO I TTY:,E;T "*** YOU MUST USE OPTION 2 &RESET LIMITS BEFORE ANYTHING ELSE?MNLNC?MQW
TS J=100;S I=100;I (U)4.2,4.2;S "=0;G 4.2?ME\L
T !;G 6.45?MH^^T !," SUPP0;R?MHOT(S S=S+X;S Q=Q+X*X?MHVVJD 10.05?MH!VTS QR(I)=QR(I)+X?MV^S QC(J)=QC(J)+X?MICBJA !!,"ANALYSIS ",LI;I (LI-36)1.2,1.3,1.2?MIMBTL R SORT 2.15?MBTB^L R STAT6 2.4?MF]HJT S1*DF/(Q*(KB-1)),!,"ROWS",S2,%3.00,N-1,%8.04,S2/(N-1)?MS1L 
 STAT8?M?)),!,"

Note: Lines longer than 256 characters were wrapped