local lcData,ltStart * load mscomm oComm = CREATEOBJ('MSCOMMLib.MSComm') * Open and Initialize COM port #1 for use With oComm .CommPort = 1 .Settings = "4800,N,8,1" .InputLen = 1 .PortOpen = .T. lcDATA='' ltStart = datetime() Do while datetime()-m.ltStart < 5 && Check port for around 5 secs max .InputLen = 1 lcDATA = m.lcDATA+.input Enddo * Close the port .PortOpen = .F. Endwith Release oComm if len(m.lcDATA) = 0 ? "Couldn't read from port" else ? "Read "+trans(len(m.lcData))+" bytes:"+m.lcData endifCetin