3  REM       POLFIT:    FITS LEAST-SQUARES POLYNOMIALS   
4  REM
5  REM       36023    REV B     3/72       
6  REM
7  REM ****  CONTRIBUTED PROGRAM **************************************
8000  READ N,V,G
8001  FOR I=2 TO N+1
8002  READ X,Y
8003  FOR J=1 TO V
8004  D[I,J]=X^(J-1)
8005  NEXT J
8006  D[I,V+1]=Y
8007  NEXT I
8008  GOTO 9014
