10 CLS
20 PRINT "TRIG POLYNOMIAL" 
30 DEFDBL A-Z : DEFSNG I
40 PRINT 
50 DATA 3,1,2,-2,1,5,-3
60 PRINT "(ENTER ANGLE=99999 TO END PROGRAM)" 
70 PRINT "ANGLE";
80 INPUT R 
90 IF R=99999 THEN 210  
100 READ N 
110 FOR I=1 TO N
120 READ A,B 
130 Z=Z+A*SIN(I*R)+B*COS(I*R)
140 NEXT I 
150 REM - PRINT RESULTS 
160 PRINT "F(";R;")=";Z
170 RESTORE 
180 PRINT 
190 Z=0 
200 GOTO 70   
210 END