C	LINREG
C	73-12-12
C	Y=A+B*X
	FUNCTION FUNCT(ARG,X,Y)
	DIMENSION ARG(1)
	A=ARG(1)
	B=ARG(2)
	FUNCT=Y-A-B*X
	RETURN
	END
|-"
n$f(y%tY74TjJiBnx@}[@w:)
cFfe1(T&&U-UP&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U