DEF f(x) = SIN(x)
DEF g(x) = x
DEF q(x) = x - x^3/KAIJOU(3)
DEF h(x) = x - x^3/KAIJOU(3) + x^5/KAIJOU(5)
DEF w(x) = x - x^3/KAIJOU(3) + x^5/KAIJOU(5) - x^7/KAIJOU(7)
DEF r(x) = x - x^3/KAIJOU(3) + x^5/KAIJOU(5) - x^7/KAIJOU(7) + x^9/KAIJOU(9)
SET WINDOW -2*PI,2*PI,-2.2,2.2
DRAW axes
SET LINE width 2
FOR x=-720 TO 720 STEP 0.01
   PLOT LINES: x,f(x);
NEXT x
PLOT LINES
WAIT DELAY 2
SET LINE COLOR 2
FOR x=-2*PI TO 2*PI STEP 0.01
   PLOT LINES: x,g(x);
NEXT x
PLOT LINES
WAIT DELAY 3
SET LINE COLOR 10
FOR x=-2*PI TO 2*PI STEP 0.01
   PLOT LINES: x,q(x);
NEXT x
PLOT LINES
WAIT DELAY 3
SET LINE COLOR 4
FOR x=-2*PI TO 2*PI STEP 0.01
   PLOT LINES: x,w(x);
NEXT x
PLOT LINES
WAIT DELAY 3
SET LINE COLOR 14
FOR x=-2*PI TO 2*PI STEP 0.01
   PLOT LINES: x,r(x);
NEXT x
END

EXTERNAL FUNCTION KAIJOU(X)
LET Y = 1
FOR i=1 TO X
   LET Y = Y * i
NEXT i
LET KAIJOU = Y
END FUNCTION