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