'Piezo Demo
func main()
   dim x
   output 13


   for x = 1000 to 5000 step 100
     print "Freq=",x
     TONE 13,1000,x
   next


endfunc



include \lib\DiosTone.lib