100 ' G16 T.WAKAMATSU
110 CLS:S=5:C(1)=1:C(2)=5:C(3)=4:C(4)=6
120 R=130:PI=3.14159!:Q=1
130 FOR J=0 TO 30 STEP 2
140   P=J/180*PI:S=S+5:R=160-S:Q=Q+.2!:H=INT(Q)
150   V=COS(P)*R+320:W=SIN(P)*R+240:PSET(V,W)
160   FOR I=0 TO 360 STEP 3
170     T=I/180*PI:R=SIN(T*6-PI/2)*S+160
180     X=COS(T+P)*R+320:Y=SIN(T+P)*R+240
190     LINE -(X,Y),PSET,%C(H)
200   NEXT I
210 NEXT J
220 FOR D=1 TO 1000:NEXT D
230 R=130:S=5
240 FOR J=0 TO 30 STEP 2
250   P=J/180*PI:S=S+5:R=160-S
260   V=COS(P)*R+320:W=SIN(P)*R+240:PSET(V,W)
270   FOR I=0 TO 360 STEP 3
280     T=I/180*PI:R=SIN(T*6-PI/2)*S+160
290     X=COS(T+P)*R+320:Y=SIN(T+P)*R+240
300     LINE -(X,Y),PSET,0
310   NEXT I
320 NEXT J