DIMENSION X(13),Y(52)
	BYTE IS
	N=13
	NV=N*4
	FACT=ATAN(1.)/45.
	INC=30
	TYPE 100
100	FORMAT(' THESE ARE THE CALCULATED TABULAR VALUES:'//
	1' ITEM  ARG DEG    ARG RADIANS      VALUE')
	DO 10 I=1,N
	IARG=(I-1)*INC
	RARG=IARG*FACT
	X(I)=RARG
	Y(I)=SIN(RARG)
10	TYPE 101,I,IARG,RARG,Y(I)
101	FORMAT(1H ,I3,I9,F14.6,F16.6)
	CALL FIRST(X,Y,N,NV)
	TYPE 99
99	FORMAT(1H )
	TYPE 97
97	FORMAT(' SELECT APERTURE OR LIMITER OPERATION; ENTER A OR L ',$)
	READ(5,96)IS
96	FORMAT(A1)
	IFL=0
	IF(IS.EQ.'L')IFL=1
	TYPE 102
102	FORMAT(' NOW TO TEST THE ABILITY OF SPLINE TO INTERPOLATE ',
	1'VALUES BETWEEN'/' 0 AND 360 DEGREES ENTER AN ARGUMENT IN ',
	2'DEGREES. ENTER A NEGATIVE'/' VALUE LESS THAN -360 TO STOP PROGRAM.'
	3/' FORMAT IS:'/9X,'ARGUMENT',7X,'TRUE VALUE',6X,'SPLINE VALUE',
	4 6X,'ERROR',5X,'IER'/)
11	TYPE 103
103	FORMAT(' ENTER ARG '$)
	ACCEPT *,ARG
	RARG=ARG*FACT
	TVAL=SIN(RARG)
	SVAL=SPLINE(RARG,X,Y,N,NV,IFL,IER)
	ERROR=TVAL-SVAL
	TYPE 104,ARG,TVAL,SVAL,ERROR,IER
104	FORMAT(1H ,4F16.6,I6/)
	IF(ARG.LT.-360.)CALL EXIT
	GOTO 11	
	END