All 5 5
Open data c:\0515\0515.wk1
data(format=wks,org=obs) / x y
set z = x * y
Linreg z /
# constant x
End

And then click here for the results