5 SCREEN 1
10 DEFDBL A-Z
20 PRINT "ARCTAN(X) WHEN INPUT X=1/SQUARE ROOT OF 3"
21 PRINT "OR THE TANGENT OF 30 DEGREES"
25 PRINT "TAYLOR SERIES FOR ARCTAN(X)=(-1^N)*(X^2N+1)/(2N+1)"
30 C = 0
40 A = 1 / (3 ^ (1 / 2))
41 PLAY "mbfdfdgagf#fdfdga"
42 PLAY "mba#go5l2cl4o4a#o5co4l2a#l4"
50 FOR Z = 0 TO 520500
60 B = ((-1) ^ Z) * (((A) ^ ((2 * Z) + 1)) / ((2 * Z) + 1))
70 C = C + B
80 NEXT Z
90 PRINT "CALCULATED ARCTANGENT=", C
100 PRINT "ATN(X)=", ATN(A)
101 E = 6 * C
105 PRINT "6 * CALCULATED ARCTANGENT ="; E; "OR PI"
110 FOR ZZ = 1 TO 10000000
120 NEXT ZZ
130 SYSTEM