5 LET pi=3.14159
9 print "enter angle"
10 INPUT x$
20 LET x=val(x$)
21 x=x*pi/180
30 GOSUB 200
40 print x; ", "; cosx
50 GOTO 1000

200 REM cosine
210 LET x2 = x * x
220 LET x4 = x2 * x2
230 LET x6 = x4 * x2
240 LET f2 = 2
250 LET f4 = f2 * 3 * 4
260 LET f6 = f4 * 5 * 6
270 LET cosx = 1 - x2/f2 + x4/f4 - x6/f6
280 RETURN