10  DIM X[17],Y[17],Z[17]
20  DIM Z$[25]
25  REM T-CPL, HP 36654A, 6/74
30  READ Z$
40  READ N
50  MAT X=ZER[N]
60  MAT  READ X
70  MAT Y=ZER[N]
80  MAT  READ Y
90  MAT Z=ZER[N]
100  MAT  READ Z
110  PRINT "CUBIC SPLINE PARAMETERS FOR ";Z$;'13'10
120  PRINT "X","Y","Z"
130  PRINT 
140  FOR S=1 TO N
150  PRINT X[S],Y[S],Z[S]
160  NEXT S
170  END 
