0 REM      KUCHEN
10 (null):(null)1,6:(null)1:(null)1:(null)1:(null)
50 (null)160,90,140,80
60 (null)20,90,20,110:(null)300,90,300,110
70 (null)160,110,140,80,0,(null)/2,3/2*(null),(null)/60
100 FORI=1TO10
110 A(I)=RND(1)
120 NEXT
150 FORI=1TO10:S=S+A(I):NEXT
160 FA=2*(null)/S
175 W=0
180 FORI=1TO10
190 W=FA*A(I)+W
200 (null)160,90,SIN(W)*140+160,90-COS(W)*80
210 NEXT
230 (null)160,180
240 FORI=0TO10000:NEXT:RUN