10 MODE 2 20 CLG 30 S%=RND *5+1 40 T%=RND *5+1 50 ORIGIN 320,200 60 FOR R=0 TO 10000 STEP PI/25 70 X%=100*COS(R) 80 MOVE X%,X% 90 DRAW 200+COS(R/S%),200*SIN(R/T%),3 100 IF INKEY$<>"" THEN 20 110 NEXT 120 GOTO 20