*** 086
1 RANDOMIZE TIME:INK 2,0:INK 3,6:BORDER 0:CLG:B%=RND*7:C%=RND*7:ORIGIN 320,200:FOR A=0 TO 40 STEP PI/30:X%=100*COS(A):MOVE X%,X%:DRAW 200*COS(A/B%),200*SIN(A/C%),3
2 ENT 1,100,-2,2:ENV 1,100,2,2:SOUND 1,290,5,1,1,1,INT(RND*31+1):NEXT A