'Piezo Demo
func main()
   dim x

   'Set to input to turn tone off
   output 13

   'Sets up a 42KHz tone
   PWMinit(1)
   PWMperiod(148)
   PWM1duty(75)
   PWMcourse(2)


loop:
    print "Do nothing"
    pause 500
    goto loop


endfunc


include \lib\DiosHWPWM.lib