Hi,
Thank for the reply. As for the code i'm just using a simple code to check the modem respose(OK):
Include "modedefs.bas"




'***************************LCD DEFINE*******************************
DEFINE LCD_DREG PORTD 'LCD data port
DEFINE LCD_DBIT 0 'LCD data starting bit 0 or 4
DEFINE LCD_RSREG PORTD 'LCD register select port
DEFINE LCD_RSBIT 4 'LCD register select bit , RS=PORTC.4
DEFINE LCD_EREG PORTD 'LCD enable port
DEFINE LCD_EBIT 5 'LCD enable bit E=PORTC.5
DEFINE LCD_RWREG PORTD 'LCD read/write port
DEFINE LCD_RWBIT 6 'LCD read/write bit R/W=POTRA.1
DEFINE LCD_BITS 4 'LCD bus size 4 or 8
DEFINE LCD_LINES 4 'Number lines on LCD
DEFINE LCD_COMMANDUS 2000 'Command delay time in us
DEFINE LCD_DATAUS 50

'************************************************* *****************

ADCON1 =7

TRISA = $FF
TRISB = 0
TRISC = 0
TRISD = 0
TRISE = 0
LCDATA VAR BYTE(8)
CLEAR
PAUSE 1000
LCDOUT $FE,1
LCDOUT $FE, 2
LCDOUT " STARWICK GSM V1.0"


MAIN:


serout2 PORTC.6,84, ["AT",13,10]
SERIN2 PORTC.7,16468, [WAIT("OK")]


LCDOUT $FE,$C0
LCDOUT "OK"
SEROUT2 PORTC.6,84,["AT+CMGR=1",13,10]
SERIN2 PORTC.7, 84,[STR LCDATA\8\13]
LCDOUT $FE,1
LCDOUT $FE,2
LCDOUT STR LCDATA\8
PAUSE 3000
GOTO MAIN

END

I don't get any response from the modem. i also tried SERIN2 PORTC.6.84,[STR LCDATA\2] And display LCDATA with no luck. Thanks for any help.