The following opens a port, read 10 thousand times or until an "A" is encountered. * load mscomm oComm = CREATEOBJ('MSCOMMLib.MSComm') * Open and Initialize COM port #1 for use oComm.CommPort = 1 oComm.Settings = "9600,N,8,1" oComm.InputLen = 0 oComm.PortOpen = .T. FOR i = 1 to 10000 oComm.inputlen = 1 lnChar = oComm.input IF lnchar = "A" EXIT ENDIF ENDFOR * Close the port oComm.PortOpen = .F. release oComm