10 SELECT R
11 READ N,A1,B1
12 PRINT "INPUT X (TO END PROGRAM INPUT 99999)." 
13 INPUT X
14 IF X=99999 THEN 999 
15 LET S=SIN(X)
20 LET C=COS(X)
25 LET F=A1*S+B1*C 
30 LET U=S 
35 LET V=C 
40 FOR I=2 TO N
45     LET S=S*V+C*U 
50     LET C=C*V-S*U 
55     READ A,B
60     LET F=F+A*S+B*C 
65 NEXT I
70 PRINT "F(";X;")=";F 
75 RESTORE 
80 PRINT 
85 PRINT "INPUT X" 
90 GOTO 13 
100DATA 3,1,1,-2,2,3,4
999 END 

