Hello,

1. Mr Ioannis, thanks for your reply. I was modified my program but still have no result.

Source Code:
'################################################# #########
Define OSC 10
include "Modedefs.bas"
ADCON1 = 6

TRISA = %111000
TRISB = 0

B0 var byte

PORTB = 0

Main:

serin PORTA.3,T9600,B0

if B0="1" then PORTB = %00010001
if B0="2" then PORTB = %00100010
if B0="3" then PORTB = %00110011
if B0="4" THEN PORTB = %01000100
If B0="5" THEN PORTB = %01010101
if B0="6" then PORTB = %01100110
if B0="7" then PORTB = %01110111
if B0="8" then PORTB = %10001000
if B0="9" THEN PORTB = %10011001
if B0="A" THEN PORTB = %10101010
if B0="B" then PORTB = %10111011
if B0="C" then PORTB = %11001100
if B0="D" then PORTB = %11011101
if B0="E" THEN PORTB = %11101110
if B0="F" THEN PORTB = %11111111

GOTO MAIN
############################################

2. What is the difference between T9600 and N9600? If I'm using a max232 IC then which type should i use?