M8()BTC U/W-FOCAL:LSTSQR15.10.78?MB7BJZ;A :FOUT(140) "WHICH FUNCTIONS
 ";C = EXPONENT OF HIGHEST POWER?MCSBTA N(I=I+1);O (FTRM()-	-),.3;I (FTRM()-141),.4;G .2?MC-B^A M;I (M-N(I)).7,.7;F N=N(I)+1,M;S N(I=I+1)=N?M?DLB(Z M;F N=1,I;S M=FMAX(N(N),M);C N= OF FNS+1,M=MAX ORDER?M?D1B2A "INPUT DEVICE
 ";I (F(9)),2.1;A "FILE NAME
 ";F I=1,4;S D(I)=C(I)?M?ETB<D 9;O I (D(1),D(2),D(3),D(4)):(C(1),C(2),C(3),C(4),C(5),C(6)) .5?MEWCF?ME]CPG 2.2?M?E?DJA "ENTER DATA POINTS - TERMINATE THE LAST ONE WITH A COLON"!!?M?FHDTI (M),.3;A X?MF*D^A Y;S Y(P=P+1)=Y;D 3;I (FTRM()-	:),4.1;I (FTRM()-154
.2,4.1,.2?MGCFJS SY=SY+Y*Y;F I=1,M+I;S SY(I)=SY(I)+Y,Y=Y*X?M?G\FTS X(P)=X,Y=1;F I=,2*M;S SX(I)=SX(I)+Y,Y=Y*X?M?G8HJO I;F M=1,N-M;S !=N(M)+1;D 5,6,7;J .2;A !!:-1;D 8?M?G;HT?MHDH^T !!;O I,E;R?MH!JJF I=1,!;S A(I,!+1)=SY(I);F J=1,!;S A(I,J)=SX(I+J-2)?M?H5LJF 
=1,!;D .3;F J=1,!;I (I-J).4,,.4?MH9LTR?M?ITL^S X=A(I,I),A(I,I)=1;F K=1,!+K;S A(I,K)=A(I,K)/X?M?I2L(S X=A(J,I);Z A(J,I);F K=1,!+K;S A(J,K)=A(J,K)-A(I,K)*X?MJRNJT !!%4.03"STD. DEV. =";S Y=SY;F I=1,!;S Y=Y-SY(I)*A(I,!+1)?MJ3NTT Y=FSQT(Y/(P-!))," FOR N= ":FOU
(	/+!)%3" AND"P," POINTS"!?M?KXN^F I=1,!;T !:5"C(":FOUT(	/+I)")="%,A(I,!+1),%.03" +/-"Y*FSQT(A(I,I))?M?K3PJF I=1,P;T %.04,X(I),Y(I),F(.2),%.03,Y-Y(I),!;N;R?MLGPTZ Y;F J=!,-1,1;S Y=Y*X(I)+A(J,!+1)?ML$RJF I=6,-1,1;S C(I)=-	?;C READ A DEVICE OR FILE NAME?M?M
RTI (255-C=FIN()),.3;I (141-C),.4;I (	:+C(I=I+1)=-C).2,,.2?MM\R^S C(I)=-	?,I=I-FSGN(I);I (C).2,,.2+FOUT(92)?MR(O (C(1)+C(2)+C(3)+C(4)+833),.1;S I;CHECK FOR 	TTY	?M?ML D LSTSQR;L S

Note: Lines longer than 256 characters were wrapped