aUCBLogo Demos and Tests / stillenacht

to play tonelist
   foreach tonelist [tone ? speed  if keyp [stop]]
end

to stille
   play stille_tones
end

to alles
   play alles_tones
end

to nur
   play nur_tones
end

to schlaf
   play schlaf_tones
end

to stilleNacht [speed 200]
   stille_tones=[7 9 7 4 4]
   alles_tones=[14 14 11 11 12 12 7 7]
   nur_tones=[9 9 12 11 9]
   schlaf_tones=[14 14 17 14 11 12 12 16 16 12 7 4 7 5 2 0 0]
   Make "refend_tones []

   forever
   [   stille stille alles
      repeat 2 [nur stille]
      schlaf
      if keyp [stop]
   ]
end