100 ' G03 T.WAKAMATSU
110 DIM A(730),B(730),C(730),D(730)
120 CL(1)=4:CL(2)=5:PI=3.14159!:F=2/3*PI
130 FOR I=0 TO 720 
140   T=I*PI/180
150   X0=300*COS(T*2.5!)+320:Y0= 239*SIN(T*1.5!)  +240
160   X1=239*COS(T*2!+F)+398:Y1=-239*SIN(T*2.5!+F)+240
170   K=K+1
180   A(K)=X0:B(K)=Y0:C(K)=X1:D(K)=Y1
190 NEXT I
200 L=30:CLS
210 FOR S=1 TO 2
220   FOR Z=1 TO K-1
230     LINE(A(Z),B(Z))-(C(Z),D(Z)),PSET,%CL(S)
240     IF Z-L<=0 THEN 260
250     LINE(A(Z-L),B(Z-L))-(C(Z-L),D(Z-L)),PSET,0
260   NEXT Z
270   FOR J=K-1-L TO K-1
280     LINE(A(J),B(J))-(C(J),D(J)),PSET,0
290   NEXT J
300 NEXT S