'Piezo Demo
func main()

   output 13

loop:
   highbeep 1000
   lowbeep 1000
   goto loop


endfunc



func lowbeep(dur)
   dim x
   for x = 1 to dur
      toggle 13
      pauseus 202
   next
endfunc


func highbeep(dur)
   dim x
   for x = 1 to dur
      toggle 13
      pauseus 76
   next
endfunc