aUCBLogo Demos and Tests / testsounds

to testsounds
;comment [
   Sounds [440 1000  550 1000  660 1000  770 1000] waitMS 300
   Sounds [550 1000  660 1000  770 1000] waitMS 300
   Sounds [660 1000  770 1000]
   sf=SoundsFinished
   osf=sf
   print sf
   overwriteMode
   y=Cursor.2-1
   while [SoundsFinished < sf+3]
   [   if SoundsFinished != osf
      [   osf=SoundsFinished
         setCursor list 0 y
         type osf
      ]
   ]
   insertMode
   pr []
;]
;comment [
   (Sounds (se
      rSeq 20 10000 100
      rSeq 10000 20 100) 10)
   (Sounds (sin rSeq 0 15*360 200)*4000+4000  10)
   waitMS 2000
;]
   (Sounds (sin rSeq 0 3*360 200)*1000+1000  10)
   (Tones (rSeq -20 60 200) 10)
end