10 CLS 20 LET PI=3.14159;XM=32.5;YM=32.5 22 FOR B=1 STEP 1 TO 8 30 LET RA=3 50 FOR W=0 STEP1/RA TO 2.3*PI 52 LET RA=RA+.3 55 FOR PH=0 STEP 2*PI/B TO PI*(2-1/B) 60 LET X=XM+RA*SIN(W+PH) 70 LET Y=YM+RA*COS(W+PH) 75 CALL 28C4H(Y,X) 80 NEXT 90 NEXT 95 CLS 100 NEXT 110 GOTO 10 1000 END