Loopback with lower case to upper case translation (shows the PIC is actually working and that the PC isn't just receiving the same thing it sent out, i.e. local echo):

Code:
include "modedefs.bas"
cmcon=7:option_reg=$d7:trisb=0:trisa=$ff:i var byte
main:
serin portb.1,n2400,I:if (i > 96) and (i < 123) then i = i - 32
serout portb.2,n2400,[I]:goto main
And I just noticed something in the code in your last post. Take out the clear screen and if anything happens...