Fragment programu odczytującego jeden znak z buforowanego portu UART. Dzięki zastosowani bufora (fragment 20-bajtowy pamięci SRAM) możliwe jest wykonywanie kodu znajdującego się w głównej pętli programu.

Config Serialin = Buffered , Size = 20
Enable Interrupts

Open "com1:" For Binary As #1

Do
 If Ischarwaiting() = 1 Then
   Get #1 , Znak
   Cls : Lcd Znak
   Znaki = Znaki + Znak
   If Len(znaki) > 4 Then Znaki = ""
   Kod = Val(znaki)
   Print #1 , "Klaw " ; Znaki
   Clear Serialin
 End If

 Debounce Pind.7 , 0 , Tekst , Sub
 Waitms 10
Loop
End

Możliwe jest zastosowanie funkcji Input, które znacząco zmniejsza ilość kodu, umożliwiając odebranie ciągu znaków w ilości definiowanej w zmiennej 'Znaki'.

Do
 If Ischarwaiting() = 1 Then
  Input #1 , Znaki
  Cls : Lcd Znaki
  Clear Serialin
 End If

 Debounce Pind.7 , 0 , Tekst , Sub
 Waitms 10
Loop
End