5 SCREEN 1
10 DEFDBL A-Z
20 PRINT "COSINE(X) INPUT X=1"
21 PRINT "Taylor Cosine(X)=-1^N*X^2N/2N!"
22 PRINT "Best if absolute X between 0 and 6.28"
25 X = 1
30 A = 1
40 M = 1
41 PLAY "mbo2l2dl4cdcdfd#l2dl4"
42 PLAY "mbdo2cdcdfd#l2dl4dc"
43 PLAY "mbdco1l2a#l4ago4"
50 FOR Z = 1 TO 200000
51 A = 1
55 FOR ZZ = 1 TO ((2 * Z))
60 A = A * ZZ
62 IF A > 8.5D+36 THEN GOTO 110
63 NEXT ZZ
80 M = M + (((-1) ^ Z) * (X ^ ((2 * Z)))) / (A)
100 NEXT Z
110 PRINT "CALCULATED COSINE(X)=", M
130 PRINT "COS(X)=", COS(X)
140 SYSTEM