Try
[code:1:2afca93434]
$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9600
Config Portb = Output
dim Temp as Byte
Open "com1:" For Binary As #1
Enable Interrupts
Enable Urxc
On Urxc Code
Do
Loop
End
Code:
Temp =Inkey(#1) '<--- Empty Serial Input register
Toggle Portb.0
Wait 1
Return
[/code:1:2afca93434]
Regards
Ian Dobson
↧
