100 ' G34 T.WAKAMATSU
110 CD PLAY 7,11
120 FOR D=1 TO 2000:NEXT D
130 CLS:Z=70:K=10:L=5
140 FOR J=0 TO 14
150   Z=Z+8:Q=0:CL=7
160   IF J<=8         THEN CL=2
170   IF J<=4         THEN CL=3
180   IF J=0 OR J>=13 THEN CL=2
190   FOR I=-18 TO 270 STEP 72
200     T=I/180*3.14159!
210     R=(COS(T*K)/2+SIN(T*L))*50+Z
220     X=COS(T)*R+320:Y=SIN(T)*R+240:Y=480-Y
230     Q=Q+1:V(Q)=X:W(Q)=Y
240   NEXT I
250   FOR H=0 TO 72 STEP 4
260     Q=0
270     FOR I=H-18 TO 270+H STEP 72
280       T=I/180*3.14159!
290       R=(COS(T*K)/2+SIN(T*L))*50+Z
300       X=COS(T)*R+320:Y=SIN(T)*R+240:Q=Q+1:Y=480-Y
310       LINE(V(Q),W(Q))-(X,Y),PSET,CL
320       V(Q)=X:W(Q)=Y
330     NEXT I
340   NEXT H
350 NEXT J
360 FOR D=1 TO 8000:NEXT D
370 Z=70
380 FOR J=0 TO 14
390   T=-18/180*3.14159!:Z=Z+8
400   R=(COS(T*K)/2+SIN(T*L))*50+Z
410   V=COS(T)*R+320:W=SIN(T)*R+240:Y=480-Y
420   FOR I=-18 TO 342 STEP 4
430     T=I/180*3.14159!
440     R=(COS(T*K)/2+SIN(T*L))*50+Z
450     X=COS(T)*R+320:Y=SIN(T)*R+240:Y=480-Y
460     LINE(V,W)-(X,Y),PSET,0
470     V=X:W=Y
480   NEXT I
490 NEXT J