5  IF  ERROR  THEN 280
10  PRINT " WHAT IS THE ANGLE IN DEGREES (A NEGATIVE ANGLE TO STOP)";
20  INPUT X
25  IF X<0 THEN 280
30  X=X*3.14159/180
40  C=1
50  S=X
60  FOR N=1 TO 6
70  C1=C2=2*N
80  S1=S2=2*N+1
90  D=(-1)^N
100  FOR Z=1 TO C1-1
110  C1=C1*Z
120  NEXT Z
130  FOR Z=1 TO S1-1
140  S1=S1*Z
150  NEXT Z
160  C3=D*(X^C2/C1)
170  S3=D*(X^S2/S1)
180  C=C+C3
190  S=S+S3
200  NEXT N
210  PRINT "SINE =";
220  PRINT  USING "1D.8D";S
230  PRINT 
240  PRINT "COSINE =";
250  PRINT  USING "1D.8D";C
260  PRINT LIN(2)
270  GOTO 10
280  CHAIN R,"*HELP"
290  SYSTEM X,"BYE"
300  END 
