$regfile = "m328def.dat"
$crystal = 16000000
$hwstack = 80
$swstack = 80
$framesize = 80
$baud = 9600


 Dim Rx As Word , S As Byte
 Enable Interrupts
 Enable Urxc
 On Urxc Interupt


'configration pinsoutput
'/---------------
Config Portd = Output


Do



Loop

Interupt:
If Ischarwaiting() = 1 Then
Rx = Inkey()
S = Val(a)

End If
If S = 1 Then
Portd.2 = 0
Print "a" ; "," ; "0" ; "," ; "0" ;

End If
If S = 2 Then
Portd.2 = 1
Print "b" ; "," ; "0" ; "," ; "0" ;
End If

If S = 5 Then
Portd.2 = 1
Print "e" ; "," ; "1" ; "," ; "0" ;
End If

Waitms 250
Return