aUCBLogo Demos and Tests / testtones


to testtones
   
tf=TonesFinished
   
otf=tf
   
tones [0 1000 2 1000 4 1000 5 1000waitMS 300
   
tones [4 1000 5 1000 7 1000waitMS 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 y
         
type otf
      
]
      
dispatchMessages
   
]
   
insertMode
   
pr []
end