aUCBLogo Demos and Tests / testtones

to testtones
   tf=TonesFinished
   otf=tf
   tones [0 1000 2 1000 4 1000 5 1000] waitMS 300
   tones [4 1000 5 1000 7 1000] waitMS 300
   tones [7 1000 9 1000]
   print tf
   tf=tf+3
   overwriteMode
   y=Cursor.2
   while [TonesFinished < tf]
   [   if TonesFinished != otf
      [   otf=TonesFinished
         setCursor list 0 y
         type otf
      ]
      dispatchMessages
   ]
   insertMode
   pr []
end