11 COLOR 15,4,4:SCREEN2:PI=3.14159:FORB=10TO 50 STEP 10
25 A=B/2:FOR D=0 TO360 STEP4:FI=2*PI*D/360:R=A*(1+COS(5*FI))+B*SIN(5*FI)^2:X=R*COS(FI)+256/2:Y=R*SIN(FI)+191/2
85 IF D=0THEN LINE(X,Y)-(X+1,Y+1),15 ELSE LINE-(X,Y),15
90 NEXT:NEXT:PAINT(4,104),15:A$=INPUT$(1)