$regfile = "2313def.dat"
$crystal = 4000000

Dim Counter As Byte

Enable Interrupts

Do
  For Counter = 0 To 15
    Dtmfout Counter , 500
    Waitms 250
  Next Counter
  Wait 1
Loop

End