bag=createobject("MSCOMMLib.MSComm")
bag.CommPort = 8
bag.Settings = "9600,N,8,1"  && 14.4 Kbaud, No Parity,
                                          && 8 data Bits, 1 Stop Bit

bag.PortOpen = .T.


GEL=BAG.INPUT

IF LEN(ALLTRIM(GEL))=0 
  ?"no number"
ENDIF

ilk=AT('+CLIP: "',ALLTRIM(gel),1)+8
son=AT('",129',ALLTRIM(gel),1)
arayan=SUBSTR(gel,ilk,son-ilk)
?"caller id",arayan