Dlaczego buforowanie RS232 w Bascomie przestaje działać po odkomentowaniu?

$crystal = 8000000                                          'częstotliwość kwarcu
$baud = 38400                                           

Dim Zmienna As Byte , Zmienna2 As Integer                  
Dim Ignorowane As Byte , Id As Byte , Dane As Byte
Dim A As Byte , B As Byte

'Config Serialin = Buffered , Size = 20

Zmienna = 5
Do
Waitms 500
Cls
Lcd Id ; " " ; Dane ; " " ; Zmienna ; " " ; B
Inputbin Id , Dane , Zmienna , B

Loop


End

$crystal = 8000000                                          
$baud = 38400                                               ' 

Dim Zmienna As Byte , Zmienna2 As Integer                   
Dim Ignorowane As Byte , Id As Byte , Dane As Byte
Dim A As Byte , B As Byte

Config Serialin = Buffered , Size = 20

Zmienna = 5
Do
Waitms 500
Cls
Lcd Id ; " " ; Dane ; " " ; Zmienna ; " " ; B
Id = Inkey()
Dane = Inkey()
Zmienna = Inkey()
B = Inkey()

Loop


End

$crystal = 8000000                                          
$baud = 38400                                               '

Dim Zmienna As Byte , Zmienna2 As Integer                   
Dim Ignorowane As Byte , Id As Byte , Dane As Byte
Dim A As Byte , B As Byte

Zmienna = 5
Do
Waitms 500
Cls
Lcd Id ; " " ; Dane ; " " ; Zmienna ; " " ; B
Inputbin Id , Dane , Zmienna , B

Loop


End

Dim Zmienna As Byte , Zmienna2 As Integer                   
Dim Ignorowane As Byte , Id As Byte , Dane As Byte
Dim A As Byte , B As Byte

Config Serialin = Buffered , Size = 20

Enable Interrupts

Zmienna = 5
Do
Waitms 500
Cls
Lcd Id ; " " ; Dane ; " " ; Zmienna ; " " ; B
Id = Waitkey()
Dane = Waitkey()
Zmienna = Waitkey()
B = Waitkey()

Loop


End