5 SCREEN,0:CLS
10 FORP=0TO11/6*3.14159STEP3.14159/6
20 FORQ=3.14159/6TO2*3.14159-PSTEP3.14159/6
30 W=60*COS(P)+119.5:X=31*SIN(P)+31.5:Y=60*COS(P+Q)+119.5:Z=31*SIN(P+Q)+31.5
40 IF(W-Y)^2+(X-Z)^2=0THEN70
50 FORT=0TO1STEP1/SQR((W-Y)^2+(X-Z)^2)
60 PSET((W-Y)*T+Y,(X-Z)*T+Z)
70 NEXT:NEXT:NEXT