aUCBLogo Demos and Tests / playtones

to ref1
   repeat 2 [foreach ref1_tones [tone ? speed  if keyp [stop]]]
end

to ref2
   repeat 2 [foreach ref2_tones [tone ? speed if keyp [stop]]]
end

to refend shift
   foreach refend_tones [tone ?+shift speed if keyp [stop]]
end

to playtones [speed 200]
   Make "ref1_tones [12 10 12 7 3 7 0 0]
   Make "ref2_tones [19 17 19 15 10 15 7 7]
   Make "refend_tones [12 14 15 14 15 12 14 12 14 10 12 10 12 14 12 12]

   forever
   [   repeat 2 [ref1 refend 0]
      repeat 2 [ref2 refend 7]
      if keyp [stop]
   ]
end