螺旋を描く ：
10 DEF x=(t/PI)*COS(t)
20 DEF y=(t/PI)*SIN(t)
30 SET WINDOW -5.2,5.2,-5.2,5.2
40 DRAW grid
50 WAIT DELAY 1
60 FOR t=0.0 TO 5*PI STEP 0.05
70    PLOT LINES: x,y;
80    WAIT DELAY 1/100
90 NEXT t
100 END


円のグラフ ：
10 DEF x=5*COS(t)
20 DEF y=5*SIN(t)
30 SET WINDOW -5.2,5.2,-5.2,5.2
40 DRAW grid
50 FOR t=0.0 TO 2*PI STEP 0.01
60    PLOT LINES: x,y;
70 NEXT t
80 END


広がる円のアニメ ：
10 SET WINDOW -5.2,5.2,-5.2,5.2 
20 DRAW grid
30 WAIT DELAY 1
40 FOR r=0 TO 4.95 STEP 0.05
50    SET LINE COLOR 1
60    DRAW circle WITH SCALE(r)*SHIFT(0,0) 
70    WAIT DELAY 1/10
80    SET LINE COLOR 0
90    DRAW circle WITH SCALE(r)*SHIFT(0,0) 
100 NEXT r
110 DRAW grid 
120 SET LINE COLOR 1
130 DRAW circle WITH SCALE(5)*SHIFT(0,0)
140 END

螺旋を描くしくみ ：
100 DECLARE EXTERNAL PICTURE circle
110 DEF xf(t)=(t/PI)*COS(t)
120 DEF yf(t)=(t/PI)*SIN(t)
130 LET pre_xf=xf(0)
140 LET pre_yf=yf(0)
150 SET WINDOW -5.5,5.5,-5.5,5.5
160 DRAW grid
170 FOR t=0 TO 5*PI STEP 0.01
180    SET LINE COLOR 1
190    PLOT LINES: pre_xf, pre_yf; xf(t), yf(t)
200    LET pre_xf=xf(t)
210    LET pre_yf=yf(t)
220    SET DRAW MODE NOTXOR
230    SET LINE COLOR 2
240    DRAW CIRCLE(0,0,t/PI)
250    PLOT LINES: 0,0;xf(t),yf(t)
260    PLOT POINTS: xf(t), yf(t)
270    WAIT DELAY 1/100
280    PLOT POINTS: xf(t), yf(t)
290    PLOT LINES: 0,0;xf(t),yf(t)
300    DRAW CIRCLE(0,0,t/PI)
310    SET DRAW MODE OVERWRITE
320 NEXT t
330 END
1000 EXTERNAL PICTURE CIRCLE(x,y,r)
1010 FOR t=0 TO 2*PI STEP PI/45
1020    PLOT LINES: x+r*COS(t), y+r*SIN(t);
1030 NEXT t
1040 END PICTURE