Code: Select all
Dim chars As Byte
SetBaudrate(br19200)
chars = USART.ReadByte()
Select chars
Case 0
'do nothing
Case 13
MoveCursor(2,1)
LCD.Cls
Case 27
MoveCursor(1,1)
LCD.Cls
Else
LCD.Write(chars)
EndSelect
Code: Select all
Dim chars As Byte
SetBaudrate(br19200)
chars = USART.ReadByte()
Select chars
Case 0
'do nothing
Case 13
MoveCursor(2,1)
LCD.Cls
Case 27
MoveCursor(1,1)
LCD.Cls
Else
LCD.Write(chars)
EndSelect
Code: Select all
SetBaudrate(br19200)
While true
LCD.Write(ReadByte)
Wend