aUCBLogo Demos and Tests / randomtone


to randomtone
   tonleiter=Array [0 2 4 5 7 9 11]
   schoen=[1 .5 .9 .6 .9 .3 .2]
   summe=(sum schoen)
;   foreach qzr [tone ? 300]
   index=0
   while [not key?]
   [   index=index+random 8
      tone pick tonleiter 300
   ]
end