' SERIN & SEROUT Commands ' ' Upper case serial filter. Include "modedefs.bas" ' Include serial modes SO con 0 ' Define serial out pin SI con 1 ' Define serial in pin B0 var byte loop: Serin SI,N2400,B0 ' B0 = input character If (B0 < "a") or (B0 > "z") Then print ' If lower case, convert to upper B0 = B0 - $20 print: Serout SO,N2400,[B0] ' Send character Goto loop ' Forever