5 SCREEN 1
10 DEFDBL A-Y
20 PRINT "SINE(X) INPUT X=1"
22 PRINT "Taylor Sine(X)=-1^N*(X^2N+1)/2N+1!"
23 PRINT "Best if absolute X between 0 and 6.28"
25 X = 1
30 A = 1
40 M = X
41 PLAY "mbo4co3a#o4co3a#o4co3a#"
42 PLAY "mbo4co3a#o4co3ao4co3a"
43 PLAY "mbo4co3ao4co3ao4c"
44 PLAY "mbo3a#o4cdco3a#o4cdc"
45 PLAY "mbo3ao4cfco3ao4cl2fl4"
50 FOR Z = 1 TO 2000
51 A = 1
55 FOR ZZ = 1 TO ((2 * Z) + 1)
60 A = A * ZZ
62 IF A > 8.5D+36 THEN GOTO 110
63 NEXT ZZ
80 M = M + (((-1) ^ Z) * (X ^ ((2 * Z) + 1))) / (A)
100 NEXT Z
110 PRINT "CALCULATED SINE(X)=", M
130 PRINT "SIN(X)=", SIN(X)
140 SYSTEM