10 REM BALL OF WOOL 20 CLEAR 4 30 S=400 40 MOVE 128,96 50 FOR A=0 TO 1257 60 %B=A/10 70 %D=((S*SIN(%B)/5)+128) 80 %E=((S*COS(%B)*SIN(%B*0.95)/5.3)+96) 90 DRAW (%D),(%E) 100 NEXT A;END