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