Directory of image this file is from
This file as a plain text file

()0H8BTC-PS/8 FOCAL, 1971?MB,BAA !!"-1)EXPONENTIAL  0)POWER  1)LINEAR"!,A?MB<BBA !"HOW MANY X VALUES
"!,P?MCNBCT !"X VALUES
"!;F I=1,P;A X(I)?MC BDT !"Y VALUES
"!;F I=1,P;A Y(I)?MC3BEI (P/2-FITR(P/2))1.06,1.07,1.06?MDBBFS M=(P-1)/2;S N=P;G 1.08?MDLBGS M=P/2;S N=P?MDYBHI (A)1.09,1.11,1.13?MD7BJD 3; D 9; T !"Y ",FEXP(AN(2)),"*(E^",AN(1),"X ";G 1.01?MEPBKF I=1,P;S X(I)=FLOG(X(I)); S Y(I)=FLOG(Y(I))?ME+BLD 3 ;D 9;T 
"Y ",FEXP(AN(2)),"X^ ",AN(1);G 1.01?MFCBMD 3;D 9;T !"Y  ",AN(1),"X+ ",AN(2);G 1.01?MF\FAS X1(1)=0;S X1(3)=0;S X1(2)=M;F I=1,M;D 3.10?MF"FBG 3.45?MF8FJS X1(1)=X1(1)+X(I);S X1(3)=X1(3)+Y(I)?MGSF-S Y1(1)=0;S Y1(3)=0;S Y1(2)=P-M;F I=M+1,N;D 3.56?MGYF0RETURN?M
/F8S Y1(1)=Y1(1)+X(I);S Y1(3)=Y1(3)+Y(I)?MHORAD 14;S AN(1)=U;S AN(2)=V;R?MH$\CW=X1(1)*Y1(2)-X1(2)*Y1(1)?MG?\BS U=X1(3)*Y1(2)-X1(2)*Y1(3);S U=U/W?M\EV=X1(1)*Y1(3)-X1(3)*Y1(1);S V=V/W?M/WL S S:FIT?M?T !;I (S(1)-217)3.2,3.15,3.2?MI FOD 4.3;D 4.4;D 4.5;D 4.6;
 4.95?MI-FTI (S(1)-200)3.22,5.1?MI:FVI (S(1)-141)3.3,3.15?MJIF^S V=V+1;

Note: Lines longer than 256 characters were wrapped