OOPS thanks for catching that Dave,
I posted the wrong code.
here is the correct  code
	Code:
	' PIC:	16LF84A (low voltage)
' LCD connections
'       DB4     PortA.0
'       DB5     PortA.1
'       DB6     PortA.2
'       DB7     PortA.3
'       RS      PortA.4 (add 4.7K pullup resistor to 5 volts)
'       E       PortB.3
'		
'		RXD		PortB.6
'		TXD		PortB.7
'		RESET	PortB.5	
Include "modedefs.bas"	' Include serial modes
LF		CON	10			' Line feed constant
RXD  	VAR PORTB.6  	'recive data pin
TXD  	VAR PORTB.7		'transmit data pin
RESET 	VAR PORTB.5		'reset pin
SRIN 	VAR byte[2]		'array to hold modem tx data
		SRIN[0]=0		'init SRIN byte to zero
		SRIN[1]=0		'init SRIN byte to zero
		pause 1000
loop:   Lcdout $fe, 1   	' Clear LCD screen
		Lcdout $fe,$80
		Lcdout "Reseting Modem"		
		'Reset Command. reset pin must be held low for 300ms then return
		'to high state within 5ms.
		low reset			
		pause 300
		high reset
		pause 1000
		Lcdout $fe, 1   	' Clear LCD screen
		Lcdout $fe,$80
		Lcdout "Sending"	
		Lcdout $fe,$C0		' Move curser to second line
		Lcdout  "serout command"	
		serout2 TXD,813,["AT",13]	'Send AT command to modem
		pause 200
		serin2 RXD,813,3000,cont,[STR SRIN\2]	'Recieve 2 bytes from modem
cont:		
		Lcdout $fe, 1   ' Clear LCD screen
		Lcdout $fe,$80
		Lcdout "recieved: ",#SRIN[0],#SRIN[1]  'Display results from Modem	
	
finish: 	
	 goto finish
 oh, by the way, how do you keep the code snipets formatted?
thanks
				
			
Bookmarks