'/////////////////////////////////////////////////////////
'///   FastAVR Basic Compiler for AVR by MICRODESIGN   ///
'///   On X GoTo L0, L1, L2......                      ///
'/////////////////////////////////////////////////////////
$Device= 8515   ' used device
$Stack = 32    ' stack depth
$Clock = 8  ' adjust for used crystal
$DTMF=PORTD.5, 250

Dim n As Byte

Enable Interrupts

For n=1 To 9
	DTMF(n)
	WaitMs 100
Next

End